How can I determine if Internet Explorer is active 1

[zggs90]

I have developed a VB6 program and need to determine if "Internet Explorer" is currently running, how can I do this?

Also how can I get a list of all the applications currently running?

Thanks

 

[eman6]

This might be useful:

http://www.vb-helper.com/howto_find_ie_address.html

Eman_2005
Technical Communicator

http://www.smartistek.com

 

[eman6]

This code determines if Internet explorer is running and, if yes, counts how many instances.
This should answer your first question.

Private Sub Command1_Click()
Dim ie As InternetExplorer
Dim oShell As ShellWindows
Dim oWin As Object
Dim sTitle As String

Set oShell = New ShellWindows

On Error Resume Next

For Each oWin In oShell
    Set ie = oWin 'Get each open ie window
    sTitle = ie.LocationName 'get the caption
    If InStr(sTitle, myIE) > 0 Then
        T = T + 1
    End If
    
Next
    If T > 0 Then
        MsgBox "Yes " & T
    Else
        MsgBox "No"
    End If

End Sub

Eman_2005
Technical Communicator

http://www.smartistek.com