Ejemplos usando el Api de windows para Visual basic

39 - Obtener y listar las ventanas de Windows - solo las visibles

En la sección de trucos hay un ejemplo similar a este que lista las ventanas y procesos abiertos de windows, además con la posibilidad de cerrarlos.

Pero en este ejemplo solo se listan las ventanas visibles y no los procesos que estén corriendo en el sistema. Por lo tanto el ejemplo es mas simple, además porque no incluye la opción de poder matar dichos procesos, es decir solo listarlas las ventanas.

Vista previa del control Listbox con las ventanas de windows abiertas

Uso del Api para listar y obtener las ventanas abiertas de windows

Para esto se utilizan las siguientes funciones del API

Api GetWindow:

Esta es la función Api que busca las ventanas y retorna su handle o Hwnd

Api GetWindowText:

Esta función devuelve el texto o caption de la ventana. Se le pasa el hwnd de la misma, y en un buffer donde se almacenará el texto devuelto, y el Lenght de la cadena en el último parámetro que obtuvimos con el Api GetWindowTextLength

GetWindowTextLength:

Esta función retorna el número de caracteres del caption de la ventana, osea la longitud de la cadena que es necesaria para usarla con GetWindowtext

IsWindowVisible

Esta función Api devuelve un valor Boolean indicando si la ventana es una ventana visible.

Colocar un List1 y un Command1.

Código fuente en el Form1

Option Explicit 'Esta función Api devuelve un valor Boolean indicando si la ventana es una ventana visible Private Declare Function IsWindowVisible _ Lib "user32" ( _ ByVal hWnd As Long) As Long 'Esta función retorna el número de caracteres del caption de la ventana Private Declare Function GetWindowTextLength _ Lib "user32" _ Alias "GetWindowTextLengthA" ( _ ByVal hWnd As Long) As Long 'Esta devuelve el texto. Se le pasa el hwnd de la ventana, un buffer donde se 'almacenará el texto devuelto, y el Lenght de la cadena en el último parámetro 'que obtuvimos con el Api GetWindowTextLength Private Declare Function GetWindowText _ Lib "user32" _ Alias "GetWindowTextA" ( _ ByVal hWnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long 'Esta es la función Api que busca las ventanas y retorna su handle o Hwnd Private Declare Function GetWindow _ Lib "user32" ( _ ByVal hWnd As Long, _ ByVal wFlag As Long) As Long 'Constantes para buscar las ventanas mediante el Api GetWindow Private Const GW_HWNDFIRST = 0& Private Const GW_HWNDNEXT = 2& Private Const GW_CHILD = 5& '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Procedimiento que lista las ventanas visibles de Windows Private Sub Listar() Dim buf As Long, handle As Long, titulo As String, lenT As Long, ret As Long List1.Clear 'Obtenemos el Hwnd de la primera ventana, usando la constante GW_HWNDFIRST handle = GetWindow(hWnd, GW_HWNDFIRST) 'Este bucle va a recorrer todas las ventanas. 'cuando GetWindow devielva un 0, es por que no hay mas Do While handle <> 0 'Tenemos que comprobar que la ventana es una de tipo visible If IsWindowVisible(handle) Then 'Obtenemos el número de caracteres de la ventana lenT = GetWindowTextLength(handle) 'si es el número anterior es mayor a 0 If lenT > 0 Then 'Creamos un buffer. Este buffer tendrá el tamaño con la variable LenT titulo = String$(lenT, 0) 'Ahora recuperamos el texto de la ventana en el buffer que le enviamos 'y también debemos pasarle el Hwnd de dicha ventana ret = GetWindowText(handle, titulo, lenT + 1) titulo$ = Left$(titulo, ret) 'La agregamos al ListBox List1.AddItem titulo$ End If End If 'Buscamos con GetWindow la próxima ventana usando la constante GW_HWNDNEXT handle = GetWindow(handle, GW_HWNDNEXT) Loop End Sub Private Sub Command1_Click() 'Llamamos a la función Listar Call Listar End Sub

Enlaces relacionados

Buscar en Recursos vb