¿Quién sabe cómo escribir una barra de progreso usando VBS?

establecer ie=wscript.createobject("internetexplorer.application")

ie.Visible=true

ie.menubar=0

es decir.addressbar=0

es decir.toolbar=0

es decir.statusbar=0

es decir.width=400

es decir .height=100

es decir.resizable=0

es decir.navigate "about"&:blank"

es decir.left=fix((es decir, .document .parentwindow.screen.availwidth-ie.width)/2)

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

ie.visible=1

con ie.document

.write "lt; htmlgt;" & vbCr

.write "lt; titlegt; VBS ejemplo de barra de progresolt;/titlegt;" amp; vbCr

.write "lt;body scroll=nogt;" amp; vbCr

.write "lt;form name =loadinggt;"

.write "lt; p align=centergt; lt; color de fuente=" amp Chr(34) amp "#0066ff" amp; (34) amplificador "2" amplificador; Chr(34) "gt; Cargando, espere... ;/fontgt;lt;brgt;" amp; vbCr

.write "lt;input type=text name=chart size=46 style=" amp; Chr(34) amp; "font-family: Arial; peso de fuente: negrita; color: #0066ff; color de fondo: #fef4d9; relleno: 0px; estilo de borde: ninguno;" y Chr(34) y "gt;" y vbCr

.write "lt; brgt;"

.write "lt; tipo de entrada=nombre de texto=porcentaje tamaño=47 estilo=" amp; alineación de texto: centro; ancho de borde: medio; estilo de borde: ninguno;" amp; Chr(34) amp; "gt;" amp; vbCr

.write "lt；SCRIPT LANGUAGE=javascriptgt ;" y vbCr

.write "var bar=0" amp; vbCr

.write "var line=" amp; /p>

.write "var cantidad=" amp; Chr(34) amp; "||" amp; vbCr

.write "función count(){" amp; vbCr

.write "bar=bar 2" vbCr

.write "cantidad = línea de cantidad" amp; vbCr

.write "document.loading.chart.value=amount" amp; vbCr

.write "document.loading.percent.value=bar " amp ; Chr(34) amplificador "" amplificador; Chr(34) vbCr

.write "if (barlt; 99)" vbCr

.write "{setTimeout" (" amp; Chr(34) amp; "count()" amp; Chr(34) amp; ", 100}" amp; vbCr

.write "else" amp; vbCr p>

.write "{window.location =" amp; Chr(34) amp; "#" amp; Chr(34) amp ";}" vbCr; escriba " }lt;/scriptgt;" amp; vbCr

.escriba "lt;/pgt;" amp;

.escribir "lt;/bodygt;lt;/htmlgt;" amp;