Ejemplos usando el Api de windows para Visual basic

142 - Finalizar las ventanas abiertas a partir del caption

Volver al Listado Api - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Esta rutina utiliza las funciones Api EnumWindows, GetWindowText y SendMessage.

La primer función se encarga de enumerar y listar las ventanas. GetWindowText devuelve el caption de la misma y SendMessage para cerrarla

También hay otra función a la cual se le envía el texto que debe contener la misma para determinar si se cierra o no, por ejemplo si enviamos

Call Cerrar_ventana(" Google ")

.. se finalizarán todas las que contengan dicha frase en el caption

Se necesita: un módulo bas para declarar el procedimiento que enumera las ventanas, y un CommandButton en el Formulario.

Nota: asi como está planteado el ejemplo, el título a cerrar distingue de mayúsculas y minúsculas. Para que no haga caso de esto, una forma es colocando en el módulo bas la instrucción Option Compare Text

Código fuente en el Form:

Option Explicit Private Sub Command1_Click() 'Cierra todas las ventanas donde el título de la _ misma contenga la palabra Google Call Cerrar_ventana("Google") End Sub Private Sub Form_Load() Command1.Caption = " Cerrar " End Sub

Código a colocar en el módulo BAS

Option Explicit 'Declaraciónes apis ' Lista las ventanas Declare Function EnumWindows Lib "user32" ( _ ByVal wndenmprc As Long, _ ByVal lParam As Long) As Long 'Recupera el texto de la misma Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _ ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long 'Para finalizar dicha ventana Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long 'Constantes para usar con SendMessage Const WM_SYSCOMMAND = &H112 Const SC_CLOSE = &HF060& 'Almacena el caption de la vaentana a cerrar Private El_titulo As String '------------------------------------------------------------- ' Recibe el título parcial o igual de las ventanas a cerrar Public Sub Cerrar_ventana(El_Caption As String) El_titulo = El_Caption Call EnumWindows(AddressOf EnumCallback, 0) End Sub ' Función para recorrer las ventanas abiertas Public Function EnumCallback(ByVal A_hwnd As Long, _ ByVal param As Long) As Long Dim buffer As String * 256 Dim Titulo_Win As String Dim Size_buffer As Long 'Retorna la cantidad de caracteres del título de la ventana actual Size_buffer = GetWindowText(A_hwnd, buffer, Len(buffer)) 'Elimina los espacios nulos de la cadena Titulo_Win = Left$(buffer, Size_buffer) 'si se encuentra la cadena en el caption de la ventana se cierra If InStr(Titulo_Win, El_titulo) <> 0 Then ' Finaliza la ventana SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0& End If ' Esto continúa enumerando las siguientes ventanas de windows EnumCallback = 1 End Function

Ejemplo 2

Cerrar programa o ventana a partir del Class Name

Este otro proyecto de ejemplo, es muy similar al anterior, es decir enumera las ventanas abiertas en windows con el Api EnumWindows

Pero en ves de cerrarlas a partir del título de la ventana como en el caso anterior, lo hace a partir del nombre de clase de la misma, que se recupera con Api getClassName.

El código , chequea mediante un timer, si la clase es IeFrame, que es la del internet explorer, y se encuentra abierta la cierra

Código fuente en un formulario ( Agregar un control timer )

Private Sub Form_Load() Timer1.Interval = 50 End Sub Private Sub Timer1_Timer() ' nombre de clase de las ventanas del internet explorer Call Cerrar_ventana("ieFrame") End Sub

Este otro código en un módulo bas

Option Explicit ' EnumWindows Lista las ventanas Declare Function EnumWindows Lib "user32" ( _ ByVal wndenmprc As Long, _ ByVal lParam As Long) As Long 'SendMessage Para finalizarla Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long ' GetClassName recupera el nombre de clase Private Declare Function GetClassName Lib "user32" Alias _ "GetClassNameA" ( _ ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long 'Constantes para usar con SendMessage y poder cerrar Const WM_SYSCOMMAND = &H112 Const SC_CLOSE = &HF060& Private sClase As String ' Recibe el nombre de clase de ventana a cerrar. _ en este caso IeFrame Sub Cerrar_ventana(Clase As String) sClase = Clase Call EnumWindows(AddressOf EnumCallback, 0) End Sub ' función que enumera '''''''''''''''''''''''''''''''''''' Private Function EnumCallback(ByVal A_hwnd As Long, _ ByVal param As Long) As Long Dim ret As Long ' cheaque el nombre con la actual ventana If LCase(sClase) = LCase(ObtenerClase(A_hwnd)) Then 'cierra ret = SendMessage(A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&) End If EnumCallback = 1 ' prosigue la enumeración End Function Private Function ObtenerClase(lHwnd As Long) Dim ret As Long Dim ClassName As String 'Buffer ClassName = Space$(128) 'Recupera el nombre de clase y lo devuelve en el Buffer ret = GetClassName(lHwnd, ClassName, 128) 'Quita los espacios nulos del buufer ClassName = LCase(Left$(ClassName, ret)) 'retorno ObtenerClase = ClassName End Function

Relacionados

Buscar en Recursos vb