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

23 - Detectar si se hizo Click en cualquier ventana de Windows

Lo que hace este ejemplo es poder detectar cuando se hizo clic en una ventana cualquiera de Windows.

Para el mismo se utilizan estas tres funciones del api de windows

GetwindowText
GetForegroundWindow
GetAsyncKeyState

Mediante GetForegroundWindow lo que hacemos es recuperar el Hwnd de la ventana activa

Una ves que tenemos el Hwnd, utilizamos GetwindowText para recuperar el Caption de la ventana, es decir el texto de la barra de título

La otra función Api llamada GetAsyncKeyState, nos permite saber cuando hicimos un Click en cualquier lugar de windows, si hicimos click con el botón izquierdo del mouse, el Api devuelve el valor 1, si hicimos click con el botón derecho nos devuelve el valor 2, los demás valores que puede devolver esta función son los valores que corresponden a los números de los códigos de las teclas, es decir no solo devuelve un valor para el mouse si no también para el teclado, pero en este ejemplo solo se consulta dentro de un timer si devuelve el valor 1, es decir si hicimos un clic

Cuando se produce un clic, se imprime el título de la ventana en el formulario, por ejemplo :

vista del formulario con los caption de la ventanas de windows en las que se hicieron clic

Controles

En un Formulario colocar un control Timer con el interval en 100 o a gusto pero inferior al segundo.

Código fuente en un Form

Option Explicit 'Función Api GetWindowText Private Declare Function GetWindowText _ Lib "user32" _ Alias "GetWindowTextA" ( _ ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long 'Función Api GetForegroundWindow Private Declare Function GetForegroundWindow Lib "user32" () As Long 'Función Api GetAsyncKeyState Private Declare Function GetAsyncKeyState _ Lib "user32" ( _ ByVal vKey As Long) As Integer Private Sub Form_Load() MsgBox " Hacé clic en cualquier ventana de Windows " Me.AutoRedraw = True Timer1.Interval = 1 End Sub 'Nota: probar con distintos intervalos de timer Private Sub Timer1_Timer() 'El valor que mandamos a la función es para que consulte si se _ ha hecho click, el 1 el botón izq y el 2 el derecho. Si dá verdadero retorna _ 32737, y si es así llamamos a la función para capturar el _ caption de la ventana activa 'si se ha pulsado el botón izquierdo If GetAsyncKeyState(1) = -32767 Then retVentanaActiva End If 'si se ha pulsado el botón derecho If GetAsyncKeyState(2) = -32767 Then retVentanaActiva End If End Sub 'Procedimiento para capturar el caption de la ventana activa Private Sub retVentanaActiva() Dim Handle As Long Dim buffer As String 'recuperamos el Handle de la ventana activa Handle = GetForegroundWindow If Handle = 0 Then Exit Sub 'BUFFER PARA EL CAPTION DE LA VENTANA buffer = Space(255) 'RECUPERAMOS EL CAPTION Call GetWindowText(Handle, buffer, 255) 'Le quitamos los espacios nulos a la cadena buffer = Trim$(buffer) buffer = left(buffer, Len(buffer) - 1) 'Imprimimos el caption de la ventana en el formulario Me.Print ">> Se hizo Click en : " & Trim$(buffer) End Sub

Buscar en Recursos vb