主頁 > 知識庫 > 一個實現(xiàn)VBS倒計時的代碼

一個實現(xiàn)VBS倒計時的代碼

熱門標簽:企業(yè)400電話辦理價錢低 外呼系統(tǒng)群 天津智能外呼系統(tǒng)排名 外呼系統(tǒng)說話聲音小怎么辦 上海辦理400電話選號 機器人打電銷適用于美業(yè)嗎 智云億呼電話機器人 龍巖400電話申請 墨西哥地圖標注app

一個實現(xiàn)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倒計時器!

復制代碼 代碼如下:

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

您可能感興趣的文章:
  • Delphi實現(xiàn)毫秒級別的倒計時實例代碼
  • jquery實現(xiàn)倒計時代碼分享
  • js實現(xiàn)網(wǎng)頁倒計時、網(wǎng)站已運行時間功能的代碼3例
  • 各種頁面定時跳轉(倒計時跳轉)代碼總結
  • android實現(xiàn)倒計時功能代碼
  • VB實現(xiàn)的16位和32位md5加密代碼分享
  • VB實現(xiàn)的遞歸復制文件和搜索文件的代碼分享
  • VB實現(xiàn)的倒計時類代碼詳解

標簽:麗水 齊齊哈爾 錫林郭勒盟 青島 阜新 鄂爾多斯 黃山 承德

巨人網(wǎng)絡通訊聲明:本文標題《一個實現(xiàn)VBS倒計時的代碼》,本文關鍵詞  一個,實現(xiàn),VBS,倒計時,的,;如發(fā)現(xiàn)本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《一個實現(xiàn)VBS倒計時的代碼》相關的同類信息!
  • 本頁收集關于一個實現(xiàn)VBS倒計時的代碼的相關信息資訊供網(wǎng)民參考!
  • 推薦文章