禁止浏览器弹出广告窗口，和禁止显示某些类型的图片是如何实现的？(100分)

禁止浏览器弹出广告窗口，和禁止显示某些类型的图片是如何实现的？
最好给些例子。

>>

判断每一个窗口的尺寸，较小的立刻删除。
看起来就像没出现一样。
不用我贴出源码吧。

呵呵，用IE的接口啊！不过这种软件太多了！

to tohappy:这种方法简直太。。。

to 爱元元的哥哥:我想知道具体实现的方法，因为我开发的项目中设计到类似的东西。

我也想知道

让弹出式广告就地正法
作者：yeyanbo(原作)/csdn 发表日期：2002-7-30 10:35:15 阅读数：387

作者主页：http://bbs.yimeier.net/cgi-bin/bbs.cgi?id=200204161423



每当我浏览网站的时候,那扑面而来的广告窗口总是弄得我心烦意乱.我下定决心要自己编一个查杀广告的程序.经过我的观察,发现了广告窗口和正常IE窗口的区别主要在于广告窗口没有标题栏和状态栏(其实它们也有,如果你不明白,请继续往下看!)

祭出我自编的软件-探索者(其实只不过是窗口类的显示器,当然也能看密码),发现正常浏览窗口的类名是IEFRAME和CabinetWClass,而广告窗口的类名是CabinetWClass,听说在Windows2000中也是IEFrame(未经证实).其实是什么都无所谓,只要在程序中查找这两个类就可以了.

procedure TForm1.Timer1Timer(Sender: TObject);

var

mainHD,WorkAHD:THandle;

begin

// Kill AD.

mainHD:=FindWIndowEx(0,0,'CabinetWClass',nil);

if Mainhd<>0 then

begin

WorkAHD:=FindWindowEx(Mainhd,0,'WorkerA',nil); ////WorkerA类,具体关联见下图

if WorkAHD=0 then PostMessage(Mainhd,WM_CLOSE,0,0);

end;

end;

通过在Timer事件中调用FindWindowEx函数可以查找到运行窗口的句柄,具体介绍请见Delphi的Win32 API帮助.

当我满心欢喜的运行程序时却发现广告窗口一如往常的弹出,哪里出了错?继续祭出我的"探索者",先把IE浏览器的框架结构搞清楚,功夫不负有心人,经过一下午的时间,终于让我找到了:




调试,却发现原来广告窗口同样具有上图的结构,这也让我的程序设计进程停滞不前,经过两个晚上的思考,我终于想到另一个API函数:GetWindowRect,它可以得到一个窗口的物理尺寸结构.马上调试,终于发现:

1.广告窗口的WorkerA类和Shell DocObject View类的rect.top的值是相同的;

2.正常IE窗口的WorkerA类和Shell DocObject View类的rect.top的值是不相同的;

马上更改代码,代码如下:

procedure TForm1.Timer1Timer(Sender: TObject);

var

mainHD,WorkAHD,ViewHD:THandle;

y_workA,y_view:integer;

rect1,rect2:TRect;

begin

// Kill AD.

mainHD:=FindWIndowEx(0,0,'CabinetWClass',nil);

if Mainhd<>0 then

begin

WorkAHD:=FindWindowEx(Mainhd,0,'WorkerA',nil);

GetwindowRect(WorkAHD,rect1);

y_workA:=rect1.top;

ViewHD:=FindWindowEx(mainHD,0,'Shell DocObject View',nil);

if viewHD<>0 then ////注1:

begin

GetwindowRect(ViewHD,rect2);

y_view:=rect2.top;

if y_View-y_WorkA<5 then PostMessage(Mainhd,WM_CLOSE,0,0);

end;

end;

end;

程序的主要核心部分我已经给出来了,至于其它的,像:如何把程序添加到启动菜单,最小化到任务栏中等等,这方面的介绍很多,我就不多言了.

本程序在Windows98SE和Delphi5.0下调试通过.

注1:其实资源管理器的类名也是"CabinetWClass",但它不具有"Shell DocObject View".如果不判断这一点,那么运行程序后,你连资源管理器也打不开了.

注2:我的论坛:http://bbs.yimeier.net/cgi-bin/bbs.cgi?id=200204161423.




原作者： yeyanbo（原作）
原出处： csdn



====================================
我在win2k、d7下测试了，不行

用webbrowser1newwindow2事件，在其中判断传入的URl，如为真则：
cancel:=true
这就是流行的多窗口浏览器的拦截方法。

有很多都是根据窗口的标题进行判断！

如POW!就是根据IE窗口标题进行判断的！我一直都在用它！

listen

gz

yeyanbo的代码我试了~打开新浪，广告还是在跳~
我觉得应该像jamers所说，是判断标题~

广告窗口没有Toolbar所有用Getwindowlong获取的窗口的Style是不同的，用Spy++可以看出来

例子程序已经发出，谁需要可以留下em

接受答案了.

lcmax@163.com
dfw1001
我需要一分谢谢

bigchao@eyou.com
我也要一份，谢谢!

flying_919@eyou.com
我也要一份，谢谢!