按键向导的自动挂起脚本

设置6个键分别为3、5、4、8、1、2；分别为20秒、40秒、30秒、60秒、2.5秒和10秒:

Dim tim1，tim2，tim3，tim4，tim5，tim6

Tim 1 =现在

tim2 =现在

tim3 =现在

tim4 =现在

tim5 =现在

tim6 =现在

快速眼动开始

延迟100

If DateDiff("s "，tim5，now)& gt；那么= 2

延迟500

tim5 =现在

按键“1”，1

如果…就会结束

If DateDiff("s "，tim1，now)& gt；那么= 20

Tim 1 =现在

按键“3”，1

如果…就会结束

If DateDiff("s "，tim2，now)& gt；那么= 40

tim2 =现在

按键“5”，1

如果…就会结束

If DateDiff("s "，tim3，now)& gt；那么= 30

tim3 =现在

按键“4”，1

如果…就会结束

If DateDiff("s "，tim4，now)& gt；那么= 60

tim4 =现在

按键“8”，1

如果…就会结束

If DateDiff("s "，tim6，now)& gt；= 10

tim6 =现在

按键“2”，1

如果…就会结束

转到开始

简单间隔1小时10分钟点击鼠标一次:

Dim tim1

Tim 1 =现在

快速眼动开始

延迟1000

If DateDiff("s "，tim1，now)& gt；那么= 4200

Tim 1 =现在

左键点击1

如果…就会结束

转到开始