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
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