Board logo

标题: 能不能用批处理或vbs编出这样的程序? [打印本页]

作者: anqing     时间: 2007-2-21 07:19    标题: 能不能用批处理或vbs编出这样的程序?

能不能用批处理或vbs编出这样的程序?
全屏依次红色字体显示:10,9,8。。。。。。1



由于是全屏,所以,这十个倒计时的数字,要很大,最起码,也要是在全屏的中心!
用flash,可以做出,不知用p和vbs能不能做出来?
作者: zh159     时间: 2007-2-21 09:04
原脚本来自 http://www.cn-dos.net/forum/viewthread.php?tid=23802 第 8 楼
CODE:  [Copy to clipboard]
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

作者: anqing     时间: 2007-2-21 09:19
挺漂亮的。不错,
谢谢!
作者: anqing     时间: 2007-2-21 11:19
感觉更像是asp




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5