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
