Progress Bar

Zulfi

unread,

Feb 19, 2003, 12:17:12 PM2/19/03

to

Is there any code of method I can use to get a progress bar for my
script. Its doing everything I want to , but I just want to add a
progress bar to it and make it look nicer.

Zulfi

Alex K. Angelopoulos (MVP)

unread,

Feb 19, 2003, 8:30:45 PM2/19/03

to

Zulfi,

There's nothing ready-to-go for this, but it's a common thing to want so several
people have developed solutions for it. Here are the main ones I know of which
may interest you:

http://www.jsware.net/jsware/snazbar.html

http://www.winscriptingsolutions.com/Articles/Index.cfm?ArticleID=16297
(this is part of a 3-part series that takes you through building a progress bar
in script)

And finally, as usual, Jim Warrington has done several different interesting
takes on the same problem; here's the main "Professional" page:

http://home.att.net/~wshvbs/wshProfessionalProgBar.htm

--
Please respond in the newsgroup so everyone may benefit.
http://dev.remotenetworktechnology.com
(email requests for support contract information welcomed)
----------
Subscribe to Microsoft's Security Bulletins:
http://www.microsoft.com/technet/security/bulletin/notify.asp

"Zulfi" <zulf...@yahoo.com> wrote in message
news:c4a09569.03021...@posting.google.com...

Christoph Basedau

unread,

Feb 20, 2003, 5:48:46 AM2/20/03

to

am 19.02.03 18:17 sprach Zulfi dieses:

Some possible solutions. One is the ProgressBar-Ctrl of
Windows Common Controls. You could embed it with an object-tag
into a small html-popup.
You have to manipulate the progress-display with the value-property
of the ctrl and the range with the min- and max-props.

mfg
Christoph

Dim oIE, oScreen, oPgCtl, h, w, i
Set oIE = CreateObject ("InternetExplorer.Application")

With oIE
.menubar = 0 : .toolbar = 0
.statusbar = 0 : .resizable = 0
.navigate "about:<title>Progress</title><object " & _
"classid=""clsid:35053A22-8589-11D1-B16A-00C0F0283628"" " & _
"id=""PrgBar"" height=""20"" width=""500"">"
While .busy : WScript.sleep 10 : Wend
Set oScreen = .document.parentwindow.screen
h = oScreen.availheight
w = oScreen.availwidth
.height = h/8 : .width = 3* (w/4)
.top = h/10 : .left = w/10
Set oPgCtl = .document.applets("PrgBar")
.visible = true
End With

With oPgCtl
.min = 0
.max = 250
.appearance = 0 'OR 1
.borderstyle = 0 'OR 1
For i=.min to .max
.value=CSng(i)
Wscript.sleep 10
Next
MsgBox "Maximum reached: " & .value
End With

oIE.quit

Paul Randall

unread,

Feb 20, 2003, 9:49:53 AM2/20/03

to

Hi, Christoph
That is so cool! Do you have a list of other such scriptable goodies that lurk in the so-called bloat of Windows OSs? URL?

-Paul Randall

Curtis Anderson

unread,

Feb 20, 2003, 11:18:35 AM2/20/03

to

Oooooo....
I like this. I've got 4 uses for it already. Thanks for sharing the code!

Christoph Basedau <cebit_...@gmx.net> uttered:

Mythran

unread,

Feb 20, 2003, 1:36:37 PM2/20/03

to

"Zulfi" <zulf...@yahoo.com> wrote in message
news:c4a09569.03021...@posting.google.com...

And the following is one I wrote a few days ago for a previous post and submitted
it. It is a NON-ACTIVEX control for IE...no controls needed, no prompting of the
user...safe for scripting (because it is script)...et cetera

http://cwashington.netreach.net/depo/view.asp?Index=771

Hope it helps!

Mythran

Fosco

unread,

Feb 21, 2003, 1:39:30 AM2/21/03

to

"Zulfi"

Const FOF_SIMPLEPROGRESS = 256 '(&H100)
set winShell = createObject("shell.application")
winShell.namespace("C:\Dest\").CopyHere "C:\Temp"

(copy c:\temp >>>to c:\Dest)
--
Fosco