How to realize VBS countdown

This article is about how to implement the countdown to VBS. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

The following is the program code:

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 "time is up!"

End If

End Function

Sub Window_Onload

Call STime

End Sub

Msgbox (value)

Save the above paragraph as 001.html can become a complete countdown timer, who can help me change it to VBS, so that it can become a VBS countdown timer!

The code is as follows:

Set WshShell = CreateObject ("WScript.Shell")

Dim CloseTime,i

CloseTime = 5

For I = CloseTime To 1 Step-1

WshShell.popup "current time is" & iJournal 1, "timing", 0

Wscript.Sleep 1000

Next

MsgBox "time is up!"

Set WshShell = Nothing

Thank you for reading! This is the end of the article on "how to realize the countdown to VBS". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it for more people to see!