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 開始