用DELPHI怎么实现去除网页广告？

Question

程序实现的功能是这样的：这样把打开网页时所弹的广告去除掉，谢谢！

Answer 1

我也很感兴趣
欢迎交流
顺便帮你UP
[email protected]

Answer 2

2000下调试通过,只能在2000下起作用,98要改动一点:
procedure TForm1.Timer1Timer(Sender: TObject);
  var
     mainHD,WorkAHD,ViewHD:THandle;
     y_workW,y_view:integer;
     rect1,rect2:TRect;
   begin     mainHD:=FindWIndowEx(0,0,'IEFrame',nil);
     if Mainhd<>0 then
     begin
        WorkAHD:=FindWindowEx(Mainhd,0,'WorkerW',nil);
        if WorkAHD<>0 then
        begin
        GetwindowRect(WorkAHD,rect1);
        y_workW:=rect1.top;
        ViewHD:=FindWindowEx(mainHD,0,'Shell DocObject View',nil);
       //ViewHD:=FindWindowEx(mainHD,0,'msctls_statusbar32',nil);
        if viewHD<>0 then    ////&#1506;1:
        begin
          GetwindowRect(ViewHD,rect2);
          y_view:=rect2.top;
          caption:=inttostr(y_workw)+'---'+inttostr(y_view);          if y_View-y_Workw<6 then PostMessage(Mainhd,WM_CLOSE,0,0);
        end;
        end;
     end;end;