能不能用批处理或vbs编出这样的程序？ - 中国DOS联盟论坛

原脚本来自 http://www.cn-dos.net/forum/viewthread.php?tid=23802 第 8 楼

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

第1楼　anqing	发表于 2007-02-21 07:19
高级用户　发帖 413　积分 859
能不能用批处理或vbs编出这样的程序？能不能用批处理或vbs编出这样的程序？全屏依次红色字体显示：10，9，8。。。。。。1 由于是全屏，所以，这十个倒计时的数字，要很大，最起码，也要是在全屏的中心！用flash,可以做出，不知用p和vbs能不能做出来？

第2楼　zh159	发表于 2007-02-21 09:04
金牌会员　发帖 1,467　积分 3,687
原脚本来自 http://www.cn-dos.net/forum/viewthread.php?tid=23802 第 8 楼 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

第3楼　anqing	发表于 2007-02-21 09:19
高级用户　发帖 413　积分 859
挺漂亮的。不错，谢谢！

第4楼　anqing	发表于 2007-02-21 11:19
高级用户　发帖 413　积分 859
感觉更像是asp