一個實現(xiàn)VBS倒計時的代碼
以下內(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 "當前時間為" 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例
- 各種頁面定時跳轉(zhuǎn)(倒計時跳轉(zhuǎn))代碼總結(jié)
- android實現(xiàn)倒計時功能代碼
- VB實現(xiàn)的16位和32位md5加密代碼分享
- VB實現(xiàn)的遞歸復制文件和搜索文件的代碼分享
- VB實現(xiàn)的倒計時類代碼詳解
