如何向应用启动的运行中cmd程序发送命令优雅关闭OpenVPN？

我之前也踩过类似的坑——直接杀OpenVPN进程会残留路由、虚拟设备配置，搞得网络出问题。下面给你两个靠谱的方案，都是通过发送Ctrl+C信号让OpenVPN自行清理退出的：

方案一：给关联的cmd进程发送Ctrl+C信号 #

首先得修改启动代码，保存cmd的Process对象，同时配置参数让我们能正常发送信号：

Imports System.Runtime.InteropServices

Public Class YourAppForm
    ' 声明Windows API用于发送控制台控制信号
    Enum ConsoleCtrlEvent
        CTRL_C_EVENT = 0
        CTRL_BREAK_EVENT = 1
    End Enum

    <DllImport("kernel32.dll")>
    Private Shared Function GenerateConsoleCtrlEvent(ByVal dwCtrlEvent As ConsoleCtrlEvent, ByVal dwProcessGroupId As UInteger) As Boolean
    End Function

    ' 保存cmd进程对象，方便后续关闭操作
    Private cmdProcess As Process

    ' 启动OpenVPN的方法
    Private Sub StartOpenVPN(ovpnPath As String)
        Dim cmdInfo As New ProcessStartInfo("cmd", "/K openvpn.exe " & Chr(34) & ovpnPath & Chr(34))
        cmdInfo.WindowStyle = ProcessWindowStyle.Hidden
        cmdInfo.UseShellExecute = False ' 必须设为False，否则无法传递信号
        cmdInfo.RedirectStandardInput = True ' 可选，增强可控性
        cmdInfo.CreateNoWindow = True ' 比WindowStyle更彻底的隐藏

        cmdProcess = Process.Start(cmdInfo)
    End Sub

    ' 优雅关闭OpenVPN的方法
    Private Sub StopOpenVPN()
        If cmdProcess IsNot Nothing AndAlso Not cmdProcess.HasExited Then
            ' 发送Ctrl+C信号给cmd的进程组，子进程OpenVPN会收到并执行清理
            GenerateConsoleCtrlEvent(ConsoleCtrlEvent.CTRL_C_EVENT, CUInt(cmdProcess.Id))
            
            ' 等待进程优雅退出，最多等5秒
            If Not cmdProcess.WaitForExit(5000) Then
                ' 超时后兜底强制杀死，避免进程僵死
                cmdProcess.Kill()
            End If
            cmdProcess.Dispose()
            cmdProcess = Nothing
        End If
    End Sub
End Class

关键细节： #

• UseShellExecute = False是核心：如果设为True，进程由系统shell启动，无法通过GenerateConsoleCtrlEvent传递信号给子进程。
• 这个API会给整个进程组发信号，所以cmd启动的OpenVPN子进程也能收到Ctrl+C，自动清理路由和虚拟设备。

方案二：直接启动OpenVPN进程（更简洁） #

其实没必要通过cmd中转，直接启动OpenVPN.exe更直接，同样可以发送Ctrl+C信号：

Imports System.Runtime.InteropServices

Public Class YourAppForm
    Enum ConsoleCtrlEvent
        CTRL_C_EVENT = 0
    End Enum

    <DllImport("kernel32.dll")>
    Private Shared Function GenerateConsoleCtrlEvent(ByVal dwCtrlEvent As ConsoleCtrlEvent, ByVal dwProcessGroupId As UInteger) As Boolean
    End Function

    Private ovpnProcess As Process

    Private Sub StartOpenVPN(ovpnPath As String)
        Dim ovpnInfo As New ProcessStartInfo("openvpn.exe", Chr(34) & ovpnPath & Chr(34))
        ovpnInfo.WindowStyle = ProcessWindowStyle.Hidden
        ovpnInfo.UseShellExecute = False
        ovpnInfo.CreateNoWindow = True

        ovpnProcess = Process.Start(ovpnInfo)
    End Sub

    Private Sub StopOpenVPN()
        If ovpnProcess IsNot Nothing AndAlso Not ovpnProcess.HasExited Then
            GenerateConsoleCtrlEvent(ConsoleCtrlEvent.CTRL_C_EVENT, CUInt(ovpnProcess.Id))
            If Not ovpnProcess.WaitForExit(5000) Then
                ovpnProcess.Kill()
            End If
            ovpnProcess.Dispose()
            ovpnProcess = Nothing
        End If
    End Sub
End Class

为什么直接杀进程不行？ #

OpenVPN运行时会修改系统路由表、创建TUN/TAP虚拟设备，这些操作需要它主动触发清理逻辑。强制杀死进程会导致这些配置残留，轻则网络访问异常，重则需要手动重置网络才能恢复。

内容的提问来源于stack exchange，提问作者Niel