原帖由 zero0223 于 2009-10-29 14:13 发表
Set WshShell = CreateObject("WScript.Shell")
Dim CloseTime,i
CloseTime = 5
For i = CloseTime To 1 Step - 1
WshShell.popup "当前时间为" & i,1,"计时",0
'Wscript.Sleep 1000
Next
MsgBox "时间 ...
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |