SetSimMode 1
Dim tim1,tim2,tim3
tim1=now,tim2=now,tim3=now
Rem 始
KeyPress "1", 1
Delay 100
KeyPress "2", 1
Delay 100
KeyPress "3", 1
Delay 100
KeyDown "4", 1
Delay 100
If DateDiff("s",tim3,now) >= 1 Then
tim3=now
KeyPress "8", 1
Delay 100
End if
If DateDiff("s",tim2,now) >= 10 Then
tim2=now
KeyPress "6", 1
Delay 100
End if
If DateDiff("s",tim1,now) >= 600 Then
tim1=now
KeyPress "5", 1
Delay 100
End if
goto 始
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024