手机
当前位置:查字典教程网 >脚本专栏 >vbs >一个实现VBS倒计时的代码
一个实现VBS倒计时的代码
摘要:一个实现VBS倒计时的代码以下内容为程序代码:DimoTime:oTime=5FunctionSTimedocument.all("oInp...

一个实现VBS倒计时的代码

以下内容为程序代码:

<scriptlanguage="VBScript">

DimoTime:oTime=5

FunctionSTime

document.all("oInput").value="00:00:"&oTime

IfoTime>0Then

oTime=oTime-1

window.setTimeout"STime",1000

Else

MsgBox"时间到了!"

EndIf

EndFunction

SubWindow_Onload

CallSTime

EndSub

msgbox(value)

</script>

<inputid="oInput"type="text">

把上面这段保存为001.html可以成为一个完整的倒计时器,哪位帮我把他改成VBS一下,让其能变成VBS倒计时器!

复制代码 代码如下:

SetWshShell=CreateObject("WScript.Shell")

DimCloseTime,i

CloseTime=5

Fori=CloseTimeTo1Step-1

WshShell.popup"当前时间为"&i,1,"计时",0

Wscript.Sleep1000

Next

MsgBox"时间到!"

SetWshShell=Nothing

【一个实现VBS倒计时的代码】相关文章:

用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码

禁止QQ上网的vbs代码

vbs实现的eMule电驴自动关机脚本代码

利用vbs类实现css按钮的代码

用vbs确定计算机是否有 USB 2.0 端口的代码

用VBS修改IIS Metabase 的代码

VBScript 监控并结束指定进程的代码

VBS 强制关闭Symantec Endpoint Protection的代码

vbscript自动配置IIS的代码

用vbs实现本地连接禁用/启用脚本代码

精品推荐
分类导航