"
End With
' Create IE automation object with generated HTML
With IE
.width=Width+35 ' Increase if using more cells
.height=Height+60 ' Increase to allow more info/debug text
If Version>"5.1" Then ' Allow for bigger border in Vista/Widows 7
.width=.width+10
.height=.height+10
End If
.left=(SWidth-.width)/2
.top=(SHeight-.height)/2
.navigate "file://" & Temp
'.navigate "http://samsoft.org.uk/progbar.htm"
.addressbar=False
.resizable=False
.toolbar=False
On Error Resume Next
.menubar=False ' Causes error in Windows 8 ?
.statusbar=False ' Causes error in Windows 7 or IE 9
On Error Goto 0
.visible=True ' Causes error if UAC is active
End With
Active=True
' Restore the user's property settings for the registry key
Value=State ' Restore option
Reg.SetDWORDValue HKEY_CURRENT_USER,KeyPath,KeyName,Value ' Update property
Exit Sub
End Sub
' Increment progress bar, optionally clearing a previous cell if working as an activity bar
' Modified 2011-10-05
Public Sub Step(Clear)
SetCell NextOn,True : NextOn=(NextOn+1) Mod Cells
If Clear Then SetCell NextOff,False : NextOff=(NextOff+1) Mod Cells
End Sub
' Self-timed shutdown
' Modified 2011-10-05
Public Sub TimeOut(S)
Dim I
Respawn=False ' Allow uninterrupted exit during countdown
For I=S To 2 Step -1
SetDebug " Closing in " & I & " seconds" & String(I,".")
WScript.sleep 1000
Next
SetDebug " Closing in 1 second."
WScript.sleep 1000
Close
End Sub
End Class
' Fires if progress bar window is closed, can't seem to wrap up the handler in the class
' Modified 2011-10-04
Sub Event_OnQuit()
PB.Cancel
End Sub
' ==============
' End of listing
' ==============