关闭

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

标签: delphijavascriptfunction框架url
1581人阅读 评论(0) 收藏 举报

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

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;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:20254次
    • 积分:388
    • 等级:
    • 排名:千里之外
    • 原创:16篇
    • 转载:1篇
    • 译文:0篇
    • 评论:5条
    文章分类
    最新评论