VB で alert window に OK を押す

質問

ＶＢでIE（internet explorer）をコントロールしていて、
（特定ページを呼び出したり、リンク先へプログラムで飛んだり）
飛んだ先によっては alert window が現れて、
”セキュリティが確認されていないページに飛ぶ”
というアラートが出てくる時があります。

手で画面を見ているときは”OK”を押すのですが、プログラムに操作させているときはそこで止まってしまいます。

JavaScriptならば
Components.classes["@mozilla.org/appshell/window-mediator;1"].
getService(Components.interfaces.nsIWindowMediator).
getMostRecentWindow(null);

で新しく現れたウインドウを見つけられるのはわかりましたが
ＶＢではどうやって管理するのでしょう？

環境は　XP-office VB2003　です。

回答No.1

kikujack

VB6なら、alertを禁止することができますが。
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
pDisp.Document.parentWindow.execScript "function alert(){return;}"
End Sub