WebBrowser控件如何自动关闭弹出的IDV

Question

WebBrowser控件如何自动关闭弹出的IDV，例如http://www.xiaomi.com/这个网站，点击登录后，会弹出登录窗口，这个窗口如何用VB程序控制自动关闭，这个窗口是个DIV，不是普通窗口，又不能阻止它弹出。谢谢webbrowservb

Answer 1

Sub 关闭登录框()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://www.xiaomi.com/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.getElementById("header_menu_top_login").All.tags("a")(0).Click
        t1 = Timer
        Do Until Timer > t1 + 2
            DoEvents
        Loop
        Set r = .document.All.tags("a")
        For i = 0 To r.Length - 1
            If r(i).classname = "close" Then
                r(i).Click
                Exit For
            End If
        Next i
        '.Quit
    End With
End Sub