如何禁止WebBrowser弹出关闭网页对话框？

Question

用WebBrowser打开一个网页，那个网页有自动关闭功能，浏览器会弹出“是否关闭页面”这样的对话框。
请问如何让WebBrowser不弹出这个对话框，或者是自动选择对话框的“取消”
因为silence=true以后，这个对话框影响了WebBrowser的重定向

Answer 1

定义一个script对象，生成一个与显示关闭提示的那个脚本函数同名的脚本函数就可以了，比如那个脚本函数为xxx，则代码如下：
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Dim doc As HTMLDocument
    Dim s As HTMLScriptElement
    
    Set doc = Me.WebBrowser1.document
    Set s = doc.createElement("SCRIPT")
    s.innerHTML = "<script>function xxx(){}</script>"
    doc.body.appendChild s
End Sub