用vbs实现鼠标移动点击的重复操作

Question

希望各路专家帮忙写个代码
因为不能用按键精灵所以想用vbs实现
系统是win7专业版64位
具体操作为：
鼠标自动左键单点页面的各个位置
共十次 坐标我可以根据位置自己调整
最好有绝对坐标系
以上操作为一组
设置这组操作无限循环直到手动停止

Answer 1

经测通用，但我的是32位，64位VBA参数可能要设置长整型，怎么设置百度一下吧

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_ABSOLUTE = &H8000 '指定鼠标使用绝对坐标系，此时，屏幕在水平和垂直方向上均匀分割成65535×65535个单元
Private Const MOUSEEVENTF_MOVE = &H1 '移动鼠标
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
Private Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键抬起
Private Const SW = 1024
Private Const SH = 768

Private Sub Screen_Click(ByVal x As Long, ByVal y As Long)
mw = x / SW * 65535
mh = y / SH * 65535
'移动
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, mw, mh, 0, 0
'单击
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Sub TEST()
Screen_Click 200, 300
End Sub