mouse_event 模拟鼠标单击问题

[terry6394]

我想用mouse_event模拟鼠标单击制定区域.
我的代码如下:

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE, 300 * 65535 / 1024, 300 * 65535 / 768, 0&, 0&

运行结果只是原地单击,为什么不能单击到指定的区域(300,300)呢?!

[laviewpbt]

Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000

Private Sub Command1_Click()
Dim po As POINTAPI
GetCursorPos po
mouse_event MOUSEEVENTF_MOVE, 100, 100, 0&, 0&
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE, 0, 0, 0&, 0&
SetCursorPos po.x, po.y
End Sub

[techgopher]

先setcursor到你想要的位置，然后
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

不过你这样把MOUSEEVENTF_LEFTDOWN和MOUSEEVENTF_LEFTUP or在一起行吗？要一个一个的来吧？

[terry6394]

我先试试..

[laisiwei]

用or连接是可以的

不过鼠标的位置不变的问题我也碰到过,不知道怎么回事.可以用setcursor代替

[laviewpbt]

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim po As POINTAPI
po.x = 300: po.y = 300
SetCursorPos po.x, po.y
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

[terry6394]

还是得动鼠标啊