如何实现VBS倒计时

这篇文章给大家分享的是有关如何实现VBS倒计时的内容。小编觉得挺实用的，因此分享给大家做个参考，一起跟随小编过来看看吧。

以下内容为程序代码:



把上面这段保存为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

感谢各位的阅读！关于"如何实现VBS倒计时"这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识，如果觉得文章不错，可以把它分享出去让更多的人看到吧！