detectar obj

[NiquitooX]

cree un text en un form.. lo que no me detecta es el class en el text cuando le paso el mouse por arriva si alguien podria ayudarme porfavor.

Código (vb) [Seleccionar] Expandir

Private Type POINTAPI
   X As Long
   Y As Long
End Type

Private Declare Function GetClassName Lib "user32" Alias _
"GetClassNameA" ( _
ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long
 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Dim Mouse As POINTAPI

en un timer interval 100

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
 
    Dim sClass As String * 255
       Dim lhWnd As Long
            Dim lRetVal As Long
            Dim classdettect As String

   Call GetCursorPos(Mouse)

     lRetVal = GetClassName(lhWnd, sClass, 255)

   Me.Cls
   Text1.Text = sClass
   Me.Print "Posicion del cursor :"

   Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y)
end sub

[BlackZeroX]

debes obtener el Handle de la ventana con:

Código (cpp) [Seleccionar] Expandir

HWND WINAPI WindowFromPoint(
 _In_  POINT Point
);

Justo la llamada debe estar despues de GetCursorPos y antes de GetClassName()...

Código (vb) [Seleccionar] Expandir

...
   GetCursorPos(Mouse)
   ldWnd = WindowFromPoint(Mouse)
   lRetVal = GetClassName(lhWnd, sClass, 255)
...

Dulces Lunas!¡.