#include <CMD.au3>
#include <Inet.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#NoTrayIcon
$getip = _GetIP()
If $getip = 1 Then
MsgBox(0, "Ошибка", "Проверьте подключение к Интернету или выключите брандмауэр. Программа не имеет доступа к Интернету.")
EndIf
$Form1 = GUICreate("IP-Changer", 437, 125, -1, -1)
$Group1 = GUICtrlCreateGroup("", 8, 8, 417, 105)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 16, 48, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$Label1 = GUICtrlCreateLabel("ТекущийIP:", 16, 24, 58, 17)
$Button1 = GUICtrlCreateButton("Возобновить", 16, 72, 131, 25, 0)
$Button2 = GUICtrlCreateButton("Получить новое IP", 168, 24, 243, 33, 0)
$Button3 = GUICtrlCreateButton("Текущий IP в буфере обмена", 168, 64, 243, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
_GUICtrlIpAddress_Set($IPAddress1, $getip)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ip = _ip()
MsgBox(0, "Успешно", "IP-адрес успешно обновлен")
Case $Button2
$pw = InputBox("Пароль", "Пожалуйста, введите свой пароль на маршрутизаторе", "0000", "*")
_CMDStart(0)
_CMDWrite('curl http://192.168.2.1/cgi-bin/login.cgi -d "pws=' & $pw & '"')
_CMDWrite('curl http://192.168.2.1/cgi-bin/disconnect.exe')
_CMDWrite('curl http://192.168.2.1/cgi-bin/connect.exe')
_CMDEnd()
GUICtrlSetState($Button1, @SW_DISABLE)
GUICtrlSetData($Button1, "6")
Sleep(1000)
GUICtrlSetData($Button1, "5")
Sleep(1000)
GUICtrlSetData($Button1, "4")
Sleep(1000)
GUICtrlSetData($Button1, "3")
Sleep(1000)
GUICtrlSetData($Button1, "2")
Sleep(1000)
GUICtrlSetData($Button1, "1")
Sleep(1000)
GUICtrlSetState($Button1, @SW_ENABLE)
GUICtrlSetData($Button1, "Возобновить")
Case $Button3
$ip = _GetIP()
If $ip = 1 Then
MsgBox(0, "Ошибка", "Проверьте подключение к Интернету или выключите брандмауэр. Программа не имеет доступа к Интернету.")
EndIf
ClipPut($ip)
EndSwitch
WEnd
Func _ip()
$aktuelleip = _GetIP()
_GUICtrlIpAddress_Set($IPAddress1, $aktuelleip)
EndFunc