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

目前成都創(chuàng)新互聯(lián)已為1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁空間、綿陽服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、防城網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

以下內(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 "時(shí)間到了！"
            End If
       End Function
       Sub Window_Onload
             Call STime
       End Sub
msgbox(value)
</script>
<input id="oInput" type="text">
把上面這段保存為001.html可以成為一個(gè)完整的倒計(jì)時(shí)器，哪位幫我把他改成VBS一下，讓其能變成VBS倒計(jì)時(shí)器！

代碼如下:

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

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

新聞名稱：如何實(shí)現(xiàn)VBS倒計(jì)時(shí)-創(chuàng)新互聯(lián)
鏈接分享：http://aaarwkj.com/article42/dddsec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、外貿(mào)建站、定制網(wǎng)站、響應(yīng)式網(wǎng)站、網(wǎng)站設(shè)計(jì)公司、網(wǎng)站營銷

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)