0

私のコードで例外を取得する

画像に示すようにこの例外を処理する方法

Public Class Form1
Dim processStartEvent As ManagementEventWatcher = New ManagementEventWatcher("SELECT * FROM Win32_ProcessStartTrace")
Dim processStopEvent As ManagementEventWatcher = New ManagementEventWatcher("SELECT * FROM Win32_ProcessStopTrace")

Public Sub New()
    InitializeComponent()
    AddHandler processStartEvent.EventArrived, AddressOf Me.processStartEvent_EventArrived
    processStartEvent.Start()
    AddHandler processStopEvent.EventArrived, AddressOf Me.processStopEvent_EventArrived
    processStopEvent.Start()
End Sub

Private Sub processStartEvent_EventArrived(sender As Object, e As EventArrivedEventArgs)
    Dim processName As String = e.NewEvent.Properties("ProcessName").Value.ToString
    Dim processID As String = Convert.ToInt32(e.NewEvent.Properties("ProcessID").Value).ToString
    FileIO.WriteToFile("+ Process started. Name: " & processName & " | ID: " + processID)
    FileIO.WriteToFile(" | Date & Time: ")
    FileIO.WriteToFile(System.DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss"))
End Sub

Private Sub processStopEvent_EventArrived(sender As Object, e As EventArrivedEventArgs)
    Dim processName As String = e.NewEvent.Properties("ProcessName").Value.ToString
    Dim processID As String = Convert.ToInt32(e.NewEvent.Properties("ProcessID").Value).ToString
    FileIO.WriteToFile("- Process stopped. Name: " & processName & " | ID: " + processID)

End Sub End Class

ManagmentException の処理方法

4

1 に答える 1