Visual Basic

Imports System.IO<br />
Imports System.Collections<br />
Imports SHDocVw<br />
<br />
Public Class Form1<br />
   <br />
    Private browser As SHDocVw.InternetExplorer<br />
    Private WithEvents shellWindows As SHDocVw.ShellWindows<br />
    Private Current_IE_Handles As ArrayList<br />
<br />
  <br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        'InitializeComponent()<br />
        Current_IE_Handles = New ArrayList<br />
<br />
        shellWindows = New SHDocVw.ShellWindows<br />
<br />
    End Sub<br />
<br />
    Private Sub shellWindows_WindowRegistered1(ByVal lCookie As Integer) Handles shellWindows.WindowRegistered<br />
        Dim filnam As String<br />
        Dim ie As SHDocVw.InternetExplorer<br />
<br />
        For Each ie In shellWindows<br />
            filnam = Path.GetFileNameWithoutExtension(ie.FullName).ToLower()<br />
            If filnam.Equals("iexplore") Then<br />
                browser = ie<br />
            End If<br />
<br />
            Dim check As Boolean = True<br />
            Dim i As Integer<br />
<br />
            If Current_IE_Handles.Count > 0 Then<br />
                For i = 0 To Current_IE_Handles.Count - 1<br />
                    If Current_IE_Handles(i).ToString.Equals(browser.HWND.ToString) Then<br />
                        check = False<br />
                    End If<br />
                Next<br />
            End If<br />
<br />
            If check = True Then<br />
<br />
                Me.Current_IE_Handles.Add(browser.HWND.ToString())<br />
                'ListBox1.Items.Add(browser.HWND.ToString())<br />
                MsgBox(browser.HWND.ToString())<br />
               <br />
            End If<br />
        Next<br />
    End Sub<br />
End Class