Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    '关闭webbrowser弹出框 错误框关闭
    pDisp.Document.parentwindow.execScript "window.alert = null;window.confirm = null;window.open = null;window.showModalDialog = null;", "javascript"
End Sub