按键精灵自动挂机脚本

设置6个按键分别为3、5、4、8、1、2；分别相隔20秒、40秒、30秒、60秒、2.5秒、10秒：

Dim tim1,tim2,tim3,tim4,tim5,tim6

tim1=now

tim2=now

tim3=now

tim4=now

tim5=now

tim6=now

Rem 开始

Delay 100

If DateDiff("s",tim5,now) >= 2 Then

Delay 500

tim5=now

KeyPress "1", 1

End if

If DateDiff("s",tim1,now) >= 20 Then

tim1=now

KeyPress "3", 1

End if

If DateDiff("s",tim2,now) >= 40 Then

tim2=now

KeyPress "5", 1

End if

If DateDiff("s",tim3,now) >= 30 Then

tim3=now

KeyPress "4", 1

End if

If DateDiff("s",tim4,now) >= 60 Then

tim4=now

KeyPress "8", 1

End if

If DateDiff("s",tim6,now) >= 10 Then

tim6=now

KeyPress "2", 1

End if

Goto 开始

简单的间隔1小时10分钟点一次鼠标的：

Dim tim1

tim1=now

Rem 开始

Delay 1000

If DateDiff("s",tim1,now) >= 4200 Then

tim1=now

LeftClick 1

End if

Goto 开始