VB webbrowser 拦截弹出对话框并获取对话框信息

首先在工程——引用中引用 Microsoft HTML Object Library

Option Explicit
Private WithEvents m_MyVar As HTMLInputElement

Private Sub Form_Load()
    WebBrowser1.Navigate2 "http://www.xyserver.com"
End Sub

'讲拦截后的信息由window对话框显示
Private Function m_MyVar_onchange() As Boolean
    MsgBox "Alert的内容是: " & m_MyVar.Value
End Function

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Dim oWindow As HTMLWindow2
    Dim oDoc As HTMLDocument
    Dim doc
   
    Set oDoc = pDisp.Document
    Set oWindow = oDoc.parentWindow
   
    Set m_MyVar = oDoc.createElement("input")
    m_MyVar.Type = "Hidden"
    m_MyVar.id = "MyVar"
   
    '------------------------------------------------------------
    '阻止弹出对话框
     Set doc = WebBrowser1.Document
      doc.parentWindow.execScript "function alert(){return;}"
      doc.parentWindow.execScript "function confirm(){return;}"
      doc.parentWindow.execScript "function showModalDialog(){return;}"
    '-------------------------------------------------------------
   
    oDoc.getElementsByTagName("HEAD").Item(0).appendChild m_MyVar
   
    oWindow.execScript "var oldalert=window.alert;window.alert=function myalert(msg){oldalert(msg);MyVar.value=msg;MyVar.fireEvent(""onchange"");};"
End Sub

'拦截弹出来的Web窗口
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    'Set ppDisp = WebPop(0).Object
    Cancel = True
End Sub