Hallo Liebe Leute da es mir immer zu mühsam war meinen Router eine neue Ip zu verpassen habe ich ein kleines Script geschrieben das die ganze sache deutlich vereinfacht.
Vorzugsweise für den Typ A falls jemand ein Typ B oder C hat wäre es echt nice wenn ihr schreiben könntet ob es bei euch auch funktioniert.
Spoiler anzeigen
AutoIt
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=y
#NoTrayIcon
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Winhttp.au3>
#include <crypt.au3>
#include <string.au3>
Global Const $pInI = @ScriptDir & "\speedportmanager.ini"
$hspeedportIP = IniRead($pInI,"Config","whosis","http://192.168.2.1")
$hspeedportPW = IniRead($pInI,"Config","pw","")
$sAgent = IniRead($pInI,"Config","UserAgent","")
If Not FileExists($pInI) Then
$hspeedportIP = InputBox("first start","Wenn sie den Speedport Reconnector zum erstmal starten haben sie die möglichkeit den Pfad zum Speedport anzugeben. Standart Ip " & $hspeedportIP,$hspeedportIP)
If Not $hspeedportIP Then
MsgBox(64,"Error","Sie haben keinne angaben gemacht das Programm wird jetzt beendet")
Exit
Else
IniWrite($pInI,"Config","whosis",$hspeedportIP)
EndIf
EndIf
$hnetOpen = _WinHttpOpen($sAgent)
$hnetConnect = _WinHttpConnect($hnetOpen,$hspeedportIP)
$hnetGet = _WinHttpSimpleRequest($hnetConnect,"GET","/html/login/index.html")
If Not $hnetGet Or @error Then
MsgBox(64,"Error","Router ist unter " & $hspeedportIP & " nicht erreichbar")
_exit()
EndIf
If Not $hspeedportPW Then
$xInput = InputBox("Router Password","Bitte geben sie ihr Router Password in das Eingabefeld ein")
If Not $xInput Then _exit()
$hspeedportPW = _Crypt_HashData($xInput,$CALG_MD5)
$hspeedportPW = StringTrimLeft($hspeedportPW,2)
IniWrite($pInI,"Config","pw",$hspeedportPW)
EndIf
$hnetGet = _WinHttpSimpleRequest($hnetConnect,"POST","/data/Login.json","","csrf_token=nulltoken&password=" & StringLower($hspeedportPW) & "&showpw=0")
$hnetToken = _WinHttpSimpleRequest($hnetConnect,"GET","/html/content/internet/connection.html")
$hnetToken = _StringBetween($hnetToken,'var csrf_token = "','"')
If @error Then
MsgBox(64,"Error","Sicherheitstoken konnte nicht erzeugt werden. Bitte wenden sie sich an den Autor des Programmes.")
_exit()
EndIf
$hnetToken = $hnetToken[0]
$hnetDisable = _WinHttpSimpleRequest($hnetConnect,"POST","/data/Connect.json","","req_connect=disabled&csrf_token=" & $hnetToken)
Sleep(2000)
$hnetEnable = _WinHttpSimpleRequest($hnetConnect,"POST","/data/Connect.json","","req_connect=online&csrf_token=" & $hnetToken)
_exit()
Func _exit()
_WinHttpCloseHandle($hnetConnect)
_WinHttpCloseHandle($hnetOpen)
Exit
EndFunc