如何在 VB.net 中重新运行可执行文件

Question

我完全是VB.net的新手，现在我正在开发一个Windows服务，它将在启动时启动一个*.exe。如果此可执行文件的进程被其他程序杀死，我如何检测并重新启动该进程？

我的代码如下：

Public Class MyWinService
Dim RetVal
Protected Overrides Sub OnStart(ByVal args() As String)
    EventLog.WriteEntry("MyService Started")

    RetVal = Shell("JobService.exe", 1)

End Sub

Protected Overrides Sub OnStop()
    EventLog.WriteEntry("MyService Stopped")
    Dim myProcess = Process.GetProcessById(RetVal)
    myProcess.Kill()
End Sub

Protected Overrides Sub OnPause()
    EventLog.WriteEntry("MyService Paused")
End Sub

Protected Overrides Sub OnContinue()
    EventLog.WriteEntry("MyService Resumed")
End Sub

Protected Overrides Sub OnCustomCommand(ByVal command As Integer)
    If command = 200 Then
        EventLog.WriteEntry("Custom Command 200 invoked")
    ElseIf command = 210 Then
        EventLog.WriteEntry("Custom Command 210 invoked")
    End If
End Sub

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

End Sub

结束课程

提前非常感谢！

Answer 1

错误的方法是在 OnStart() 方法中创建 Process 对象。将一个方法绑定到进程对象的 Exited 事件以重新启动该对象。 http://msdn.microsoft .com/en-us/library/system.diagnostics.process.onexited(VS.71).aspx 包含有关退出事件的一些信息。

正确的方法是创建一个 Timer 对象。每 X 分钟创建一个 Process 对象，检查句柄 ID，并查看它是否正在运行。如果没有，则创建一个新的可执行文件，类似于您在 OnStart() 方法中所做的操作。

http://csharpstruggles.blogspot.com/2005/ 02/using-timer-in-windows-service.html

http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/bc175c60-f81b-4d1a-975d-717368468238

优雅的方式是如上所述，在服务本身中完成工作。

Answer 2

您可以使用 process.start 和 process.Exited 方法，如下所示：

Imports System.Diagnostics

Public Class Form1
Dim WithEvents proc As Process

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
  Handles Button1.Click
' start the process
proc = Process.Start(progName)
proc.EnableRaisingEvents = True
End Sub

Private Sub proc_Exited(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles proc.Exited
' restart the process whenever it exits
proc = Process.Start(progName)
proc.EnableRaisingEvents = True
End Sub

End Class