Question

VB 用SendMessage或PostMessage如何实现鼠标移动？

VB 用SendMessage函数或PostMessage函数如何实现鼠标移动？别的函数我会就只说这二个函数的用法？用Call SendMessage(Me.hwnd, WM_MOUSEMOVE, MK_LBUTTON, MAKELPARAM(370, 300)) 怎么不行？用Call PostMessage(Me.hwnd, WM_MOUSEMOVE, 0, (370 And &HFFFF) + (300 And &HFFFF) * &H10000) 也不行 请问如何用这二个函数实现鼠标移动？谢谢~

Answer 1

系统调用直接移动鼠标不是通过 WM_MOUSEMOVE
WM_MOUSEMOVE 是鼠标移动以后发出的

应该用
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Dim x as Long
Dim y as Long

x = 0
y = 0
SetCursorPos x, y