WebBrowser如何关闭弹出对话框

来源：百度知道编辑：UC知道时间：2024/06/14 02:00:16

WebBrowser如何关闭弹出的alert对话框，我找了很久也没有解决办法。我的程序是用delphi写的。有试过几种方法。

第一种用 WMActivate(var Msg: TWMActivate); message WM_ACTIVATE; 事件在正常情况下可以自动关闭，但我的程序是运行在系统托盘的，在最小化到托盘后，这个事件就不起作用了。

第二种用 obj.parentWindow.execScript "function showModalDialog(){return;} 类似的方法，网页本页面弹出的对话框可以屏蔽，但我的程序调用了某个ASPX页面，它是提交后返回时弹出对话框的，也不起作用了。

对话框弹出的时候，只有WebBrowser控件不可用，程序还是正常运行的，我就用个 Timer 来 FindWindow('IEFrame',nil) 然后SendMessage关闭事件，但是根本没效果。

程序只差一个功能完工了啊，500高分求解！
~
还有匿名回答啊
可以了,多谢,到这边拿分吧
http://zhidao.baidu.com/question/83500340.html
http://zhidao.baidu.com/question/83092023.html
多任务网页定时刷新器
http://hi.baidu.com/abingpo

屏蔽alert、confirm、showModalDialog源代码：

lert,confirm函数：
IHTMLWindow2 win = (IHTMLWindow2)hd.Window.DomWindow;
string s = @"function confirm() {";
s += @"return true;";
s += @"}";
s += @"function alert() {}";
win.execScript(s, "javascript");

OK ,大功告成，我们可以继续我们正常的操作拉，比如填写表单并提交：

hd.All["username"].SetAttribute("value","username");
hd.All["password"].SetAttribute("value","password");
hd.All["buttom"].InvokeMember("click");

webbrowser 如何取得webbrowser控件中的内容 visual basic 中如何添加WebBrowser控件 c# 如何在 webbrowser 控件上画线 VB如何屏蔽WebBrowser控件的上框边啊? VB中WebBrowser 如何判断下载结束 VB打开的webbrowser,如何用javascript关闭? 关于webbrowser如何点击页面上的java按钮？在VB中使用WebBrowser如何实现查找功能？ delphi如何判断 webbrowser 加载的网页进度?