Cómo Ejecutar el Navegador por Defecto y lanzar un fichero HTML.

Este código es para acceder a una dirección URL de Internet desde el programa.

Option Explicit
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

Public Sub WebURL(Formulario As Form, ByRef url As String)
     Dim ret as String

     'Si se produce algún error
     On Error GoTo WebURLBAD
    
     'Pasa la URL
     ret = ShellExecute(Formulario.hwnd, "Open", url, "", App.Path,1)
Exit Sub 
WebURLBAD:    
     'Caja de mensajes
     MsgBox "Error en la dirección o en la conexión internet " & url, vbOKCancel + vbQuestion, "Browser Personal"      
End Sub
Private Sub Form_Load()
    ' Al arrancar se lanza el explorador diriguiendole a CrAzY hOuSe
    WebURL Me, "http://www.e-mision.net/crazyhouse"
End Sub

Como puedes observar al cargar el formulario, se llama a la rutina que abre el navegador indicándole la dirección a buscar.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s