After initializing the explorer object you will be hooked into the Microsoft Internet Explorer. You will be able to enumerate all open browser windows, capture the events of those and you are even able to access the complete DOM of what is shown in that window.

You can see at the demo at the right how easy it is to get complete control over Internet Explorer.

The source code of a popup killer is included. Fortunately (but to bad for the sample) all browsers already have a build in popup killer.

Click here to download the complete source code, the compiled DLL and the demo.

Private WithEvents Explorer As EVICT_Explorer.Explorer
Public Sub Form_Load()
    ' Hook into Internet Explorer
    Set Explorer = New EVICT_Explorer.Explorer
    Explorer.Enabled = True
    ' Open a new InternetExplorer window
    Dim MyExplorer As Integer
    MyExplorer = Explorer.OpenNew
    Explorer.Browsers(MyExplorer).Visible = True
End Sub
Private Sub Explorer_NewWindow(Browser As _
    SHDocVw.InternetExplorer, ppDisp As Object, _
    Cancel As Boolean)
    MsgBox "Opening new window for : " & _
    Browser.LocationURL
    ' you can access the entire DOM
    Debug.Print Browser.Document.body.innerhtml
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set Explorer = Nothing
End Sub