Ejemplos usando el Api de windows para Visual basic

88 - Averiguar el Hwnd, caption y ClassName de una ventana con el mouse

Volver al Listado Api - Anterior - Siguiente

Las funciones Api de este ejemplo que permite averiguar información de las ventanas al colocar el Mouse por encima son:

WindowFromPoint
GetCursorPos
GetClassName
GetParent
GetWindowText
GetWindowTextLength

El código se encuentra dentro de un Timer que imprime en el formulario los valores:

El Api que obtiene el Handle a partir de una coordenada X, Y, es WindowFromPoint en conjunto con GetCursorPos.

La función que recupera el Hwnd del Parent window es GetParent.

LA función GetClassName devuelve un buffer con el nombre de clase de ventana

GetWindowText en conjunto con GetWindowTextLenght devuelve un buffer con el texto o caption de dicha ventana

Controles:

Colocar un Timer en el formulario.

Código fuente en el form

Option Explicit '* Colocar un control Timer llamado Timer1 ''''''''''''''''''''''''''''''''''''''''''''''' 'Declaraciones APi ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Obtiene el Handle de una ventana a partir de una coordenada Private Declare Function WindowFromPoint _ Lib "user32" ( _ ByVal xPoint As Long, _ ByVal yPoint As Long) As Long 'Recupera la coordenada del cursor Private Declare Function GetCursorPos _ Lib "user32" ( _ lpPoint As POINTAPI) As Long 'Recupera el nombre de la 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 'REcupera el Handle de la ventana padre de una ventana Private Declare Function GetParent _ Lib "user32" ( _ ByVal hwnd As Long) As Long 'Estas 2 funciones obtienen el Caption 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 ' Retorna la cantidad de caracteres del caption de la ventana Private Declare Function GetWindowTextLength _ Lib "user32" _ Alias "GetWindowTextLengthA" ( _ ByVal hwnd As Long) As Long ' Estructuras '''''''''''''''''''' ' Estructura POINTAPI para usar con WindowFromPoint Private Type POINTAPI x As Long y As Long End Type Private Sub Form_Load() Timer1.Interval = 250 Me.ForeColor = vbBlue Me.FontSize = 10 End Sub Private Sub Timer1_Timer() Dim Ret As Long, Handle As Long, hParent Dim Cor As POINTAPI Dim Buffer As String Dim ClassName As String Dim Caption_Ventana As String 'Obtiene la coordenada del Mouse Ret = GetCursorPos(Cor) 'Recuperamos el HWND de la ventana asociada a esa coordenada Handle = WindowFromPoint(Cor.x, Cor.y) 'Handle de la ventana padre hParent = GetParent(Handle) 'Llenamos un Buffer ClassName = Space$(128) 'Recupera el Classname y lo devuelve en el Buffer Ret = GetClassName(Handle, ClassName, 128) 'Extraemos el nombre de la clase ClassName = LCase(Left$(ClassName, Ret)) ' Cantidad de caracteres del texto Caption_Ventana = String(GetWindowTextLength(Handle), Chr$(0)) 'Retorna el caption Call GetWindowText(Handle, Caption_Ventana, 100) 'Imprimimos en el Form con los valores Me.Cls Me.Print " Hwnd : " & Handle Me.Print " Hwnd Parent : " & hParent Me.Print " Nombre de clase : " & ClassName Me.Print " Caption de la ventana : " & Caption_Ventana End Sub

Enlaces relacionados

Buscar en Recursos vb