vbs如何做倒计时

1、首先我们在电脑桌面空白处新建一个TXT记事本，自由取名，比如：小程序.TXT；

2、将下图的代码复制进去；

Set WshShell = CreateObject("WScript.Shell")Dim CloseTime,iCloseTime = 5For i = CloseTime To 1 Step - 1WshShell.popup "当前时间为" & i,1,"计时",0Wscript.Sleep 1000NextMsgBox "时间到!"Set WshShell = Nothing

3、接着点击保存；

4、关闭窗口，我们修改后缀名，将小程序.TXT重命名为小程序.vbs，这时窗口会弹出提示，我们点击“是”；

5、然后回到页面，我们发现文件的外观已经改变，变成VBS程序；

6、双击打开，程序就会运行，如下弹出倒计时窗口；

       以上就是小编分享的vbs做倒计时经验，希望能帮助到大家！