kolosov

it is clear to me. how to make that the cmd function in a script worked. #include <CMD.au3>

didn't understand. explain .

>"C:Program FilesAutoIt3 (3)SciTE..autoit3.exe" /ErrorStdOut "C:Users1Downloadscmd.au3" >Exit code: 0 Time: 1.104

I downloaded cmd script that with it to do 7 I include it doesn't react to be exact. >"C:Program FilesAutoIt3 (3)SciTE..autoit3.exe" /ErrorStdOut "C:Users1Downloadscmd (1).au3" >Exit code: 0 Time: 1.545

I thank

I don't know to me it is necessary, that robotala with крипт with this team and me on the first line a mistake in #include <cmd.au3> script- #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

Excuse if I write not there and with mistakes I don't know the English I write through the translator. Prompt where it is possible to download cmd library from doesn't work #include with <cmd.au3>. Thanks in advance</cmd.au3>