以前介绍过通过编写Webbrowser1的OnDocumentComplete事件响应代码可以拦截网页弹出的Alert等对话框,代码如下: procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin ((Sender as TWebBrowser).Document as IHtmlDocument2).parentWindow
思路: 使用Windows API函数遍历窗口,查找指定标题的窗口,然后从该窗口查找确定按钮,向该按钮发送鼠标消息进行模拟点击.由于IE8由Alert弹出的网页对话框的标题是“来自网页的消息”,而IE6由Alert弹出的网页对话框的标题是“Microsoft Internet Explorer”,所以本文没有按查找窗口标题方法获取窗口句柄.注意到不管IE哪个版本,IE窗口的类名都是“IEFrame”,而网页对话框的父窗口是IE窗口,所以本文是根据父窗口的类名是不是IEFrame来判断窗口是不是网