Что нового

[Сеть, интернет] Смена IP в интернете.

Статус
Закрыто для дальнейших ответов.

kolosov

Новичок
Сообщения
137
Репутация
0
Есть ли возможность сделать скрипт который при запуске менял IP котрое в дальнейшем будет использоваться в интернете. :scratch:
 

joiner

Модератор
Локальный модератор
Сообщения
3 338
Репутация
574
только прокси-сервера в интернете
 
Автор
K

kolosov

Новичок
Сообщения
137
Репутация
0
Тоисть7 не магли бы вы обяснить7.
П.С я ток пару дней как учу язык.
А и подобную программу мне хотелось использовать для онлайн игры чтобы можно было играть 2 персами.
 

defens

Знающий
Сообщения
89
Репутация
5
не знаю то или нет, но есть у меня сохраненный скрипт, автор тоже его не записан, просто когда то сохранил.

Код:
#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



Добавлено:
Сообщение автоматически объединено:

а так вам лучше использовать виртуальные машины
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
kolosov,
Предупреждение За нарушение общих правил (пункт В.8):
Так как эта конференция называется "Русское сообщество AutoIt", язык общения на ней - Русский. Названия фирм или программных продуктов, аббревиатуры и т.д. должны быть написаны так, как они пишутся в оригинале, например не следует писать УСБ вместо USB. На форуме крайне не рекомендуется намеренно искажать русский язык и использовать "сетевой жаргон" на подобии "Аффтар выпей йадау!".


С уважением, ваш Модератор.
 
Автор
K

kolosov

Новичок
Сообщения
137
Репутация
0
defens спасибо
Но не магли бы вы паяснить . этот скрипт меняет айпи в интернете7 или нет7
а и в первой строчке сразу ошибка #include <CMD.au3> что не так7
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Тема закрыта.
 
Статус
Закрыто для дальнейших ответов.
Верх