Check if Internet Explorer is already running

[Spurious]

I got the following code:

Function QuelltextAuslesen(jURL As String) As String 
Dim IEApp As InternetExplorer 'Need a reference to Microsoft Internet Controls 
Dim HTMLDoc As HTMLDocument 'Need a reference to Microsoft HTML Object Library 

[...] 

Set IEApp = New InternetExplorer 
IEApp.Visible = False 'Some things don't work unless it's visible 
IEApp.navigate jURL 
'We need to wait for the website to complete loading 
Do 
    DoEvents 
Loop Until IEApp.readyState = READYSTATE_COMPLETE 

Set HTMLDoc = IEApp.Document 
QuelltextAuslesen = HTMLDoc.body.innerHTML 
IEApp.Quit 
Set IEApp = Nothing 
End Function

If I use visible = true, several instances of IE can run, but since I want it to be invisible, I need a way to check if IE is already running.
What's my play?

Thanks in advance!

 

[ukmikeb]

Hi

Why do you need to check if IE is running?

You have created a new instance of IE in the function which is not visible.

Perhaps you need this to determine when the web page is loaded -

    Do Until ieAPP.Document.ReadyState = "complete"
        DoEvents
    Loop

hth

 

[Spurious]

Thanks for the help, but it doesnt work :/.

 

[ukmikeb]

Hi

I just checked on a similar process -

1, I commented out the "ie.Visible = True" statement rather than say "ie.Visible = False". I don't get added instances of ie.

2. The piece of code in my last post didn't execute, probably because the whole page had loaded anyway.

Apart from that what doesn't work?