VB.NET：外部进程调用机制与弹窗检测关闭技术咨询

1. .NET Process.Start() 的执行机制 #

• Process.Start() 调用后会启动独立的外部进程，主应用程序不会暂停等待外部程序完成，而是立即继续执行后续代码。
• 如果需要主应用等待外部进程执行完毕，必须主动调用 ApplicationProcess.WaitForExit() 方法（可传入超时时间参数，避免无限等待）。
• 你的当前代码无等待逻辑，主应用会直接跳过Try块后续流程，外部进程在后台运行；当外部程序弹出错误窗口时，进程无法自行结束，就会在任务管理器中残留。

2. 检测并关闭外部程序的提示窗口 #

优先方案：使用静默参数（推荐） #

大多数文档转换工具支持静默/无交互模式的命令行参数（比如 /silent、/q、/noerr 等），直接在 commandStr 中添加这类参数，让外部程序遇到错误时不弹出窗口，而是直接返回错误码。这是最可靠的解决方式，避免后续窗口检测的复杂度。

备选方案：通过Windows API查找并关闭窗口 #

如果外部程序没有静默参数，可以通过Windows API查找目标窗口并发送关闭指令。以下是VB.NET的实现示例：

首先在类中声明所需的Windows API函数：

Imports System.Runtime.InteropServices

Public Class WindowHelper
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    Private Const WM_CLOSE As Integer = &H10

    ' 根据窗口标题查找并关闭窗口
    Public Shared Sub CloseWindowByTitle(windowTitle As String)
        Dim hWnd As IntPtr = FindWindow(Nothing, windowTitle)
        If hWnd <> IntPtr.Zero Then
            SendMessage(hWnd, WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
        End If
    End Sub
End Class

然后在启动外部进程后，启动后台线程定时检查并关闭目标窗口（假设错误窗口标题为"格式错误"）：

Try
    Dim ProcessPath As String = "C:\Temp\"
    Dim commandStr As String = "arg1 arg2"
    Dim startInfo As New ProcessStartInfo()
    startInfo.FileName = ProcessPath & "application.exe"
    startInfo.Arguments = commandStr
    startInfo.WindowStyle = ProcessWindowStyle.Hidden
    Dim ApplicationProcess As Process = Process.Start(startInfo)

    ' 启动后台线程检测并关闭错误窗口
    Task.Run(Sub()
                 ' 循环检查30秒（可根据实际调整）
                 For i As Integer = 0 To 30
                     Threading.Thread.Sleep(1000)
                     WindowHelper.CloseWindowByTitle("格式错误")
                     ' 如果进程已经结束，退出循环
                     If ApplicationProcess.HasExited Then
                         Exit For
                     End If
                 Next
                 ' 如果进程仍未结束，强制终止
                 If Not ApplicationProcess.HasExited Then
                     ApplicationProcess.Kill()
                 End If
             End Sub)
Catch ex As Exception
    ' 先判断进程是否存在再执行Kill
    If ApplicationProcess IsNot Nothing AndAlso Not ApplicationProcess.HasExited Then
        ApplicationProcess.Kill()
    End If
End Try

补充：设置进程超时 #

无论是否检测窗口，都可以给外部进程设置超时时间，防止进程长期残留：

' 等待外部进程执行，最多等待60秒
If Not ApplicationProcess.WaitForExit(60000) Then
    ApplicationProcess.Kill()
End If

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