欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時(shí)間：2007年10月24日 11:58:51   作者：  

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

以下內(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 "時(shí)間到了！"
            End If
       End Function
       Sub Window_Onload
             Call STime
       End Sub
msgbox(value)
</script>
<input id="oInput" type="text">



把上面這段保存為001.html可以成為一個(gè)完整的倒計(jì)時(shí)器，哪位幫我把他改成VBS一下，讓其能變成VBS倒計(jì)時(shí)器！

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

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

相關(guān)文章

最新評(píng)論