vb6 webbrowser 禁示弹出对话框

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