确认并移动鼠标位置

Dim WshShell,mouse 'path

Set WshShell = WScript.CreateObject("WScript.Shell")

'Path = WshShell.CurrentDirectory

Set mouse=New SetMouse

MsgBox "请准备"

WScript.Sleep 9000

For i = 1 To 2

mouse.getpos x,y '获得鼠标当前位置坐标

MsgBox x & " , " & y

WScript.Sleep 9000

Count = Count + 1

Next


For i = 1 To 400 '循环 400 次

mouse.move 500,500+count '把鼠标移动到坐标

mouse.clik "left"

WScript.Sleep 9000

Count = Count + 1

Next

'MsgBox Count '输出10


'mouse.clik '"left" '左击

'"dbclick" '双击

' "right" 右击， "middle" 中间键点击