.NET Process.Kill() 以安全的方式

Question

我正在从 VB.NET GUI 控制一个老旧的 FORTRAN 模拟器，使用重定向 I/O 与模拟器可执行文件进行通信。 GUI 会弹出一个“状态”窗口，其中包含进度条、预计时间和“停止”按钮 (Button_Stop)。

现在，我希望 Button_Stop 立即终止模拟器进程。执行此操作的明显方法是在 Child Process 对象上调用 Kill()。如果在进程退出后完成，则会出现异常，但我可以在尝试杀死进程之前测试进程是否退出，对吧？

好的，所以当单击按钮时我会执行以下操作：

If Not Child.HasExited Then
    Child.Kill()
    Button_Stop.Enabled = False
End If

但是，如果进程在测试和调用 Kill() 之间碰巧退出怎么办？在这种情况下，我会得到一个例外。

接下来我想到的是，我可以在 Process.Exited 事件处理程序中执行 Button_Stop.Enabled = False ，从而防止 Child.Kill( ) 在 Button_Stop.Clicked 处理程序中调用。但由于 Process.Exited 处理程序是在不同的线程上调用的，因此仍然会出现以下可能的交错：

1. 子进程退出。
2. Process.Exited 触发，调用 Invoke 来安排 Button_Stop.Enabled = False
3. 用户点击 Button_Stop，触发 < code>Child.Kill()
4. Button_Stop.Enabled = False 确实发生了。

然后，第 3 步将引发异常。

如何在没有任何竞争条件的情况下终止该进程？我的想法完全错误吗？

Answer 1

只需捕获异常并在 finally 中禁用按钮即可：

Try                    
    Child.Kill()
Catch ex As Exception 
    MsgBox(ex.ToString())
Finally
    Button_Stop.Enabled = False
End Try

与其捕获所有类型的异常，当然最好只捕获 InvalidOperationException 和 Win32Exception > 因为如果进程正在终止或已经退出，则会抛出这些异常。

您可能认为如果程序中发生异常是一件“坏事”，并且您应该设计程序来完全避免异常。然而，有不同类型的异常和异常处理，有些是错误的设计决策，而另一些（例如这个）是强制性的，因为异常的原因（即另一个进程的终止）超出了您的控制范围。

如果您想进一步阅读，我推荐您 Eric Lipperts 关于不同类型异常的帖子：

编码中的奇妙冒险：烦恼例外

Answer 2

您可以 P/Invoke 到 TerminateProcess 中，如果进程已经退出，则不会抛出异常：

Sub Main()
    Dim p = Process.Start("C:\Windows\system32\notepad.exe")
    Thread.Sleep(1000)
    TerminateProcess(p.Handle, 0)
    TerminateProcess(p.Handle, 0) ''# This call won't throw, it will just fail silently.
End Sub

<DllImport("kernel32.dll", SetLastError:=True)>
Private Function TerminateProcess(ByVal hProcess As IntPtr, ByVal uExitCode As UInteger) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function