如何實現(xiàn)VBS倒計時

發(fā)布時間：2021-09-30 10:08:10 來源：億速云閱讀：288 作者：小新欄目：開發(fā)技術(shù)

這篇文章給大家分享的是有關(guān)如何實現(xiàn)VBS倒計時的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

以下內(nèi)容為程序代碼:

<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倒計時器！

代碼如下:

Set WshShell = CreateObject("WScript.Shell")
Dim CloseTime,i
CloseTime = 5
For i = CloseTime To 1 Step - 1
WshShell.popup "當(dāng)前時間為" & i,1,"計時",0
Wscript.Sleep 1000
Next
MsgBox "時間到!"
Set WshShell = Nothing

感謝各位的閱讀！關(guān)于“如何實現(xiàn)VBS倒計時”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

向AI問一下細節(jié)

如何實現(xiàn)VBS倒計時

猜你喜歡

最新資訊

相關(guān)推薦

相關(guān)標(biāo)簽