intTime = 10
If WScript.Arguments.Count <> 0 Then intTime = WScript.Arguments(0)
set WshShell = Wscript.CreateObject("Wscript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate "about:blank"
.FullScreen = 1
.Height = 300
.Width = 300
.Left = fix((.document.parentwindow.screen.availwidth - .Width)/2)
.Top = fix((.document.parentwindow.screen.availheight - .Height)/2)
.Visible = 1
.Document.write "<html><title>倒计时</title><body bgcolor=beige scroll=no></body></html>"
Set objBody = .Document.Body
End With
For i = 1 To intTime
WScript.Sleep 1000
objBody.InnerHtml = "<table align=center style='font-family:黑体;font-size:250px;color=red;'><td>" & _
intTime - i & "</td></table>"
Next
objIE.Quit
Set objBody = Nothing
Set objIE = Nothing
