zoukankan      html  css  js  c++  java
  • TWebBrowser控件彻底防止弹出新窗口

    最近在编写一个使用到TWebBrowser控件的软件,浏览网页时经常会弹出各种各样的窗口,尤其是广告,让人烦不胜烦,参考网上的一些资料,针对不同的弹窗方式采取相应的措施就能禁止各种弹窗。

    1. 将TWebBrowser控件的Silent属性设置为True可以防止弹出“语法错误”的窗口。

    2. 编写TWebBrowser控件的OnNewWindow2事件响应代码可以阻止<a href='url' target='_blank'>方式的新窗口

    procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    begin
      Cancel := True;
    end;


    3. 编写TWebBrowser控件的OnNavigateComplete2事件响应代码可以阻止Javascript脚本弹出的新窗口

    uses MsHTML;
    procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    begin
      ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.open=function(){return true}','JavaScript'); //禁止使用open方式弹出的窗口
      ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.alert=function(){return true}','JavaScript'); //禁止使用alert方式弹出的对话框
      ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.showModalDialog=function(){return true}','JavaScript'); //禁止使用showModalDialog方式弹出的窗口
      ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.showModelessDialog=function(){return true}','JavaScript'); //禁止使用showModelessDialog方式弹出的对话框
    end;
  • 相关阅读:
    PAT 乙级真题 1013.组个最小数
    PAT 乙级真题 1012.D进制的A+B
    PAT 乙级真题 1011.个位数统计
    PAT 乙级真题 1010.月饼
    PAT 乙级真题 1009.1019.数字黑洞
    PAT 乙级真题 1008.锤子剪刀布
    PAT 乙级真题 1007.A除以B
    PAT 乙级真题 1006.1016.部分A+B
    C++自定义sort函数
    VS2017如何使用scanf函数
  • 原文地址:https://www.cnblogs.com/stroll/p/4716296.html
Copyright © 2011-2022 走看看