Code snippet: Click to window at client coordinates

[Petr Schreiber]

Every man reaches a point in his life, when he needs to... click on specified point in window!

Here is my proposal for enhancing UI module with such a functionality:

' -- Win32
Begin Const
  %MouseEventF_LeftDown = &H2 
  %MouseEventF_LeftUp   = &H4 
End Const
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

' -- Functions
Function Win_ClickAt( hWnd As DWord, x As Long, y As Long )

  Win_SetForeground(hWnd)
  
  Dim clickPosition As POINTAPI
  clickPosition.x = x
  clickPosition.y = y
  
  Win_ClientToScreen(hWnd, clickPosition)
  Win_SetCursorPos(clickPosition.x, clickPosition.y)
  mouse_event(%MouseEventF_LeftDown, 0, 0, 0, 0)
  mouse_event(%MouseEventF_LeftUp, 0, 0, 0, 0)  
  
End Function

Petr

[mike lobanovsky]

Every man reaches a point in his life, when he needs to... click on specified point in window!