网页弹出对话筐

615769472

公司网络，无法上传截图和附件，
我尝试着用语言来描述，希望能够说清楚。
关于网页弹出对话筐的问题
这是一个用于上传本地文件的对话筐，
下面的语句到obj.click都能运行，
运行到obj.click的时候，
网页的对话筐顺利弹出来，
但问题来了，
就到这里，就不继续运行了，
下面打算用findwindow 来捕捉这个窗口，
但是捕捉不到，
不是因为查询不到句柄，
而是因为，当对话筐弹出来之后，根本就不往下运行了，
当我手动点击关闭对话筐之后，他才会继续运行下一句Do While Hwnd = 0


请问，这个杂整。。。

Dim Hwnd As Long, BWnd As Long
        Set obj = FindWin.Document.frames(0).Document.getElementById("uploadBox1")
        obj.Click

        Do While Hwnd = 0
                Hwnd = FindWindow(vbNullString, "Choose File to Upload")
                DoEvents
        Loop