VBA:如何使用IE等待弹出窗口

Sub WaitForPopUpWindow()
    Dim ie As InternetExplorer
    Dim popUpWindow As Object
    Dim popUpTitle As String
    
    ' 创建 Internet Explorer 实例并导航到指定 URL
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate "https://example.com" ' 替换成你需要导航的网址
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' 设置弹出窗口标题
    popUpTitle = "弹出窗口标题" ' 替换成你期望的弹出窗口标题
    
    ' 循环查找并等待弹出窗口出现
    Do While True
        Set popUpWindow = FindWindow(0, popUpTitle)
        If Not popUpWindow Is Nothing Then
            Exit Do
        Else
            DoEvents
        End If
    Loop
    
    ' 弹出窗口已找到，你可以在这里继续执行其他操作
    
    ' 关闭 Internet Explorer 实例
    ie.Quit
    Set ie = Nothing
End Sub

' 使用 Windows API 函数 FindWindow 来查找窗口
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr