一個實現VBS倒計時的代碼 

以下內容為程序代碼:

<script language="VBScript">
       Dim oTime : oTime = 5
       Function STime
            document.all("oInput").value = "00:00:" & oTime
            If oTime>0 Then
               oTime = oTime - 1
               window.setTimeout "STime", 1000
            Else
               MsgBox "時間到了！"
            End If
       End Function
       Sub Window_Onload
             Call STime
       End Sub
msgbox(value)
</script>
<input id="oInput" type="text">



把上面這段保存為001.html可以成為一個完整的倒計時器，哪位幫我把他改成VBS一下，讓其能變成VBS倒計時器！