使用按键精灵控制鼠标,按照设定的循环次数,进行重复点击操作,解放双手。
具体功能为:重复循环70次连套操作,在每一套点击之前,先等待3秒,再每一套点击完成后,等待8秒,再进行下一次循环。
具体使用到的函数有:
- LeftClick 控制鼠标左键点击
- MoveTo 移动鼠标到屏幕指定坐标点
- Delay 设置延迟时间
Dim name
repeatCount =70
For i = 1 To repeatCount
Delay 3000
LeftClick 1
MoveTo 1544, 308
Delay 1000
LeftClick 1
MoveTo 1554 , 327
Delay 1000
LeftClick 1
MoveTo 1556 , 339
Delay 1000
LeftClick 1
MoveTo 1552, 357
Delay 1000
LeftClick 1
Delay 1000
MoveTo 1555, 367
Delay 1000
LeftClick 1
MoveTo 1549 , 390
Delay 1000
LeftClick 1
MoveTo 1720 , 994
Delay 2000
LeftClick 1
MoveTo 952, 550
LeftClick 1
Delay 2000
MoveTo 915, 551
Delay 1000
LeftClick 1
Delay 8000
Next