ManagementEventWatcher 글자 수 제한이 있습니까?

Question

eventwathcer를 사용하려고하는데 11 문자 프로세스 이름 (AbcdEfghIII.exe)으로 작동하지 않습니다. 나는 10 문자의 프로세스 이름 (AbcdEfgIII.exe)을 쓰면된다. 글자 수 제한이 있습니까? 아니면 제가 잘못하고 있습니까? 여기 내 코드입니다 :

Imports System.Management 

    Public Class Form1 
Dim WithEvents StopWatch As New ManagementEventWatcher(New WqlEventQuery("SELECT * FROM Win32_ProcessStopTrace")) 

Private Sub StopWatch_EventArrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) 
    If e.NewEvent.Properties("ProcessName").Value.ToString = "AbcdEfghIII.exe" Then 
     MsgBox("Closed") 
    End If 
End Sub 

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
    StopWatch.Stop() 
    RemoveHandler StopWatch.EventArrived, AddressOf StopWatch_EventArrived 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Try 
     AddHandler StopWatch.EventArrived, AddressOf StopWatch_EventArrived 
     StopWatch.Start() 
    Catch g As Exception 
     MsgBox("Please, run as admin.", MsgBoxStyle.Critical, "Error") 
     Me.Close() 
    End Try 
End Sub 
End Class 

Answer 1

제대로이 일을 할 수있는 방법이있을 것 같지 않기 때문에, 나는 당신이 단지 해키 해결 방법을 사용해야합니다 가정 : 프로세스 이름이 Customization로 시작하면 확인을.

그렇다면 물론 CustomizationWHATEVER.exe과 같은 프로세스에 반응하지만, 어떤 이유로 사용중인 코드가 전체 이름을 반환하지 않으므로 작동하려면 다른 방법이 없습니다.

초기 코드를 사용 :

If check.StartsWith("Customization", StringComparison.OrdinalIgnoreCase) Then 
    MessageBox.Show("Closed") 
End If 

---

PREVIOUS 답변 : 여기

는 해결 방법입니다 :

대신 ProcessName의 ProcessID 필드 가져 오기를 사용하는 것이 Process.GetProcessById()와 함께 .NE를 얻습니다. T 친한 Process class 인스턴스 (이름을 추출 할 수 있음).

Private Sub StopWatch_EventArrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) 
    Dim PID As Integer = CType(CType(e.NewEvent.Properties("ProcessID").Value, UInteger) And Integer.MaxValue, Integer) 
    Dim p As Process = Process.GetProcessById(PID) 

    'NOTE: The ".exe" part is excluded in Process.ProcessName. 
    If String.Equals(p.ProcessName, "Customization", StringComparison.OrdinalIgnoreCase) Then 
     MessageBox.Show("Closed") 
    End If 
End Sub