每当我浏览网站的时候,那扑面而来的广告窗口总是弄得我心烦意乱.我下定决心要自己编一个查杀广告的程序.经过我的观察,发现了广告窗口和正常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;

　　编辑特别推荐:

　　·计算机等级考试二级JAVA考前密卷及参考答案
　　·全国计算机等级考试二级JAVA全真模拟试题
　　·全国计算机等级考试二级JAVA在线模拟考试
　　·计算机等级考试二级Java初级练习(精选25题)