WebBrowser1操作IE时.网页弹出MessageBox提示程序就会被挂起,请问怎么来禁用它

WebBrowser1做模拟浏览器,要对IE做到控制.对于网页内部弹出的窗口如何做到全控制. 请以网页弹出的MessageBox为例说明一下哈!拜托.最好有详细完整调试好的代码.对任何网站弹出的MessageBox都应该有效才行,
要求:VB用WebBrowser1控件浏览网页.禁用网页内部弹出的MessageBox.如果不能禁用,能自动关闭也行,一楼的.能不能用VB解决.急,有没有高手给解决一下呐?

hwnd = FindWindow(vbNullString, Text1) ''查找窗体标题
result = PostMessage(hwnd, WM_CLOSE, 0&, 0&)'关闭窗体

禁用脚本运行，就可以了，，

要用到IHTMLWindow2类，所以我们要先添加一个引用：在项目引用里面选择COM选项卡，添加Microsoft HTML Object Library，然后在我们的cs文件中引入名称空间：mshtml; using mshtml; 然后取得我们目标页面的HtmlDocument,比如: HtmlDocument hd = webBrowser1.Document.Window.Frames[0].Document; 接着进行最重要的一步，重载alert,confirm函数： IHTMLWindow2 win = (IHTMLWindow2)hd.Window.DomWindow; string s = "function confirm() {"; s += "return true;"; s += "}"; s += "function alert() {}"; win.execScript(s, "javascript");