Catch the Address of MSIE with API

[saber163]

Hi there,

CAN ANYONE TELL ME HOW CAN I CATCH UP THE ADDRESS OF MSIE WITH THE HELP OF API AND VB? WITH MY EXE, I HAVE TO BE ABLE TO KNOW THAT A MSIE WINDOW IS OPENED AND I MUST KNOW THE ADDRESS OF ADDRESS-BAR. PLZ HELP ME.

SABER(EEE)

[Merrion]

Using the EventVB.dll you could do this thus:

Option Explicit

Dim WithEvents vbLink As EventVB.APIFunctions

Private Sub Form_Load()

Dim wndThis As ApiWindow
Dim wndChild As ApiWindow
Dim wndChild2 As ApiWindow
Dim wndChild3 As ApiWindow

Set vbLink = New APIFunctions

For Each wndThis In vbLink.System.TopLevelWindows
    If wndThis.ClassName = "IEFrame" Then
        '\\ Instance of explorer...
        For Each wndChild In wndThis.ChildWindows
            If wndChild.ClassName = "WorkerW" Then
                For Each wndChild2 In wndChild.ChildWindows
                    If wndChild2.ClassName = "ReBarWindow32" Then
                        For Each wndChild3 In wndChild2.ChildWindows
                            If wndChild3.ClassName = "ComboBoxEx32" Then
                                List1.AddItem wndChild3.WindowText
                            End If
                        Next wndChild3
                    End If
                Next wndChild2
            End If
        Next wndChild
    End If
Next wndThis

End Sub

Hope this helps,
Duncan