当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 一个实现VBS倒计时的代码

一个实现VBS倒计时的代码

2017年12月12日  | 移动技术网IT编程  | 我要评论

dj舞曲慢摇,包伟铭儿子,笔记本电池不充电

一个实现vbs倒计时的代码 

以下内容为程序代码:

<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 "当前时间为" & i,1,"计时",0 
    wscript.sleep 1000 
next 
msgbox "时间到!" 
set wshshell = nothing 

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网