中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS脚本实现进度条的实例(模拟)

kill
新手上路

积分 10
发帖 3
注册 2007-8-2
来自广东省
状态离线

『楼主』: VBS脚本实现进度条的实例(模拟)

set ie=wscript.createobject

("internetexplorer.application","event_")
ie.menubar=0
ie.addressbar=0
ie.toolbar=0
ie.statusbar=0
ie.width=400
ie.height=100
ie.resizable=0
ie.navigate "about"&":blank"
ie.left=fix((ie.document.parentwindow.screen.availwidth-

ie.width)/2)
ie.top=fix((ie.document.parentwindow.screen.availheight-

ie.height)/2)
ie.visible=1
with ie.document
.write "<html>" & vbCr
.write "<title>VBS进度条实例</title>" & vbCr
.write "<body scroll=no>" & vbCr
.write "<form name=loading>"
.write "<p align=center> <font color=" & Chr(34) & "#0066ff" & Chr

(34) & "size=" & Chr(34) & "2" & Chr(34) & " face=" & Chr(34) &

"Arial" & Chr(34) & ">载入中，请稍等...</font><br>" & vbCr
.write "<input type=text name=chart size=46 style=" & Chr(34)

&"font-family:Arial; font-weight:bolder; color:#0066ff; background

-color:#fef4d9; padding:0px; border-style:none;" & Chr(34) & ">" &

vbCr
.write "<br>"
.write "<input type=text name=percent size=47 style=" & Chr(34)

&"color:#0066ff; text-align:center; border-width:medium; border-

style:none;" & Chr(34) & ">" & vbCr
.write "<SCRIPT LANGUAGE=javascript>" & vbCr
.write "var bar=0" & vbCr
.write "var line=" & Chr(34) & "||" & Chr(34) & vbCr
.write "var amount=" & Chr(34) & "||" & Chr(34) & vbCr
.write "count()" & vbCr
.write "function count(){" & vbCr
.write "bar=bar+2" & vbCr
.write "amount =amount + line" & vbCr
.write "document.loading.chart.value=amount" & vbCr
.write "document.loading.percent.value=bar+" & Chr(34) & "%" & Chr

(34) & vbCr
.write "if (bar<99)" & vbCr
.write "{setTimeout(" & Chr(34) & "count()" & Chr(34) & ",100);}" &

vbCr
.write "else" & vbCr
.write "{window.location =" & Chr(34) & "#" & Chr(34) & ";}" & vbCr
.write "}</script>" & vbCr
.write "</p>" & vbCr
.write "</form>" & vbCr
.write "</body></html>" & vbCr
end with

2007-8-26 14:17

gne
初级用户

积分 77
发帖 45
注册 2007-8-3
状态离线

『第 2 楼』:

执行错误。。。。

因为喜欢，所以无悔！

2008-1-5 17:23

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: