能不能用批处理或vbs编出这样的程序？
全屏依次红色字体显示：10，9，8。。。。。。1
由于是全屏，所以，这十个倒计时的数字，要很大，最起码，也要是在全屏的中心！
用flash,可以做出，不知用p和vbs能不能做出来？
全屏依次红色字体显示：10，9，8。。。。。。1
由于是全屏，所以，这十个倒计时的数字，要很大，最起码，也要是在全屏的中心！
用flash,可以做出，不知用p和vbs能不能做出来？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 能不能用批处理或vbs编出这样的程序？
查看 812 回复 3
楼 主
能不能用批处理或vbs编出这样的程序？
发表于 2007-02-21 07:19 · 中国 吉林 四平 联通
第 2 楼
发表于 2007-02-21 09:04 · 中国 广西 玉林 博白县 电信
原脚本来自 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 楼
发表于 2007-02-21 09:19 · 中国 吉林 四平 联通
挺漂亮的。不错，
谢谢！
谢谢！
第 4 楼
发表于 2007-02-21 11:19 · 中国 吉林 四平 联通
感觉更像是asp
论坛跳转: