URL de Visual Basic abierto con el navegador por defecto

Question

Editar

para VB 6

Fin Editar

Hey esto parece que debe ser una solución fácil y no me gusta especialmente el lenguaje de Visual Basic, pero ¿cómo abriría una URL en el navegador web predeterminado, usando el código?

Editar
¿Por qué sigo recibiendo este error?

Una llamada a la función PInvoke 'CrackleMail! WindowsApplication1.FormFinal :: ShellExecute' tiene desequilibrada la pila. Esto es probable porque la firma de PInvoke administrada no coincide con la firma de destino no administrada . Compruebe que la convención de llamada y los parámetros de la firma PInvoke coinciden con la firma no administrada de destino.

Answer 1

VB.NET:

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

VB 6 (no estoy seguro):

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) 

Answer 2

El código en la respuesta aceptada dio un error de compilación para mí me dieron el código de abajo de MSDN Use ShellExecute to launch the default Web browser

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 

Answer 3

It i ¡es simple! sólo tiene que utilizar el método Wscript createobject

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

Answer 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