一個實現(xiàn)VBS倒計時的代碼
更新時間：2007年10月24日 11:58:51 作者：
一個實現(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倒計時器！
復(fù)制代碼 代碼如下:
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)文章
有時候服務(wù)器為了安全只允許訪問的端口加到TCP/IP篩選里面，其它的端口將無法訪問。這里的代碼就是為了這樣的功能實現(xiàn)。2010-04-04
用vbscript實現(xiàn)修改屏幕保護的等待時間長度
用vbscript實現(xiàn)修改屏幕保護的等待時間長度...2007-04-04
VBS教程：函數(shù)-FormatPercent 函數(shù)
VBS教程：函數(shù)-FormatPercent 函數(shù)...2006-11-11
用vbs實現(xiàn)配置無人登錄計算機時使用的屏幕保護程序
用vbs實現(xiàn)配置無人登錄計算機時使用的屏幕保護程序...2007-03-03
VBS教程：VBscript語句-Property Get 語句
VBS教程：VBscript語句-Property Get 語句...2006-11-11
VBS教程：屬性-AtEndOfStream 屬性...2006-11-11
VBScript教程 第十三課 VBScript與窗體...2006-11-11
在vbscript中判斷COM類是否存在的實現(xiàn)代碼
在VBS中，我們有時需要判斷一個COM類是否存在，以便執(zhí)行不同的操作,需要的朋友可以參考下2018-06-06
新建一個vbs文件（C:\vbs\Getfavorites.vbs），再新建一個bat文件（Getfavorites.bat），執(zhí)行bat文件，收藏夾里的所有項目都會被寫入到C:\vbs\Getfavorites_result.txt文件中。2009-04-04
如何調(diào)試JScript/VBScript的方法...2007-03-03