Dim LastTime, StopTime, i
StopTime= Now+DelayTime/24/3600 //DelayTime 为可以设置的延时秒数, 1/24/3600 为一秒的单位, 0.1/24/3600为100毫秒的单位, 对某个数取模余数一定在这个数 //的范围内变化。
ShowSystemAlarm "Script will be waiting for " & DelayTime & " seconds."
Do
If Now>LastTime + 0.1/24/3600 Then
i = i+1
ShowSystemAlarm "Script is waiting " & Left("....", (i Mod 4) +1)
LastTime= Now
End If
Loop Until Now>=StopTime
ShowSystemAlarm "Script resumes working."
时间: 2024-10-12 13:28:05