使用默认浏览器打开浏览器/URL

Question

我想用我的默认浏览器打开一个 URL。

我尝试使用“ Call Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe -url" & strUrl, 1)”，但 Firefox 无法打开该 URL。相反，Firefox 从我的默认页面开始。

当我使用“ Call Shell(strURL,1)”时，我收到“文件未找到”错误。

Private Sub openurl_Click()
    Dim urlopen As String
    Dim User As String
    Dim pass As String

        urlopen = URL.Value
        User = Username.Value
        'pass = Passwort.Value
        pass = InputBox("Passwort eingeben")
        strUrl = "https://" & User & ":" & pass & "@" & urlopen

        'MsgBox strURL <- TEST OUTPUT

        'Call Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe -t" & strUrl, 1)
        'Call Shell(strURL, 1)

    End Sub

Answer 1

我得到了一个解决方案。也许对这里的某人来说很有趣。

    Private Sub openurl_Click()
    Dim urlopen As String
    Dim User As String
    Dim pass As String

        urlopen = URL.Value
        User = Username.Value
        'pass = Passwort.Value
        pass = InputBox("Passwort eingeben")
        strURL = "cmd /c start https://" & User & ":" & pass & "@" & urlopen

        'MsgBox strURL <- Test Output

        Call Shell(strURL, 1)

End Sub

我添加cmd /c start到strURL字符串中

strURL = "cmd /c start https://" & User & ":" & pass & "@" & urlopen

这似乎是一个“肮脏”的解决方案，但它有效：D