对西门脚本分析延时加载动作

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."