减小字体
增大字体- ·上一篇文章：批量修改快捷方式路径的VBS脚本
- ·下一篇文章：除性删除的VBS脚本（删除指定以外的目录、文件）
- ·百度中搜索更多的关于“VBS脚本实现进度条的实例(模拟)”相关内容
- ·谷歌中搜索更多的关于“VBS脚本实现进度条的实例(模拟)”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
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>DOS资源站提供 www.cmdos.net</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
