Pure VBS Progress Bar: Using IE Object (no file writing/ all dynamic)

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Pure VBS Progress Bar: Using IE Object (no file writing/ all dynamic)

Logged in as: Guest

arrSession:exec spGetSession 2,16,66002

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Pure VBS Progress Bar: Using IE Object (no file writing/ all dynamic)
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Pure VBS Progress Bar: Using IE Object (no file writing... - 11/5/2008 5:17:12 AM

Rischip

Posts: 510
Score: 2
Joined: 3/26/2007
Status: offline

This is a pure VBS progress bar. I am having a little trouble figuring out the size of a fieldset and a legend to adjust the size.

Any help would be wonderful.

Copy these files to the same directory and CD into that directory. Run "runfromvbs.vbs"

runfromvbs.vbs

Dim gsFile, gsLogFile, gsDirSeparator

'To execute the functions from other script.
' Way to execute other VBS files.
 Dim objfso,objfile
 Dim sVBSfile, sAllCode 
 sVBSFile = "revolvingprogressPURE.vbs"
 Set objfso = CreateObject("Scripting.FileSystemObject")
 Set objfile=objfso.OpenTextFile(sVBSFile,1)
 sAllCode = objfile.ReadAll
 objfile.Close
 Set objfso = Nothing
 
ExecuteGlobal sAllCode
'Execute sAllCode

Dim newProgBar

Set newProgBar = New grimProgBar
newProgBar.createProgBar("")
'newProgBar.createProgBar(False)

newProgBar.visibility = True

For i = 1 To 1200
 newProgBar.increment
Next

For i = 0 To 100
 newProgBar.incrementToPercent(i)
 WScript.Sleep 100
Next

newProgBar.incrementToPercent(10)

'MsgBox "Jumping by 10%"

newProgBar.incrementByPercent(10)

'MsgBox "Should be at 20% now" & vbCrLf & "Jumping by 20%"

newProgBar.incrementByPercent(20)

'MsgBox "Should be at 40% now" & vbCrLf & "Jumping by 30%"

newProgBar.incrementByPercent(30)

'MsgBox "Should be at 70% now" & vbCrLf & "Jumping by 40%"

newProgBar.incrementByPercent(40)

'MsgBox "Should be at 110% | 10% now" & vbCrLf &  "Jumping by 50%"

newProgBar.incrementByPercent(50)

'MsgBox "Should be at 160% | 60% now" & vbCrLf &  "Done Jumping"

'MsgBox "Closing"

newProgBar.visibility = False
'Set newProgBar = Nothing

Set newProgBar = New grimProgBar
newProgBar.createProgBar("With Some Text")

newProgBar.visibility = True

For i = 1 To 1200
 newProgBar.increment
 newProgBar.Title = CStr(i)
Next

For i = 0 To 100
 newProgBar.incrementToPercent(i)
 WScript.Sleep 200
 If i Mod 4 Then
 newProgBar.Title = CStr(i)&"%"
 End If
 
Next

newProgBar.incrementToPercent(10)
newProgBar.Title = "Maybe We Are copying some files"
WScript.Sleep 1000

'MsgBox "Jumping by 10%"

newProgBar.incrementByPercent(10)
newProgBar.Title = "Then maybe we are making Reg Entries"
WScript.Sleep 1000

'MsgBox "Should be at 20% now" & vbCrLf & "Jumping by 20%"

newProgBar.incrementByPercent(20)
newProgBar.Title = "Then maybe we are waiting for something to happen"
WScript.Sleep 1000

'MsgBox "Should be at 40% now" & vbCrLf & "Jumping by 30%"

newProgBar.incrementByPercent(30)
newProgBar.Title = "We could do just about anything"
WScript.Sleep 1000

'MsgBox "Should be at 70% now" & vbCrLf & "Jumping by 40%"

newProgBar.incrementByPercent(40)
WScript.Sleep 1000

'MsgBox "Should be at 110% | 10% now" & vbCrLf &  "Jumping by 50%"

newProgBar.incrementByPercent(50)
WScript.Sleep 1000

'MsgBox "Should be at 160% | 60% now" & vbCrLf &  "Done Jumping"

'MsgBox "Closing"
newProgBar.visibility = False
Set newProgBar = Nothing

revolvingProgressPURE.vbs

Class grimProgBar
 Private objTimerDisplay 
 Private objProgDiv 
 Private objProgDivText
 Private dialogVisible
 Private objProgTbl
 Private myIeDialog
 Private myIeDocument    
 Private myIeBody
 Private myCurrentPercent
 Private myTitle
 Private myProgLeg

Private Sub Class_Initialize
       dialogVisible = False
 End Sub

Public Property Let visibility(visValue)
 
 Dim diaFeatures

dialogVisible = visValue
 
     If (dialogVisible = True) Then
         myIeDialog.Visible = True
     Else
         myIeDialog.Visible = False
     End If
 
 End Property
 
 Public Property Get visibility

visibility = dialogVisible

End Property

Public Property Get percentProgress

percentProgress = myCurrentPercent

End Property
 
 Public Property Let Title(titleValue)

myTitle = titleValue
 myProgLeg.InnerHTML = myTitle
 myIeDocument.Title = myTitle
 
 End Property

Sub createProgBar(useTitle)

Set myIeDialog = CreateObject("InternetExplorer.Application")

myIeDialog.Navigate("about:blank")

Set myIeDocument = myIeDialog.Document
     
     Set myIeBody = myIeDialog.Document.Body
     myIeBody.Style.Overflow = "hidden"

Set objProgDiv = myIeDocument.createElement("DIV")
     objProgDiv.style.position="absolute"
     objProgDiv.style.zIndex="900"
     objProgDiv.style.width="400px"
     objProgDiv.style.overflow="hidden"
     objProgDiv.style.height="22px"
     objProgDiv.style.border="1px solid #000000"
     objProgDiv.style.left="0px"
     objProgDiv.style.Top="0px"
     objProgDiv.ID = "_scrollDiv"

Set objProgTblBody = myIeDocument.createElement("TBody")
         objProgTblBody.Style.overflow="hidden"
         objProgTblBody.Style.Left="-65px"
         objProgTblBody.ID = "_ScrollTBody"

Set objProgTbl = myIeDocument.createElement("Table")
     objProgTbl.ID = "_scrollTable"
     objProgTbl.Style.Width="65px"
     objProgTbl.Style.Height="22px"
     objProgTbl.Style.padding="0"
     objProgTbl.cellspacing=0
     objProgTbl.cellpadding=0
     objProgTbl.Style.border="none"
     objProgTbl.Style.overflow="hidden"
     objProgTbl.style.position="relative"
     objProgTbl.Style.Left="-65px"
     
     objProgTbl.Style.Visibility = "hidden"
     
     Set objMainRow = myIeDocument.createElement("tr")
     Set objCell1 = myIeDocument.createElement("td")
     Set objCell2 = myIeDocument.createElement("td")
     Set objCell3 = myIeDocument.createElement("td")
     Set objCell4 = myIeDocument.createElement("td")
     Set objCell5 = myIeDocument.createElement("td")
     Set objCell6 = myIeDocument.createElement("td")
     Set objCell7 = myIeDocument.createElement("td")
     Set objCell8 = myIeDocument.createElement("td")
     Set objCell9 = myIeDocument.createElement("td")
     Set objCell10 = myIeDocument.createElement("td")
     
     objCell1.style.backgroundcolor = "White"
     objCell1.style.width = "4px"
     objCell1.style.height = "22px"
     
     objCell2.style.filter = "progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#ffffff, endcolorstr=#339900)"
     objCell2.style.width = "10px"
     objCell2.style.height = "22px"
     
     objCell3.style.backgroundcolor = "White"
     objCell3.style.width = "4px"
     objCell3.style.height = "22px"
     
     objCell4.style.filter = "progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#33ff00, endcolorstr=#339900)"
     objCell4.style.width = "10px"
     objCell4.style.height = "22px"
     
     objCell5.style.backgroundcolor = "White"
     objCell5.style.width = "4px"
     objCell5.style.height = "22px"
     
     objCell6.style.filter = "progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#33ff00, endcolorstr=#339900)"
     objCell6.style.width = "10px"
     objCell6.style.height = "22px"
     
     objCell7.style.backgroundcolor = "White"
     objCell7.style.width = "4px"
     objCell7.style.height = "22px"
     
     objCell8.style.filter = "progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#33ff00, endcolorstr=#339900)"
     objCell8.style.width = "10px"
     objCell8.style.height = "22px"
     
     objCell9.style.backgroundcolor = "White"
     objCell9.style.width = "4px"
     objCell9.style.height = "22px"
     
     objCell10.style.filter = "progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#00cc00, endcolorstr=#006600)"
     objCell10.style.width = "10px"
     objCell10.style.height = "22px"
     
 
     objMainRow.appendChild(objCell1)
     objMainRow.appendChild(objCell2)
     objMainRow.appendChild(objCell3)
     objMainRow.appendChild(objCell4)
     objMainRow.appendChild(objCell5)
     objMainRow.appendChild(objCell6)
     objMainRow.appendChild(objCell7)
     objMainRow.appendChild(objCell8)
     objMainRow.appendChild(objCell9)
     objMainRow.appendChild(objCell10)
     objProgTblBody.appendChild(objMainRow)
     objProgTbl.appendChild(objProgTblBody)
     'objProgTbl.appendChild(objMainRow)
     objProgDiv.appendChild(objProgTbl)
     
     
     If Len(UseTitle) = 0 Then
         myIeDocument.body.appendChild(objProgDiv)
     Else
         Set myProgFS = myIeDocument.createElement("fieldset")
         Set myProgLeg = myIeDocument.createElement("legend")
         myProgLeg.InnerHTML = UseTitle
         myIeDocument.Title = UseTitle
         myProgFS.Style.Color="#000000"
         myProgFS.style.position="absolute"
         myProgFS.Style.Left="0px"
         myProgFS.Style.Top="0px"

'myProgLeg.Style.Left="0px"
         'myProgLeg.Style.Top="0px"
         'myProgLeg.style.position="absolute"
         
         'myProgFS.Style.Height=(Int(Replace(objProgDiv.style.height, "px", "")))'+ 5
         'myProgFS.Style.Width=(Int(Replace(objProgDiv.style.width, "px", "")))' + 5

myProgFS.appendChild(myProgLeg)
         objProgDiv.style.position="relative"

myProgFS.appendChild(objProgDiv)
         myIeDocument.body.appendChild(myProgFS)
         'objProgDiv.style.left="0px"
         'objProgDiv.style.Top="0px"

End If
     
     
     objProgTbl.Style.Visibility = "visible"

myIeDialog.FullScreen = True
     myIeDialog.AddressBar = False
     myIeDialog.StatusBar = False
     myIeDialog.ToolBar = False
     myIeDialog.MenuBar = False
     myIeBody.Style.Border = "none"

myIeDialog.Left = myIeDialog.Width/2 - ((Int(Replace(objProgDiv.style.width, "px", "")))/2)
     myIeDialog.Top = myIeDialog.Height/2 - ((Int(Replace(objProgDiv.style.height, "px", "")))/2)
     
     If Len(UseTitle) = 0 Then
         myIeDialog.Height = (Int(Replace(objProgDiv.style.height, "px", "")))' + 30
         myIeDialog.Width = (Int(Replace(objProgDiv.style.width, "px", "")))' + 20
     Else
         'need to figure out how to get the fieldset or legend sizes
         myIeDialog.Height = (Int(Replace(objProgDiv.style.height, "px", ""))) + 30
         myIeDialog.Width = (Int(Replace(objProgDiv.style.width, "px", ""))) + 20

'myIeDialog.Height = (Int(Replace(myProgFS.style.height, "px", "")))' + 30
         'myIeDialog.Width = (Int(Replace(myProgFS.style.width, "px", "")))' + 20
         
         
     End If
             
     
     While myIeDialog.Busy
     Wend

End Sub
 
 Sub increment

Dim fso
     Const ForReading = 1
     Const ForWriting = 2
     Const ForAppending = 8

objProgTbl.Style.Left = (Int(Replace(objProgTbl.Style.Left, "px", ""))) + 1 &"px"

If (Int(Replace(objProgTbl.Style.Left, "px", ""))) > (Int(Replace(objProgDiv.Style.Width, "px", ""))) Then
         objProgTbl.Style.Left = 0 - (Int(Replace(objProgTbl.Style.Width, "px", ""))) &"px"
     End If

End Sub
 
 Sub incrementToPercent(progPercent)

onePercent = ((Int(Replace(objProgDiv.Style.Width, "px", ""))) /100)

While progPercent > 99.9
         progPercent = progPercent - 100
         'MsgBox "Prog Percent: " & progPercent
         
     Wend

zeroPercent = ((((Int(Replace(objProgTbl.Style.Width, "px", "")))) /100) * progPercent) + (0 - (Int(Replace(objProgTbl.Style.Width, "px", ""))))
     
     
     
     
     movePercent = ((onePercent*progPercent) + zeroPercent)
     movePercent = movePercent &"px"
     
     objProgTbl.Style.Left = movePercent
     
     'not quite accurate yet
     'currentPercent = (Abs((0 - (Int(Replace(objProgTbl.Style.Width, "px", "")))) - (Int(Replace(objProgTbl.Style.Left, "px", "")))) / onePercent)
     'MsgBox currentPercent

myCurrentPercent = progPercent

End Sub

Sub incrementByPercent(progPercent)

incrementToPercent(progPercent+myCurrentPercent)
     
     Exit Sub

End Sub

Private Sub Class_Terminate
 
     myIeDialog.Quit
     Set myIeDialog = Nothing
 
 End Sub

End Class

< Message edited by Rischip -- 11/5/2008 6:35:28 AM >

_____________________________

Rischip
Author of - The Grim Linker

Post #: 1

RE: Pure VBS Progress Bar: Using IE Object (no file wri... - 11/5/2008 7:03:32 AM

Rischip

Posts: 510
Score: 2
Joined: 3/26/2007
Status: offline

This is what it looks like when it is running.

Thumbnail Image

Attachment (1)

_____________________________

Rischip
Author of - The Grim Linker

(in reply to Rischip)

Post #: 2

RE: Pure VBS Progress Bar: Using IE Object (no file wri... - 11/7/2008 12:28:47 PM

TNO

Posts: 1402
Score: 16
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

Instead of dynamically creating another vbs to run, why not use a single wsf file and call the different code portions by their job id?

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

(in reply to Rischip)

Post #: 3

RE: Pure VBS Progress Bar: Using IE Object (no file wri... - 11/10/2008 7:38:05 AM

Rischip

Posts: 510
Score: 2
Joined: 3/26/2007
Status: offline

It does not dynamically create an external vbs. It is a class file. And because I'm not to that point yet. I am still trying to get more functionality out of it. But it looks pretty good as is so far considering there are no graphics in use.

_____________________________

Rischip
Author of - The Grim Linker

(in reply to TNO)

Revisions: 1 | Post #: 4

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Pure VBS Progress Bar: Using IE Object (no file writing/ all dynamic)

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts