003
18.05.2007, 19:19 Uhr
Uwe
C/C++ Master
(Administrator)
|
Verbinden
| Visual Basic: |
On Error Resume Next
Function CodeStr(ByVal strSource)
While Len(strSource) > 0
CodeStr = CodeStr & Chr(Asc(strSource) Xor 169 + Len(strSource))
strSource = Right(strSource, Len(strSource) - 1)
Wend
End Function
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\VB\ "
PW = CodeStr(Sh.RegRead(key & "Router\strPasswort"))
if Err.Number <> 0 Then
PW = InputBox("Bitte Routerpasswort eingeben !", "Routerpasswort")
Sh.RegWrite key & "Router\strPasswort", CodeStr(PW), "REG_SZ"
end if
IP = Sh.RegRead(key & "Router\Router_IP")
if Err.Number <> 0 Then
IP = InputBox("Bitte Router IP eingeben !", "Router IP")
Sh.RegWrite key & "Router\Router_IP", IP, "REG_SZ"
end if
url = "http://" & IP & "/start.login"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("POST", url, FALSE)
objHTTP.Send("P1=" & PW)
url = "http://" & IP & "/pppctl.cmd?action=1"
Call objHTTP.Open("GET", url, FALSE)
objHTTP.Send
|
Trennen
| Visual Basic: |
On Error Resume Next
Function CodeStr(ByVal strSource)
While Len(strSource) > 0
CodeStr = CodeStr & Chr(Asc(strSource) Xor 169 + Len(strSource))
strSource = Right(strSource, Len(strSource) - 1)
Wend
End Function
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\VB\ "
PW = CodeStr(Sh.RegRead(key & "Router\strPasswort"))
if Err.Number <> 0 Then
PW = InputBox("Bitte Routerpasswort eingeben !", "Routerpasswort")
Sh.RegWrite key & "Router\strPasswort", CodeStr(PW), "REG_SZ"
end if
IP = Sh.RegRead(key & "Router\Router_IP")
if Err.Number <> 0 Then
IP = InputBox("Bitte Router IP eingeben !", "Router IP")
Sh.RegWrite key & "Router\Router_IP", IP, "REG_SZ"
end if
url = "http://" & IP & "/start.login"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("POST", url, FALSE)
objHTTP.Send("P1=" & PW)
url = "http://" & IP & "/pppctl.cmd?action=0"
Call objHTTP.Open("GET", url, FALSE)
objHTTP.Send
|
Bei dem Router nicht getestet!!
Aber probier's mal aus. Bei dem Telekomzeugs sollte es aber funzen. (zwei .vbe Dateien anlegen)
Viel Glück...
| Bearbeitung von Uwe: |
Registry Zugriff geändert.
|
| Bearbeitung von FloSoft: |
hab mal die Parserfehler umgangen
|
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."
Bis dann...
Uwe
Dieser Post wurde am 18.05.2007 um 20:34 Uhr von FloSoft editiert. |
