Code for vbs countdown

One countdown to vbsCode

The following content:ProgramCode:

<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 "time is up! "
End if
End Function
Sub window_onload
Call stime
End sub
Msgbox (value)
</SCRIPT>
<Input id = "oinput" type = "text">

Saving the timer as HTML can be a complete countdown timer. Which one can help me change it to vbs so that it can become a vbs countdown timer!

Copy codeThe Code is as follows: Set wshshell = Createobject ("wscript. Shell ")
Dim closetime, I
Closetime = 5
For I = closetime to 1 step-1
Wshshell. Popup "the current time is" & I, 1, "Timing", 0
Wscript. Sleep 1000
Next
Msgbox "Time! "
Set wshshell = nothing