才给那么点分,要加分啊.
Delay 100 是延迟100毫秒果觉得达不到效果可以适当的改小
1740秒=29分钟 如果你要改成其他的可以自己设置
Delay 5000 是在29分钟后停5秒钟,你也可以根据实际情况进行修改
Dim t1
While 1=1
t1=now
While 1=1
KeyPress 49 1
Delay 100
If DateDiff("s",t1,now)>=1740
Goto 跳出循环
EndIf
EndWhile
Rem 跳出循环
Delay 5000
EndWhile
rem 1
按键1
delay 100
delay 5000
delay 1740000 //这三个延时其实可以加一起的 效果一样
goto 1