Delphi TWebBrowser 截取页面上Alert和Confirm函数

 //非框架结构的网页可以这样

uses MSHTML;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  vDocument: IHTMLDocument2;
begin
  vDocument := TWebBrowser(Sender).Document as IHTMLDocument2;
  vDocument.parentWindow.execScript('function alert(str){return;}', 'javaScript');

//框架的就用IHTMLFrameBase2.contentWindow.execScript

vDocument.parentWindow.execScript('function confirm(str){return str == "Zswang";}', 'javaScript');

end;

阅读更多
想对作者说点什么? 我来说一句

重写alertconfirm 提示框样式

2017年05月18日 75KB 下载

没有更多推荐了,返回首页

不良信息举报

Delphi TWebBrowser 截取页面上Alert和Confirm函数

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭