Sub ms(str)
TracePrint str
ShowMessage str
End Sub
Function 定时()
Dim i,varGetNow(5),timeNow(3)
varGetNow=split(now()," ")
i=0
While varGetNow(i)
i=i+1
Wend
timeNow = Split(varGetNow(i-2), ":")
定时=timeNow(0)&":"&timeNow(1)&":"&timeNow(2)
End Function
Dim 设定时间
设定时间 = "12:00:00" //定时 【例:任务需要12:00:00进行,则手机闹钟时间设置为12:00:00,执行脚本时间设置成12:00:01】
Do
If 定时() = 设定时间 Then
Exit Do
Else
ms "时间不等于设定时间,继续等待1s"
Delay 1000
End If
loop
ms "时间到了,开始执行下面的命令"