Подтвердить что ты не робот

Открытый URL Open Basic с браузером по умолчанию

Edit

Для VB 6

Редактировать конец

Эй, похоже, это должно быть легко исправить, и мне не очень нравится язык Visual Basic, но как я могу открыть URL-адрес в веб-браузере по умолчанию, используя код?

Изменить
Почему я продолжаю получать эту ошибку?

Вызов функции PInvoke 'CrackleMail! WindowsApplication1.FormFinal:: ShellExecute' имеет несбалансированный стек. Вероятно, это связано с тем, что управляемая подпись PInvoke не соответствует неуправляемая целевая подпись. Убедитесь, что соглашение о вызове и параметры PInvoke подпись соответствует целевой неуправляемой сигнатуре.

4b9b3361

Ответ 1

VB.NET:

System.Diagnostics.Process.Start("http://example.com")

VB 6 (не уверен):

Declare Function ShellExecuteA Lib "shell32.dll" ( _
    ByVal hWnd As IntPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Integer) As IntPtr

ShellExecuteA(Me.Handle, "open", "http://example.com", "", "", 4)

Ответ 2

Код в принятом ответе дал мне ошибку компиляции Я получил код ниже от MSDN Использовать ShellExecute для запуска веб-браузера по умолчанию

Private Declare Function ShellExecute _
                            Lib "shell32.dll" _
                            Alias "ShellExecuteA"( _
                            ByVal hwnd As Long, _
                            ByVal lpOperation As String, _
                            ByVal lpFile As String, _
                            ByVal lpParameters As String, _
                            ByVal lpDirectory As String, _
                            ByVal nShowCmd As Long) _
                            As Long

Private Sub Command1_Click()
   Dim r As Long
   r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)
End Sub

Ответ 3

Это просто! Просто используйте метод Wscript createobject

CreateObject("Wscript.Shell").Run "www.example.com"

Ответ 4

Option Explicit

'Link the kernel method that allows a process to be open/spawn

Private Declare Function ShellExecute _
                            Lib "shell32.dll" _
                            Alias "ShellExecuteA" ( _
                            ByVal hwnd As Long, _
                            ByVal lpOperation As String, _
                            ByVal lpFile As String, _
                            ByVal lpParameters As String, _
                            ByVal lpDirectory As String, _
                            ByVal nShowCmd As Long) _
                            As Long

Private Sub mnuAbrirNavegador_Click(Index As Integer)
    OpenUrl("http://www.microsoft.com")
End Sub

Private Sub OpenUrl(ByVal url As String)
    r = ShellExecute(0, "open", url, 0, 0, 1)
End Sub