VB.NET调用cmd.exe时Process输出事件未触发的解决方法

你的代码核心问题是没有启动异步读取输出的机制，即便开启了重定向和事件，OutputDataReceived与ErrorDataReceived事件也不会自动触发。另外要实现向命令窗口输入命令，还需要额外配置输入重定向。以下是完整的修正方案：

关键修正点 #

• 必须开启RedirectStandardInput，才能通过代码向cmd发送命令
• 启动进程后，调用BeginOutputReadLine()和BeginErrorReadLine()，触发异步读取事件
• 向cmd发送命令时，需通过StandardInput.WriteLine()传递，末尾要带换行符（cmd依赖换行执行命令）
• 处理输出事件时，要判断e.Data是否为Nothing，避免空引用异常

完整代码示例 #

Dim WithEvents p As Process

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    p = New Process()

    With p.StartInfo
        .FileName = "cmd.exe"
        .RedirectStandardOutput = True
        .RedirectStandardError = True
        .RedirectStandardInput = True
        .UseShellExecute = False
        .CreateNoWindow = False ' 若要隐藏窗口可设为True
        .WindowStyle = ProcessWindowStyle.Normal
    End With

    p.EnableRaisingEvents = True
    p.Start()

    ' 启动异步读取输出和错误流，这是触发事件的关键
    p.BeginOutputReadLine()
    p.BeginErrorReadLine()

    ' 示例：发送第一条命令（比如切换目录）
    p.StandardInput.WriteLine("cd C:\")
End Sub

Private Sub p_OutputDataReceived(sender As Object, e As DataReceivedEventArgs) Handles p.OutputDataReceived
    ' 避免空引用，e.Data为Nothing表示流已结束
    If Not String.IsNullOrEmpty(e.Data) Then
        Debug.Print("输出: " & e.Data)
    End If
End Sub

Private Sub p_ErrorDataReceived(sender As Object, e As DataReceivedEventArgs) Handles p.ErrorDataReceived
    If Not String.IsNullOrEmpty(e.Data) Then
        Debug.Print("错误: " & e.Data)
    End If
End Sub

' 可选：向cmd发送更多命令的方法
Private Sub SendCommand(command As String)
    If p IsNot Nothing AndAlso p.HasExited = False Then
        p.StandardInput.WriteLine(command)
    End If
End Sub

额外说明 #

• 该方案能保持cmd进程持久化，后续通过SendCommand方法发送的命令会基于当前进程的上下文执行（比如之前切换的目录会生效）
• 若需要同步读取输出，可使用StandardOutput.ReadToEnd()，但会阻塞线程，不适合持久化场景
• 进程结束后记得调用p.Dispose()释放资源

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