- Offizieller Beitrag
Hallo
Einige von euch kennen villeicht mein Netgear Router ReConnect Programm. Dies war ja noch beta, funktionierte nur auf deutsch und nur auf XP und nur mit Internet Explorer 6!
Mein jetziges Skript (Bisher noch ohne gui, da Silent ) trennt den Netgear Router und Verbindet ihn neu, und das im Hintergrund, ohne lästige Authentifizierungsmeldung! Praktisch z.B. für CryptLoad als Router ReConnecter
Was mich positiv überrascht, ist das das Skript weitaus schneller den Router neu verbindet als z.B. RouterControl. Dafür funktioniert es ausschließlich mit NETGEAR Routern.
Also, hier nun das Skript, viel spaß damit!
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=server_connection.ico
#AutoIt3Wrapper_outfile=Silent Router ReConnect.exe
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_Res_Comment=Router ReConnect ist nur für Netgear Router!
#AutoIt3Wrapper_Res_Description=Trennt und wiederverbindet Netgear Router
#AutoIt3Wrapper_Res_Fileversion=0.9.5.0
#AutoIt3Wrapper_Res_LegalCopyright=GtaSpider
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;AutoIt Versions Check
If Number(StringReplace(@AutoItVersion, ".", "")) < 3281 Then _ErrorMsg ("This Script probary do not work with you AutoIt Version!"&@CRLF&"Du you want to start it anyway?", 0, 52)
;Includes
#include <GUIConstants.au3>
#include <inet.au3>
#include <ie.au3>
#include <string.au3>
;Options
Opt("Wintitlematchmode",2)
;Globals
Global Const $ProgramVersion = "1.1.0 (Silent Editon)"
Global $old_string = "", $runthis = ""
Global $launchDir = @DesktopDir
Global $Username = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Username")
Global $Userpassword = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword"), "RoUReC3%'§^'", 2)
Global $RouterAdress = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress")
Global $sExpRead = -1
Global $sIExpRead = -1
;Falls RegDaten nicht vorhanden, erstellen.
If $Username = '' Or $Userpassword = '' Or $RouterAdress = '' Then
$guiUserdata = GUICreate("Router ReConnect v" & $ProgramVersion & " - By GtaSpider", 295, 183, 207, 141, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUICtrlCreatePic(@TempDir&"\Rout~\master07_background.jpg", -16, -40, 534, 400)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Router adress:", 160, 16, 80, 15)
GUICtrlSetBkColor(-1, -2)
$inpRouterAdress = GUICtrlCreateInput("www.Routerlogin.com", 160, 32, 121, 21)
GUICtrlCreateLabel("Username:", 160, 56, 55, 15)
GUICtrlSetBkColor(-1, -2)
$inpUsername = GUICtrlCreateInput("admin", 160, 72, 121, 21)
GUICtrlCreateLabel("Passwort:", 160, 96, 50, 15)
GUICtrlSetBkColor(-1, -2)
$inpUserpassword = GUICtrlCreateInput("", 160, 112, 121, 21, $ES_PASSWORD)
$butNext = GUICtrlCreateButton("&Weiter", 160, 138, 121, 25, $BS_DEFPUSHBUTTON)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
CAse $butNext
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Username","REG_SZ",GUICtrlRead($inpUsername))
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword","REG_SZ",_StringEncrypt(1,GUICtrlRead($inpUserpassword), "RoUReC3%'§^'", 2))
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress","REG_SZ",StringLower(StringReplace(GUICtrlRead($inpRouterAdress),"http:\\","")))
ExitLoop
EndSwitch
WEnd
GUIDelete()
Global $Username = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Username")
Global $Userpassword = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword"), "RoUReC3%'§^'", 2)
Global $RouterAdress = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress")
EndIf
Global Const $MomentaryIP = _GetIP()
;Zum Router wird Verbunden
_SetIEOpts()
_ReConnectNetgear($Username,$Userpassword,$RouterAdress)
TrayTip("","Router disconnected! Ping attempt: 0",1)
BlockInput(0)
For $i = 1 To 100
$ping = Ping("www.google.de", 100);Pingt google an, bis kein error
$ping = @error
If Not $ping Then ExitLoop
TrayTip("","Router disconnected! Ping attempt: "&$i,1)
Next
;===============================================================================
;
; Function Name: _ReConnectNetgear
; Description:: ReConnect an Netgear Router
; Parameter(s): $sUsername: The Username is requied to connect to the Router
; $sPassword: The Password is requied to connect to the Router
; $sURL: The URL of the Netgearrouter [DEFAULT: "www.routerlogin.com"]
; $iSHOW: If you want to see the Internet explorer, then set iSHOW to 1 [DEFAULT: 0]
; Requirement(s): #include <ie.au3>
; Return Value(s): -
; Author(s): GtaSpider
;
;===============================================================================
Func _ReConnectNetgear($sUsername,$sPassword,$sURL="www.routerlogin.com",$iSHOW = 0)
Local $oIE = _IECreate("http://"&$sUsername&":"&$sPassword&"@"&$sURL&"/setup.cgi?todo=disconnect", 0, $iSHOW)
_IEQuit($oIE)
EndFunc
Func OnAutoItExit()
_ReloadIEOpts()
EndFunc
Func _SetIEOpts()
$sExpRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe')
If @error Then $sExpRead = -1
$sIExpRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe')
If @error Then $sExpRead = -1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe',"REG_DWORD",0)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe',"REG_DWORD",0)
EndFunc
Func _ReloadIEOpts()
If $sExpRead = -1 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe')
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe',"REG_DWORD",$sExpRead)
EndIf
If $sIExpRead = -1 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe')
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe',"REG_DWORD",$sIExpRead)
EndIf
EndFunc
Func _ErrorMsg ($sText, $iExit = 1, $iMsgOpt = 48)
If MsgBox($iMsgOpt, "Warnung - Router ReConnect v" & $ProgramVersion, $sText) = 7 Or $iExit = 1 Then Exit
EndFunc ;==>_ErrorMsg
Mfg Spider