Timer() 不会在零点抽风？让我们严谨点： XD- Const nTimeOut = +5 ' 超时时间(秒)
- Dim dtStart, dtEnd
- dtStart = Now()
- dtEnd = DateAdd("s", nTimeOut, Now())
- Do While DateDiff("s", Now(), dtEnd) > 0
- WScript.Sleep 200
- ' Do Something ..
- Loop
- ' Do Something ..
- Msgbox DateDiff("s", dtStart, Now()) & " 秒过去鸟。不要嫌代码长长长 ..."
| 
发表于 2015-1-3 07:55
|