Internet Explorer退出事件VB.net

Question

我在我的服務中使用Process_Exited事件，它獲取除Internet Explorer退出事件以外的所有事件，它在所有瀏覽器窗口都關閉時獲取該事件，但是當我逐個關閉瀏覽器時，我的函數僅在最終瀏覽器關閉時才獲取該事件，因此該功能只能獲取一個進程ID，而不是所有iexplorer進程ID

這是我的方法

 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

注意：我正在使用Iexplorer8，並且它的過程中存在問題。 即使關閉iexplorer窗口，進程也不會退出

Answer 1

這就是我所做的。 每次啟動IE時此代碼都會獲取事件，而每次IE關閉時此代碼均會獲取事件

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