VB.NET中运行RunApplication(X)时如何关闭弹窗？

这个问题我之前碰到过，核心原因是Desktop.Application.RunApplication是同步阻塞方法——它会卡在这一行，直到你启动的应用完全关闭才会继续执行后面的代码。这就导致你的SendKeys.SendWait根本没机会运行，自然关不掉弹窗。下面给你几个靠谱的解决方案：

方案1：用Process.Start替代（最推荐） #

Process.Start是异步启动应用的，不会阻塞主线程，代码可以继续执行后续的弹窗处理逻辑。示例代码：

' 替换原来的CreateObject和RunApplication逻辑
Dim processStartInfo As New ProcessStartInfo(Input1)
Dim appProcess As Process = Process.Start(processStartInfo)

' 等待1秒让弹窗加载出来（时间可以根据实际情况调整）
System.Threading.Thread.Sleep(1000)

' 发送回车键关闭弹窗
SendKeys.SendWait("{ENTER}")

这个方法的优势是：

• 不阻塞主线程，后续代码能正常执行
• 可以通过appProcess对象直接控制应用（比如关闭进程、获取进程ID等）
• 比COM对象的CreateObject更灵活、稳定

方案2：用后台线程运行RunApplication（兼容原API） #

如果必须保留Desktop.Application的使用，可以把RunApplication放到后台线程中执行，这样主线程就能继续处理弹窗：

Dim oDesk As Object = CreateObject("Desktop.Application")
Dim targetAppPath As String = Input1

' 启动后台线程运行应用
Dim runThread As New System.Threading.Thread(Sub()
                                                oDesk.RunApplication(targetAppPath)
                                            End Sub)
runThread.Start()

' 等待应用启动并弹出窗口（时间按需调整）
System.Threading.Thread.Sleep(1500)

' 发送回车键关闭弹窗
SendKeys.SendWait("{ENTER}")

注意：后台线程操作COM对象时，可能需要确保线程模型兼容，不过Desktop.Application通常支持这种方式。另外Sleep的时间要足够让弹窗完全加载出来。

方案3：用Windows API精准关闭弹窗（最可靠） #

SendKeys依赖窗口焦点，有时候会因为焦点丢失失效。用Windows API找到弹窗的句柄，直接发送关闭指令会更可靠：

Imports System.Runtime.InteropServices

Public Class WindowController
    ' 导入Windows API函数
    <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, SetLastError:=True)>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    ' 关闭窗口的消息常量
    Private Const WM_CLOSE As UInteger = &H10

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

' 使用示例
Dim appProcess As Process = Process.Start(Input1)
System.Threading.Thread.Sleep(1000)
' 替换成你实际的弹窗标题
WindowController.CloseWindowByTitle("弹窗提示")

这个方法不需要依赖焦点，只要知道弹窗的准确标题（或者类名），就能精准关闭，适合对稳定性要求高的场景。

内容的提问来源于stack exchange，提问作者Gert Lõhmus