URL entweder mit Firefox oder IE öffnen

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von fslive93.

    URL entweder mit Firefox oder IE öffnen

    Hallo ;

    Ich bin ein ziemlicher Neuling in Sachen vbscripting.Ich hab ein Problem mit dem folgenden Code:
    Zuerst kommt die URL abfrage wenn man die eingegeben hat sollte man zur nächsten InputBox kommen wo man dann Auswähln kann mit welchen browser gestartet werden soll und das klappt einfach nicht hab schon den ganzen tag herumprobiert und gegoogelt konnte das gefundene aber nicht anwenden BITTE UM HILFE :)

    Visual Basic-Quellcode

    1. url = InputBox( "Gib eine URL ein: " )
    4. Sub Auswahlbox()
    6. Dim Auswahl, strButtonName, vbinternetexplorer, vbfirefox
    7. vbinternetexplorer = "Iexplore.exe"
    8. vbfirefox = "Firefox.exe"
    11. Auswahl = Inputbox("Welchen Browser wollen Sie starten?" _
    12. & vbCrLf & "0 = Beenden" _
    13. & vbCrLf & "1 = Iexplore" _
    14. & vbCrLf & "2 = Firefox" )
    17. If Len(Auswahl) = 0 or Auswahl = 0 Then
    18. Wscript.quit
    19. End If
    21. If Auswahl = 1 Then
    23. Set WSHShell = WScript.CreateObject("WScript.Shell")
    25. sOutputFile = "Firefox.exe"
    26. WSHShell.Run ( prog )
    28. Else If Auswahl = 2 Then
    30. Call Firefox.exe()
    32. End If
    33. End If
    36. End Sub

    Visual Basic-Quellcode

    1. Auswahlbox()
    3. Sub Auswahlbox()
    5. Dim Auswahl, strButtonName, vbinternetexplorer, vbfirefox, url
    6. vbinternetexplorer = "iexplore.exe"
    7. vbfirefox = "firefox.exe"
    8. url = InputBox( "Gib eine URL ein: " )
    10. Auswahl = Inputbox("Welchen Browser wollen Sie starten?" _
    11. & vbCrLf & "0 = Beenden" _
    12. & vbCrLf & "1 = Iexplore" _
    13. & vbCrLf & "2 = Firefox" )
    15. Set WSHShell = WScript.CreateObject("WScript.Shell")
    16. Select Case Auswahl
    17. Case 1
    18. WSHShell.run(vbinternetexplorer & " """ & url & """)
    19. Case 2
    20. WSHShell.run(vbfirefox & " """ & url & """)
    21. Case else
    22. Wscript.quit
    23. End Select
    24. set WSHShell = nothing
    25. End Sub


    um an deinem BSP zu bleiben, so geht es
    *EDIT*

    Sorry, mit den Gäsefüsschen verrutscht, auf Hinweis von Peterfido editiert.
    Allerdings sidn die Gänsefüsschen hier gar nicht zwingend erforderlich.

    gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mono“ ()