VBS脚本实现进度条的实例(模拟) - DOS批处理 & 脚本技术（批处理室） - 中国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