VBS脚本实现进度条的实例(模拟) - 中国DOS联盟论坛

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

第1楼　kill	发表于 2007-08-26 14:17
新手上路　发帖 3　积分 10　来自广东省
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

第2楼　gne	发表于 2008-01-05 17:23
初级用户　发帖 45　积分 77
执行错误。。。。