展开全部
代码如下:
//定义变量;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 //停止功能可以把执行时间设置成所需要的时间即可。
//定义变量;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 //停止功能可以把执行时间设置成所需要的时间即可。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询