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" 中间键点击
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" 中间键点击