急啊!用WebBrowser控件打开index.htm文件,但该文件中弹出广告,如何不弹出?(200分)

  • 主题发起人 主题发起人 pckite
  • 开始时间 开始时间
P

pckite

Unregistered / Unconfirmed
GUEST, unregistred user!
1 用WebBrowser控件打开index.htm文件,但该文件中有弹出广告,如何让WebBrowser不弹出?或者用其它的什么办法?总之index.htm中的代码不能改变
2如何将中文字符串,转换成十六进制的字符串?
 
DoNewWindow2里设置cancel=ture;
http://www.euromind.com/iedelphi/index.htm
 
不行啊,没有DoNewWindow2
只有ONNewWindow2啊,我用的是DELPHI6
 
我是d5环境 设置 ONNewWindow2
测试了www.163.com 没问题
 
D7, OnNewWindow2, OK!
 
马上会给分!!!!
那index.htm中弹出一个是否要关闭此网页窗口,我不想让它弹出这对话框,怎么办?
 
响应WebBrowser的OnNewWindow2事件
procedure Tfor.Web1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
cancel:=true;//设置。OnNewWindow2事件
end;

有个简单但不很好的方法,因为广告窗口一般都是通过执行活动脚本弹出的,所以
只要把IE安全设置中的活动脚本的执行禁掉就行了。
r.RootKey := HKEY_CURRENT_USER;
if r.OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/3',False)
then r.WriteInteger('1400',3); //禁止活动脚本
 
设置Silent:=true 可以禁止弹出任和广告
 
Silent:=True;
Offline:=True;
 
procedure Tfor.Web1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
cancel:=true;//设置。OnNewWindow2事件
end;
这个答案最好。
 
我已经给分给你了,请查收,以后多指教
 
后退
顶部