[2005][RESOLVED]WindowFromPointXY

[edwinho]

Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim ptx As Long = System.Windows.Forms.Cursor.Position.X
Dim pty As Long = System.Windows.Forms.Cursor.Position.Y
Dim OnhookWindow As Long = WindowFromPointXY(ptx, pty)
If OnhookWindow <> Me.Handle Then
DoSomething()
End If
End Sub

i got the error message "Unmanaged code debugging" ? What is this?
What Wrong With My Code?

[talkro]

try changing this line

Dim OnhookWindow As Long = WindowFromPointXY(ptx, pty)

to

Dim OnhookWindow As Long = WindowFromPoint(ptx, pty)

[edwinho]

Thx!! tried but the result with same problem

A call to PInvoke function windowsfrompointXY has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

[Atheist]

Whenever you are declaring an API function in .Net you need to change all Long variables to Integers. I belive this function also returns an IntPtr object.
Heres how it should look:

Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Integer, ByVal yPoint As Integer) As IntPtr
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
Dim ptx As Integer = System.Windows.Forms.Cursor.Position.X
Dim pty As Integer = System.Windows.Forms.Cursor.Position.Y
Dim OnhookWindow As IntPtr = WindowFromPointXY(ptx, pty)
If Not OnhookWindow = Me.Handle Then
DoSomething()
End If
End Sub