[VisualBasic] Brauch VBS und Batch Hilfe

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von cool_drive, 29. Juni 2007 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 29. Juni 2007
    Brauch VBS und Batch Hilfe

    Versuche jetzt schon seit drei Tagen meinen Router zum reconnecten zu bekommen, jetzt brauch ich aber ne .bat Datei mit der ich den Router zum Reconnecten bekomme.
    Hab zwar ne reconnect Datei von jemanden genommen, doch die geht bei meinem Loader nicht.

    Frage: wie sind die Befehle für das hier
    Code:
    set sh=WScript.CreateObject("WScript.Shell")
    sh.run "Cmd /k Telnet 192.168.1.1"
    WScript.Sleep 500
    sh.SendKeys "Passwort"&vbcr
    WScript.Sleep 500
    sh.SendKeys "24"&vbcr
    WScript.Sleep 500
    sh.SendKeys "4"&vbcr
    WScript.Sleep 500
    sh.SendKeys "1"&vbcr
    WScript.Sleep 500
    
    sh.SendKeys "99"&vbcr
    WScript.Sleep 500
    sh.SendKeys "exit"&vbcr
    
    Wie bekomme ich die so realisiert?

    Da wo die Lücke ist, da soll noch ein Befehl rein für das 'Esc'-Tastendrücken.
    Wäre nett wenn mir jemand helfen würde.
    Hab nur ganz wenig Ahnung von Visual Basic Script^^

    Oder kann mir jemand ne .bat schreiben in dem die Datei aufgerufen wird?
    Dann brauch ich aber noch die Visual Basic Script Befehle für das 'Esc'-Drücken!?

    BIG THX
     
  2. 29. Juni 2007
    AW: .vbs zu .bat umwandeln oder anders -> wie?

    eigentlich ist es nen bissl ot. aber haste es mal mit raoutercontrol versucht?!

    das klappt mit eigentlich ganz schön vielen routern!

    Knusperkeks
     
  3. 29. Juni 2007
    AW: .vbs zu .bat umwandeln oder anders -> wie?

    Funzt mit Routercontrol leider nicht, hab ne andere Firmware, als die die unterstützt werden.

    Oder kann mir jemand die VBS Befehle für die Taste 'Esc' sagen und mir ne .bat schreiben mit der ich die vbs-Datei ausführen kann? oder geht das nicht?
    Ich glaube gelesen zu haben, dass die Batch Befehle nur exe und noch was anderes öffnen können, bin mir aber nicht sicher.
    Wenn jemand lange Weile hat, der könnte mir dann ne .bat und ne .exe schreiben die dann auf die VBS Datei zugreifen.

    BW ist natürlich sicher^^
     
  4. 29. Juni 2007
    AW: Brauch VBS und Batch Hilfe

    Sieht bis jetzt so aus:
    Code:
    set sh=WScript.CreateObject("WScript.Shell")
    sh.run "Cmd /k Telnet 192.168.1.1"
    WScript.Sleep 500
    sh.SendKeys "Passwort"&vbcr
    WScript.Sleep 500
    sh.SendKeys "24"&vbcr
    WScript.Sleep 500
    sh.SendKeys "4"&vbcr
    WScript.Sleep 500
    sh.SendKeys "1"&vbcr
    WScript.Sleep 500
    [B]set ws = CreateObject("Wscript.shell") 
    ws.sendkeys("{ESC}")
    WScript.Sleep 500
    ws.sendkeys("{ESC}")
    WScript.Sleep 500[/B]
    sh.SendKeys "99"&vbcr
    WScript.Sleep 500
    sh.SendKeys "exit"&vbcr
    
    Das dick markierte ist aber ein Fehler, ich weiß aber nicht weiter, wäre nett wenn mir jemand helfen könnte.

    Hab ein wenig gesucht, hab gefunden, das man ne taste als Cancel=true machen soll ->no plan how to do
     
  5. 29. Juni 2007
    AW: Brauch VBS und Batch Hilfe

    was hast du den für einen router?

    und wieso arbeitstst du nicht mit "sh" weiter?
     
  6. 29. Juni 2007
    AW: Brauch VBS und Batch Hilfe

    Router: Zyxel P660HW-T7C Firmware V3.40(AHS.1)

    hab ich schon probiert, aber das nimmt er nicht richtig ab -> er übergeht dann einfach die Esc Eingaben und gibt gleich die 99 ein und dann das exit
    toll, wenn eigentlich bloß Zahlen erlaub sind -> Invalid entry

    du meinst jetzt so:
    Code:
    set sh=WScript.CreateObject("WScript.Shell")
    sh.run "Cmd /k Telnet 192.168.1.1"
    WScript.Sleep 500
    sh.SendKeys "Passwort"&vbcr
    WScript.Sleep 500
    sh.SendKeys "24"&vbcr
    WScript.Sleep 500
    sh.SendKeys "4"&vbcr
    WScript.Sleep 500
    sh.SendKeys "1"&vbcr
    WScript.Sleep 500
    sh.SendKeys "1"&vbcr
    WScript.Sleep 500
    sh.sendkeys("{ESC}")
    WScript.Sleep 500
    sh.sendkeys("{ESC}")
    WScript.Sleep 500
    sh.SendKeys "99"&vbcr
    WScript.Sleep 500
    sh.SendKeys "exit"&vbcr
    ??
    geht nicht so^^
     
  7. 30. Juni 2007
    AW: Brauch VBS und Batch Hilfe

    Code:
    set ws = CreateObject("Wscript.shell") 
    ws.run("Cmd /k Telnet 192.168.1.1")
    wscript.sleep 500
    
    ws.sendkeys ("Passwort")
    ws.sendkeys("{ENTER}")
    wscript.sleep 500
    ws.sendkeys ("24")
    ws.sendkeys("{ENTER}")
    wscript.sleep 500
    ws.sendkeys ("4")
    ws.sendkeys("{ENTER}")
    wscript.sleep 500
    ws.sendkeys ("1")
    ws.sendkeys("{ENTER}")
    wscript.sleep 500
    ws.sendkeys ("1")
    ws.sendkeys("{ENTER}")
    wscript.sleep 500
    ws.sendkeys("{ESC}")
    wscript.sleep 500
    ws.sendkeys("{ESC}")
    wscript.sleep 500
    ws.sendkeys ("99")
    ws.sendkeys("{ENTER}")
    wscript.sleep 500
    ws.sendkeys ("exit")
    ws.sendkeys("{ENTER}")
    Was soll den das ESCAPE bewirken, kann das nicht nachvollziehen, da es zu Telnet keine Anleitung im I-net gibt. Hab nur 1 Bild vom Telnet gesehen.
     
  8. 30. Juni 2007
    AW: Brauch VBS und Batch Hilfe

    plötzlich geht meine Methode auch -> versteh meinen PC eigentlich immer aber jetzt dreht er irgendwie am Rad (oder er hat jetzt aufgehört) ^^

    Hat sich erledigt, hab ne bessere schnellere Reconnectmethode gefunden, die auch bei meinem LUSCHEN-Router funzt.

    ~close~
     
  9. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.