Suche IP Changer

[Arkido]

Moin

Suche einen IP Changer für meinen Speedport W503V.

Hatte früher das Tool aus epvp. Es hieß IP Changer pro V 2.4.

Finde aber das Tool nicht mehr.

L´g

[Incarnous]

Ich glaub, ich kenne das Tool, das du meinst. Ich glaube es gehört .Bench.
Es ist glaube im [Coding Releases] Thread. Ich werde ihn mal suchen.
€:

[Arkido]

Vielen Dank Ja das ist es

[JohnAndersn]

My IP Changer:

 Spoiler

[

#include <CMD.au3>
#include <Inet.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#NoTrayIcon
$getip = _GetIP()
If $getip = 1 Then
    MsgBox(0, "Fehler", "Überprüfen Sie Ihre Internetverbindung oder schalten Sie Ihre Firewall aus. Das Programm kann nicht auf das Internet zugreifen.")
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("Aktuelle IP:", 16, 24, 58, 17)
$Button1 = GUICtrlCreateButton("Erneuern", 16, 72, 131, 25, 0)
$Button2 = GUICtrlCreateButton("Neue IP holen", 168, 24, 243, 33, 0)
$Button3 = GUICtrlCreateButton("Aktuelle IP in Zwischenablage kopieren", 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, "Erfolgreich", "Die IP-Adresse wurde erfolgreich erneuert")
        Case $Button2
            $pw = InputBox("Passwort", "Bitte das Passwort des Routers eintragen", "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, "Erneuern")
        Case $Button3
            $ip = _GetIP()
            If $ip = 1 Then
                MsgBox(0, "Fehler", "Überprüfen Sie Ihre Internetverbindung oder schalten Sie Ihre Firewall aus. Das Programm kann nicht auf das Internet zugreifen.")
            EndIf
            ClipPut($ip)
    EndSwitch
WEnd