Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206
Const BM_Click = &HF5
Public Function MakeParam(Low As Long, High As Long) As Long
MakeParam = Low + High * 65536
End Function
'鼠标左键按下
Public Function LeftButtonDown(hWnd As Long, x As Long, y As Long) As Long
LeftButtonDown = SendMessage(hWnd, WM_LBUTTONDOWN, 0, MakeParam(x, y))
End Function
'鼠标左键弹起
Public Function LeftButtonUp(hWnd As Long, x As Long, y As Long) As Long
LeftButtonUp = SendMessage(hWnd, WM_LBUTTONUP, 0, MakeParam(x, y))
End Function
'鼠标单击
Public Function Click(hWnd As Long, x As Long, y As Long) As Long
Click = SendMessage(hWnd, BM_Click, 0, MakeParam(x, y))
End Function
'鼠标右键按下
Public Function RightButtonDown(hWnd As Long, x As Long, y As Long) As Long
RightButtonDown = SendMessage(hWnd, WM_RBUTTONDOWN, 0, MakeParam(x, y))
End Function
'鼠标右键弹起
Public Function RightButtonUp(hWnd As Long, x As Long, y As Long) As Long
RightButtonUp = SendMessage(hWnd, WM_RBUTTONUP, 0, MakeParam(x, y))
End Function
