首先在工程——引用中引用 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 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|