Sección de códigos , trucos y ejemplos para visual basic

60 - Saber si está abierto el Internet Explorer u otras ventanas o aplicaciones mediante los nombre de clase de ventanas

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Este ejemplo muestra como comprobar si se encuentra abierta algún tipo de programa o ventana usando el Api

Para hacer esto, se puede usar el Api FindWindow que busca una ventana ya sea por el caption "titulo" o el nombre de clase de la ventana, devolviendo el hwnd de la misma si es que la encontró. ( En este se buscará por el nombre de clase o className )

Por ejemplo el Internet explorer usa un tipo de Clase de ventana llamada IEFrame, de esta manera si ejecutamos la función FindWindow, pasándole este valor como parámetro, y si el Internet explorer se encuentra abierto, la funcion Api devuelve el handle o hwnd de la primer ventana que encuentra.

ret = FindWindow("IEFrame", vbNullString)

Nota: en este ejemplo se comprueba si se encuentran abiertas las aplicaciones : Internet explorer (IEFrame), Microsoft Excel ( XlMain ), el Outlook (OpusApp), el Ide del Visual basic ( wndclass_desked_gsk ) y el bloc de notas ( Notepad )

Si querés ver un ejemplo simple de como averiguar el nombre de clase de una ventana mediante la función GetClassName , lo podés ver en este enlace :

Hwnd, caption y ClassName de una ventana con el API

Controles para el ejemplo

Agregar al formulario 5 controles Command Button como muetra la imágen:

Determinar mediante el Api FindWindow y los nombres de clase de ventanas, si un programa está ejecutandose o cargado

Código fuente en un formulario

Option Explicit 'Constantes para los nombres de clases ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Algunos nombres de clase de ventanas El Outlook Const MSOutlook = "OpusApp" 'El Excel Const MSExcel = "XLMAIN" 'El Internet Explorer Const MSIExplorer = "IEFrame" Const MSVBasic = "wndclass_desked_gsk" 'El bloc de notas Const NotePad = "Notepad" 'Formularios de Visual basic Const MyVBApp = "ThunderForm" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Funciòn APi para buscar Ventanas de Windows Private Declare Function FindWindow _ Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Sub Comprobar(clase As String) Dim ret As Long ' busca la ventana y retorna el Handle ret = FindWindow(clase, vbNullString) 'si retorna distinto _ de 0 es porque la encontró If ret <> 0 Then MsgBox "La aplicación está abierta", vbInformation + vbOKOnly Else MsgBox "La aplicación NO está abierta", vbInformation + vbOKOnly End If End Sub Private Sub Command1_Click() ' Para comprobar si está abierto el Internet explorer Comprobar MSIExplorer End Sub Private Sub Command2_Click() ' Para comprobar si está abierto el Microsoft Excel Comprobar MSExcel End Sub Private Sub Command3_Click() ' Para comprobar si está abierto el Microsoft OutLook Comprobar MSOutlook End Sub Private Sub Command4_Click() ' Para comprobar si está abierto formularios de Visual Basic Comprobar MSVBasic End Sub Private Sub Command5_Click() ' Para comprobar si está abierto el Bloc de notas Comprobar NotePad End Sub Private Sub Form_Load() Command1.Caption = " Internet Explorer " Command2.Caption = " Microsoft Excel " Command3.Caption = " Microsoft Outlook " Command4.Caption = " Visual basic " Command5.Caption = " Bloc de notas " End Sub

Ejemplo 2

Este ejemplo es igual al anterior, pero buscará las aplicaciones internet explorer, Excel y el bloc de notas. Si encuentra alguna instancia abierta, guarda en un archivo de texto la hora en que se abrió, el nombre de la aplicación, y el título de la ventana que en este caso se extrae con la función GetwindowText. El ejemplo es solo una demostración, y se le pueden agregar muchas otras opciones y funciones.

Añadir

Un módulo de clase llamado : cCheckApps
Agregar un Timer al formulario principal

Código fuente en el módulo de clase llamado cCheckApps

Option Explicit ' \\ -- Declaraciones ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' -- Funciòn para buscar las Ventanas de acuerdo a su clase Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ' -- Obtener el título de la ventana Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long ' \\ -- Variables Private mColClassNames As Collection ' -- Colección con las clases Private mColHwnd As Collection ' -- Colección con los Hwnd Event GetApp(ByVal sClassName As String, sCaption As String) Event Reset() ' \\ -- Propiedades Property Get ColClassNames() As Collection Set ColClassNames = mColClassNames End Property Property Get ColHwnds() As Collection Set ColHwnds = mColHwnd End Property ' ---------------------------------------------------------------------------- ' \\ -- Sub para verificar las ventanas abiertas -- recibe el nombre de clase ' -- si se encuentra lo notifica en el evento GetApp ' ---------------------------------------------------------------------------- Sub Check(sClassName As String) Dim lHandle As Long ' -- Buscar la ventana y retorna el Handle lHandle = FindWindow(sClassName, vbNullString) ' -- si retorna distinto de 0 es porque la encontró If lHandle Then Dim xItem As Variant For Each xItem In mColHwnd If CLng(xItem) = lHandle Then Exit Sub Next mColHwnd.Add lHandle, "_" & CStr(lHandle) RaiseEvent GetApp(sClassName, GetWindowCaption(lHandle)) End If End Sub ' ---------------------------------------------------------------------------- ' \\ -- Retornar el título de la ventana ' ---------------------------------------------------------------------------- Function GetWindowCaption(lHandle As Long) As String Dim sCaption As String sCaption = String(GetWindowTextLength(lHandle), Chr$(0)) Call GetWindowText(lHandle, sCaption, 100) GetWindowCaption = sCaption End Function Sub Reset() Set mColClassNames = Nothing Set mColHwnd = Nothing Call Class_Initialize RaiseEvent Reset End Sub Private Sub Class_Initialize() Set mColClassNames = New Collection Set mColHwnd = New Collection End Sub Private Sub Class_Terminate() Set mColClassNames = Nothing Set mColHwnd = Nothing End Sub

código fuente en el formulario

Option Explicit ' ------------------------------------------------------------------------- ' \\ -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar ' ------------------------------------------------------------------------- ' \\ -- Declaraciones ' ------------------------------------------------------------------------- Private WithEvents cCheck As cCheckApps ' ----------------------------------------------------------------------------- ' \\ -- Evento cuando se abre una ventana ' ----------------------------------------------------------------------------- Private Sub cCheck_GetApp(ByVal sClassName As String, sCaption As String) Dim nFile As Integer Dim sAppName As String ' -- Abrir archivo de texto nFile = FreeFile Open App.Path & "\data.txt" For Append As #nFile ' -- Nombre de la aplicación Select Case sClassName Case "XLMAIN": sAppName = "Microsoft Excel" Case "IEFrame": sAppName = "Internet explorer" Case "Notepad": sAppName = "Bloc de notas" End Select ' -- Escribir los datos en el archivo de texto Print #nFile, sAppName & " -- Abierto a las: " & CStr(Time); 6; " -- Título de la ventana: "; sCaption Close #nFile End Sub Private Sub Form_Load() Set cCheck = New cCheckApps ' -- Agregar nombres de clases With cCheck .ColClassNames.Add "XLMAIN" .ColClassNames.Add "IEFrame" .ColClassNames.Add "Notepad" End With ' -- Configurar el timer que verifica las ventanas With Timer1 .Enabled = True .Interval = 1000 End With MsgBox "Abrir el internet explorer, el bloc de notas o el Excel. Luego los datos se escriben en " & App.Path & "\data.txt" End Sub Private Sub Form_Unload(Cancel As Integer) Set cCheck = Nothing End Sub Private Sub Timer1_Timer() ' -- Veirificar Dim xItem As Variant With cCheck For Each xItem In .ColClassNames Call .Check(CStr(xItem)) Next End With End Sub

Enlaces relacionados

Buscar en Recursos vb