倒记时显示
S=inputbox("你希望几秒倒记时!","倒记时","12") do until S =0
set x = createobject("WScript.Shell")
Call x.Popup("倒记时",1,"余下"&S&"秒",0)
S=S-1
loop
2007-09-19 19:22
2007-09-19 19:28
2007-09-19 21:18
2007-09-19 21:21
2007-09-20 12:40