Hello,
I had the following code working with Internet Explorer, which was a visual prompt to the user that a process was occuring in the background. Now that Internet Explorer is end of life, our company is now replacing with Microsoft Edge.
Is there a way to accomplish the same thing with Edge?
Code:
Function DisplayProgress(stage)Dim script
'Here is a phony progress bar that uses an IE Window
Set x = CreateObject("internetexplorer.application")
Set script = CreateObject("wscript.shell")
''in code, the colon acts as a line feed
x.navigate2 "about:blank": x.Width = 350: x.Height = 80: x.Toolbar = False: x.MenuBar = False: x.StatusBar = False: x.Visible = True
x.Document.write "<font color=blue>"
For n = 1 To 100
x.Document.write "|"
wscript.sleep 20
x.Document.title = "Process: " & n & " %"
Next
stage = stage + 1
'close the window
x.Quit
Set x = Nothing
DisplayProgress = stage
End Function