프로세스를 스캔 한 다음 발견되면 다시 죽이고 다시 시작하십시오.

Question

특정 프로세스가 실행 중인지 5 초마다 확인한 다음 간단한 프로세스를 작성하려고 시도하는 간단한 프로그램을 작성하려고합니다. 프로그램은 백그라운드에서 실행되어야하며 시스템이 시작될 때마다 시작되어야합니다. VB로 작성 그 지금까지 프로세스 :

Module Module1 
Private Declare Auto Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean 
Private Declare Auto Function GetConsoleWindow Lib "kernel32.dll"() As IntPtr 
Private Const SW_HIDE As Integer = 0 

Sub Main() 
eh: 
    Dim hWndConsole As IntPtr 
    hWndConsole = GetConsoleWindow() 
    ShowWindow(hWndConsole, SW_HIDE) 
    For Each proc As Process In Process.GetProcessesByName("hl") 'hl is the process to look for 
     proc.WaitForExit(5000) 'wait up to 5 seconds. 
     proc.Kill() 'force the process to exit. 

    Next proc 
    GoTo eh 
    Threading.Thread.Sleep(5000) 'Sleep for 5 sec and start over 
End Sub 
End Module 

그러나 문제는, 그것은 매번 콘솔 창을 보여줍니다 그것은 시작하고, 검출 공정 물론

Answer 1

사망 후 시도하기 때문에 그것은 또한, 충돌 그런 For Each proc As Process In Process.GetProcessesByName("hl")

시도 뭔가 :

For Each prog As Process In Process.GetProcesses 
    If prog.ProcessName = "hl" Then 
      prog.Kill() 
      Exit For 
    End If 
Next