一个实现VBS倒计时的代码

以下内容为程序代码:

<scriptlanguage="VBScript">

DimoTime:oTime=5

FunctionSTime

document.all("oInput").value="00:00:"&oTime

IfoTime>0Then

oTime=oTime-1

window.setTimeout"STime",1000

Else

MsgBox"时间到了！"

EndIf

EndFunction

SubWindow_Onload

CallSTime

EndSub

msgbox(value)

</script>

<inputid="oInput"type="text">

把上面这段保存为001.html可以成为一个完整的倒计时器，哪位帮我把他改成VBS一下，让其能变成VBS倒计时器！

复制代码 代码如下:

SetWshShell=CreateObject("WScript.Shell")

DimCloseTime,i

CloseTime=5

Fori=CloseTimeTo1Step-1

WshShell.popup"当前时间为"&i,1,"计时",0

Wscript.Sleep1000

Next

MsgBox"时间到!"

SetWshShell=Nothing