Hi ich mal wieder^^
ich hab vorher nix zu tun gehabt und hab schnell diesen IP-Changer hier geschrieben
Source:
Spoiler anzeigen
#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
Func _ip()
$aktuelleip = _GetIP()
_GUICtrlIpAddress_Set($IPAddress1, $aktuelleip)
EndFunc
Bitte gebt ein wenig Feedback und vielleicht bugs/verbesserungsvorschläge
Im anhang ist der Sourcecode, die compilierte Exe und die benötigten dateien
Padmak
Edit: So die cmd.au3 ist nun auch mit dabei^^
ich hatte gehofft dass dadurch wer meinen anderen thread damit anschaut (nur scherz ich habs einfach vergessen )
und an den anderen router arbeite ich
welche hättet ihr gerne?
die füg ich dann als erstes ein