Question

请问vb如何简单的实现模拟鼠标点击屏幕坐标位置

比如我获取到了屏幕的坐标轴xy分别是200和300

如何用vb模拟鼠标左键单击这个位置

谢谢

Answer 1

给你介绍两种方法
1.
mouse_event MOUSEEVENTF_LEFTDOWN
mouse_event MOUSEEVENTF_LEFTUP
2.
SendMessage/PostMessage WM_LBUTTONDOWN
SendMessage/PostMessage WM_LBUTTONUP
自己百度下具体怎么用

追问

能否给个简单的代码，我在自学，刚学，谢谢

追答

自学的话就必须学会怎么用搜索引擎了

追问

请问多个相同的类名。比如有五个类名都是4 我想取第三个4的句柄怎么取

追答

窗体名(标题文本)也一样吗？

Answer 2

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
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

Call SetCursorPos(200, 100)

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

追问

谢谢 这个了

你好在吗请教个问题