CODE: [Copy to clipboard]
intTime = 10
If WScript.Arguments.Count <> 0 Then intTime = WScript.Arguments(0)
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate "about:blank"
.FullScreen = 1
.Height = 50
.Width = 150
.Left = .document.parentwindow.screen.availwidth - .Width
.Top = .document.parentwindow.screen.availheight - .Height
.Visible = 1
.Document.write "<html><body bgcolor=beige scroll=no></body></html>"
Set objBody = .Document.Body
End With
For i = 1 To intTime
objBody.InnerHtml = "<font color=blue>你还有<font color=red>" & _
intTime - i & "</font>秒时间!</font>"
WScript.Sleep 1000
Next
objIE.Quit
Set objBody = Nothing
Set objIE = Nothing
默认是10秒,可以自己带时间参数运行,单位为秒.