計(jì)算機(jī)二級(jí)考試VisualBasic輔導(dǎo)：vbwebbrowser禁示彈出對(duì)話框的代碼

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Dim oDoc1 As HTMLDocument
    Set oDoc1 = pDisp.Document
    oDoc1.parentWindow.execScript "function alert(){return;}"
    oDoc1.parentWindow.execScript "function confirm(){return;}"
    oDoc1.parentWindow.execScript "function showModalDialog(){return;}"
    End Sub