Ejemplos usando el Api de windows para Visual basic

67 - Bloquear y desbloquear ventanas de windows

Volver al Listado Api - Anterior - Siguiente

El siguiente ejemplo no tiene mucha utilidad, mas bien puede ser práctico para ver como funcionan algunas funciones Api para Activar y desactivar ventanas de windows, aunque no tiene nada de espectacular ya que son muy faciles de usar.

Lo que hace el mismo es , a partir de un nombre de clase de ventana que se especifica en un control Text1, se recorre en un bucle, en busca de todas las ventanas que pertenecen a esa clase (classname).

Para habilitar y deshabilitaras se emplea el api EnabledWindow. Esta función requiere 2 parámetros, el primero es el Hwnd de la ventana en cuestión, el segundo es un valor de tipo Boolean que activa o desactiva la ventana.

Además de la función anterior se utilizan las siguientes: GetWindow, IsWindowVisible, FindWindow y GetClassName

En el ejemplo hay 2 botones, El command1 habilita las ventanas y el Command2 las desactiva. Luego en el text1 debemos colocar el nombre de la clase de ventana para activar o hacer lo contrario

En esta misma muestra, en el Text1 se especifica el nombre de clase " IEFrame ", por lo tanto se bloquearan y desbloquearan todas las ventanas del internet explorer que estén abiertas en ese momento

Colocar los controles como está en la imagen (Text1, Command1 y Command2)

Vista del ejemplo para activar y desactivar ventanas de windows haciendo uso de funciones Api

Código en un form:

Option Explicit 'Declaraciones Api '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Determina mediante el handle si una ventana está visible Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long 'recupera un handle de ventana Private Declare Function GetWindow _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal wCmd As Long) As Long 'Activa y desactive ventanas Private Declare Function EnableWindow _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal fEnable As Long) As Long 'Devuelve Handle de ventanas a partir del nombre de clases y/0 captions de vent Private Declare Function FindWindow _ Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'Recupera el nombre de clase de ventana a partir de su handle Private Declare Function GetClassName _ Lib "user32" _ Alias "GetClassNameA" ( _ ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long 'Constantes Private Const GW_HWNDNEXT = 2 'Ventana siguiente Private Const GW_HWNDFIRST = 0 'Primer ventana 'Valor de retorno para el Hwnd Dim retval As Long '''''''''''''''''''''''''''''''''''''''''''''''''''' 'Activa las ventanas deshabilitadas Private Sub Command1_Click() recorrer_Ventanas Trim$(Text1), True End Sub 'Desactiva las ventanas Private Sub Command2_Click() recorrer_Ventanas Trim$(Text1), False End Sub 'Función que recibe el nombre de la clase de las ventanas a desactivar o para activar '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub recorrer_Ventanas(clase As String, Accion As Boolean) Dim Handle As Long, Buffer As String * 250, strClass As String 'Buscamos la primier ventana Handle = FindWindow(clase, vbNullString) 'recorremos las demás 'cuando el Handle es 0 no hay mas Do While Handle <> 0 'Si la ventana está visible If IsWindowVisible(Handle) Then 'Recuperamos el nombre de clase en el Buffer GetClassName Handle, Buffer, 250 'Eliminamos los nulos strClass = Replace(Buffer, Chr(0), "") 'si es la clase que queremos desactivar If strClass = clase Then 'activamos o desactivamos de acuerdo a la variable accion EnableWindow Handle, Accion End If End If 'Buscamos el handle de la Proxima ventana Handle = GetWindow(Handle, GW_HWNDNEXT) Loop End Sub 'Valores de los controls Private Sub Form_Load() Command1.Caption = "Activar" Command2.Caption = "Desactivar" Text1.Text = "IEFrame" 'Ventanas del IeText1 = "IEFrame" End Sub

Nota la función que permite averiguar si una ventana está o no Habilitada en windows ( propiedad enabled ) .. es la función api IsWindowEnabled

Buscar en Recursos vb