Apache OpenOffice: Foro oficial de la comunidad

Código: Seleccionar todo

Sub explor ()

    Dim URL,WshShell                                                                        
    Set WshShell = CreateObject("WScript.shell")                                            ' Iniciamos WScript.shell
    '-----------------------------------------------------------
    ' Abrimos una página en concreto con el explorador que queremos
    
    URL = "https://novedades.orange.es"                                                     ' página de publicidad
    WshShell.run "CMD /C start iexplore.exe " & URL & "",0,False                            ' Abre el explorer con la página anteriormente solicitada

End Sub

Código: Seleccionar todo

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (lpClassName,lpWindowName) As Long

Sub Comprobar

    Dim ret As Long, ArrayNavegadores(), Clas As String, Pro As String                      ' Variables

    ArrayNavegadores() = Array("IEFrame", "MozillaWindowClass", "Chrome_WidgetWin_1")       ' Array de clases de los navegadores
    '----------------------------------------
    ' Recorremos todas las clases
    
    For i= LBound(ArrayNavegadores()) To UBound(ArrayNavegadores())                         ' Ciclo que recorre el array
    Clas=ArrayNavegadores(i)                                                                ' La clase del momento
    ret = FindWindow(clas, NULL)                                                            ' Llama la función
    '---------------------------------------
    ' Traducimos al nombre del explorador
    
    If Clas= "IEFrame" Then                                                                 ' Si la clase es IEFrame   
      Pro= "Explorer"                                                                       ' Es Explorer
    End if                                                                                  ' Acaba la condición

    If Clas= "MozillaWindowClass" Then                                                      ' Si la clase es MozillaWindowClass
      Pro= "Mozilla"                                                                        ' Es Mozilla
    End if                                                                                  ' Acaba la condición

    If Clas= "Chrome_WidgetWin_1" Then                                                      ' Si la clase es Chrome_WidgetWin_1
      Pro= "Chrome"                                                                         ' Es Chrome
    End if                                                                                  ' Acaba la condición
    '----------------------------------------
    ' si ret es distinto de 0 es porque la encontró

    If ret <> 0 Then                                                                        ' Si es distinto de 0
        MsgBox "La aplicación  " & Pro & "  está abierta"                                   ' Nos avisa de que el navegador está abierto
    Else                                                                                    ' Si es 0
        MsgBox "La aplicación  " & Pro & "  NO está abierta"                                ' Nos avisa de que el navegador no está abierto
    End If                                                                                  ' Acaba la condición
    Next                                                                                    ' Vamos al siguiente elemento del array

End Sub