.vbs URL wird via Sendkeys nicht immer aufgerufen

  • VBScript

    .vbs URL wird via Sendkeys nicht immer aufgerufen

    Guten Morgen Zusammen & frohes Ei

    ich möchte gerne mit VBScript einen Firefox-Addon herunterladen und diesen speichern.
    Folgendermaßen habe ich es gelöst. Jedoch scheitert ich daran, dass der Code reibungslos funktioniert.
    Es kommt nämlich vor, dass nach der die URL vor der Enter-Anweisung einfach verschwindet und somit das Addon nicht heruntergeladen werden kann.

    Führt zum Testen diesen Code bitte selbst aus oder gebt mir eine Empfehlung, wie ich den Skript besser schreiben könnte.

    Visual Basic-Quellcode

    1. dim WsShell
    2. Set WsShell = Wscript.CreateObject("Wscript.Shell")
    3. WsShell.AppActivate "[#] Mozilla Firefox-Startseite - Mozilla Firefox [#]"
    4. WsShell.SendKeys ("^{l}"),True
    5. 'WScript.Sleep 1000
    6. WsShell.Sendkeys "https://addons.mozilla.org/firefox/downloads/latest/1865/addon-1865-latest.xpi", True
    7. WScript.Sleep 1000
    8. WsShell.SendKeys "{ENTER}", True
    9. WScript.Sleep 3000
    10. WsShell.Sendkeys "{TAB 2}"
    11. WsShell.SendKeys "{ENTER}"


    Notiz: Zeile 3= Der Firefox wird in einer Sandbox aktiviert, daher die [#] Zeichen.

    Schöne Grüße,
    Dani

Facebook
Telefonspende