雷火电竞-中国电竞赛事及体育赛事平台

歡迎來到入門教程網(wǎng)!

vb

當(dāng)前位置:主頁 > 軟件編程 > vb >

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

來源:本站原創(chuàng)|時間:2020-01-10|欄目:vb|點(diǎn)擊:

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

以下內(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可以成為一個完整的倒計(jì)時器,哪位幫我把他改成VBS一下,讓其能變成VBS倒計(jì)時器!

復(fù)制代碼 代碼如下:

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

上一篇:可以將Bat轉(zhuǎn)換位VBS文件的VBS腳本

欄    目:vb

下一篇:病毒專殺VBS模塊

本文標(biāo)題:一個實(shí)現(xiàn)VBS倒計(jì)時的代碼

本文地址:http://m.jygsgssxh.com/a1/vb/7818.html

網(wǎng)頁制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語言數(shù)據(jù)庫服務(wù)器

如果侵犯了您的權(quán)利,請與我們聯(lián)系,我們將在24小時內(nèi)進(jìn)行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負(fù)任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有