一個實現(xiàn)VBS倒計時的代碼
一個實現(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 "當(dāng)前時間為" & i,1,"計時",0
Wscript.Sleep 1000
Next
MsgBox "時間到!"
Set WshShell = Nothing
上一篇:可以將Bat轉(zhuǎn)換位VBS文件的VBS腳本
欄 目:vb
下一篇:病毒專殺VBS模塊
本文標(biāo)題:一個實現(xiàn)VBS倒計時的代碼
本文地址:http://mengdiqiu.com.cn/a1/vb/7818.html
您可能感興趣的文章
- 01-10下載文件到本地運行的vbs
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?


閱讀排行
本欄相關(guān)
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機(jī)閱讀
- 01-10C#中split用法實例總結(jié)
- 08-05DEDE織夢data目錄下的sessions文件夾有什
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 01-11ajax實現(xiàn)頁面的局部加載
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 01-10delphi制作wav文件的方法
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改
- 04-02jquery與jsp,用jquery
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文