Internet Explorer退出事件VB.net

Question

I'm using Process_Exited event in my service it gets all events except Internet explorer exited event, it gets the event when all the explorer windows get closed but when i close explorers one by one my function only gets the event when the final explorer gets closed, so the function is only able to get one process ID instead of all iexplorer process IDs

This is my method

 Private Sub Process_Exited(ByVal sender As Object, ByVal e As System.EventArgs)


    Dim lObj_CurrPro As Process
    Try
      '
      ' Make sure that the sender object is of process type to avoid unforseen errors
      '
      If TypeOf sender Is Process Then
        lObj_CurrPro = sender

        Call StopTracking(lObj_CurrPro.Id)
      End If

    Catch

    End Try
  End Sub

NOTE: Im using Iexplorer8 and there is a problem in its processes. Processes don't exit even if you close iexplorer window

Answer 1

This is what i did. This code gets event every time an IE is launched and gets a event every time an IE closes

Imports SHDocVw
Imports System.Windows
Imports System.IO
Imports System.Management
Imports System.Object
Imports System.EventArgs
Imports System.Management.ManagementEventArgs
Imports System.Management.EventArrivedEventArgs
Imports System.Threading



Public Class Form1
  Public cd As New List(Of collectData)()
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

  End Sub

  Dim URL As String
  Public ie As New List(Of SHDocVw.InternetExplorer)()
  Public ie_temp As New List(Of String)()
  Public count As New Integer

  Private Sub Command1_Click()

    Dim shellWins As SHDocVw.ShellWindows
    Dim explorer As SHDocVw.InternetExplorer
    Dim lObj_ShellWindows As ShellWindows
    lObj_ShellWindows = New SHDocVw.ShellWindows
    Dim lObj_ie As InternetExplorer
    Dim li_Itr As New Integer
    Dim set_CD As collectData
    Dim FILE_NAME As String = "D:\test2.txt"
    ' Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
    shellWins = New SHDocVw.ShellWindows

    'If ie IsNot Nothing Then
    Try

      ie.Insert(count, shellWins.Item(shellWins.Count - 1))
      set_CD = New collectData(DateTime.Now, #12:00:00 AM#, ie(count).LocationName, ie(count).LocationURL,
                    count, False)
      cd.Insert(count, set_CD)


      ' objWriter.WriteLine(ie(count).LocationName + "  Opened  " + DateTime.Now)
      ' objWriter.Close()
      count = count + 1


      lObj_ie = lObj_ShellWindows(lObj_ShellWindows.Count - 1)

      If lObj_ie.Name = "Windows Internet Explorer" Then
        AddHandler lObj_ie.OnQuit, AddressOf HandleIEQuit
      End If

    Catch ex As Exception

    End Try
    'Else

    'End If

    shellWins = Nothing
    explorer = Nothing
  End Sub
  Public Sub get_ie()
    Dim lObj_ShellWindows As ShellWindows
    lObj_ShellWindows = New SHDocVw.ShellWindows
    Dim lObj_exp As InternetExplorer
    Dim li_count As Integer
    ' Dim set_CD As collectData
    ie = Nothing
    ie = New List(Of InternetExplorer)
    li_count = 0
    For Each lObj_exp In lObj_ShellWindows
      Try
        If lObj_exp.Name = "Windows Internet Explorer" And lObj_exp.LocationURL.Contains("/") Then
          ie.Insert(li_count, lObj_exp)
          li_count = li_count + 1
        Else
        End If

      Catch ex As Exception

      End Try
    Next
    Dim tempName As String
    Dim IE_exists As New Boolean
    IE_exists = False
    If ie.Count = 0 Then
      For del As Integer = 0 To count
        cd(del).exit_time = DateTime.Now
        cd(del).exited = True
      Next
    Else
      For i As Integer = 0 To li_count - 1
        tempName = ie(i).LocationURL
        For j As Integer = 0 To count - 1
          If cd(j).url = tempName Then
            IE_exists = True
          ElseIf j = count - 1 And cd(j).url IsNot tempName Then
            cd(j).exit_time = DateTime.Now
            cd(j).exited = True
          End If

        Next
        IE_exists = False
      Next
    End If


    count = li_count
  End Sub
  Public Sub HandleIEQuit()
    Dim lObj_ShellWindows As ShellWindows

    lObj_ShellWindows = New SHDocVw.ShellWindows
    Dim do_thread As New Threading.Thread(
                                     AddressOf get_ie)
    do_thread.Start()


  End Sub
  Private Sub ManagementWatcher_StartEventArrived(ByVal PObj_Sender As Object, ByVal PObj_EventArgs As EventArrivedEventArgs)

    Dim ls_ProcessName As String

    Dim li_ProcessID As Integer


    Try

      ls_ProcessName = Path.GetFileNameWithoutExtension(PObj_EventArgs.NewEvent("ProcessName").ToString().ToUpper())
      li_ProcessID = Integer.Parse(PObj_EventArgs.NewEvent("ProcessID").ToString())


      If ls_ProcessName = "IEXPLORE" Then

        Command1_Click()
      End If


    Catch lObj_Ex As Exception

    End Try

  End Sub

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    Dim mObj_ManagementStartWatcher As ManagementEventWatcher = New ManagementEventWatcher("Select * From Win32_ProcessStartTrace")
    Call mObj_ManagementStartWatcher.Start()
    AddHandler mObj_ManagementStartWatcher.EventArrived, AddressOf ManagementWatcher_StartEventArrived


  End Sub
End Class