求按键精灵脚本定时停止

Sub KeyPress_F5
Delay 1000
While True
KeyPress "F5", 1
Delay 60000
Wend
End Sub
BeginThread KeyPress_F5
While True
If DateDiff("s", Time, "23:50:30") = 0 Then
ExitScript
End If
Delay 200
Wend

代码如下：
//定义变量；Dim RunTime,TimeNow
RunTime=CDate("00:30:00")//检测时间；Rem CheckTime
//取当前时间；TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
MyVer = DateDiff("s",TimeNow,RunTime)
If MyVer<60
Goto Main
Else
Delay 50000
Goto CheckTime
EndIf
//调用要执行的代码；
Rem Main //停止功能可以把执行时间设置成所需要的时间即可。