欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

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

vb

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

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

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

一個實現(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 

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

欄    目:vb

下一篇:病毒專殺VBS模塊

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

本文地址:http://mengdiqiu.com.cn/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)所有