怎样屏蔽IE的弹出广告窗口？(100分)

通过判断弹出窗口的特征方法不太好。
能否在广告窗口产生之前将其屏蔽？

请使用 NetCaptor ，每出现广告窗口时按 F8 ，或设定一些条件过滤，广告窗口就永不再
出现，巨爽！我一直在用它。

我是说在程序中如何用写代码来屏蔽，请各位大虾赐教！

webbrowser的onnewwindows2有一个参数var cancel:wordbool;
cancel:=true;就可以了

我的意思是要做个IE插件来屏蔽IE广告窗口，
怎么获得IE到接口，进而设置IE正在连接网页的时候设置其
onnewwindows2中的cancel:=true ，怎样获得接口？

是个好主意。来学习了。

关注一下了

听。。。。

学习。

关注

用 NetCaptor 呀！ 当有 弹出窗口 时按 F8 ，此窗马上永远的在你面前消失。
NetCaptor 是基于 IE 内核的， IE 升级就等于它升级，没有兼容性问题，我用它多年了。

怎么还没有人解决阿

有人知道吗？我愿高分求购啊？

axes您好！
您问的问题是否已经解决啊？可否告诉小弟？高分求购！

gz

学习,关注

下面是源码
unit unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Menus, ShellAPI, ExtCtrls;

const
ICON_ID = 1;
ICONEVENT = WM_USER + 1;

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Pause: TMenuItem;
Continue: TMenuItem;
Quit: TMenuItem;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
procedure PauseClick(Sender: TObject);
procedure ContinueClick(Sender: TObject);
procedure QuitClick(Sender: TObject);
private
{ Private declarations }
procedure InstallIcon;
procedure UnInstallIcon;
procedure IconOnClick(var message: TMessage); message ICONEVENT;
procedure ENumChildWindows(hand: HWND);
public
{ Public declarations }
end;

var
Form1: TForm1;
IconData: TNotifyIconData;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
InstallIcon; //安装图标
Width:=0;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnInstallIcon; //卸载图标
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
h: HWnd;
Text: array [0..255] of char;
begin
h:=GetWindow(Handle, GW_HWNDFIRST);
while h <> 0 do
begin
if GetWindowText(h, @Text, 255)>0 then
if GetClassName(h, @Text, 255)>0 then
if (StrPas(Text)='CabinetWClass') or (StrPas(Text)='IEFrame') then
ENumChildWindows(h);
h:=GetWindow(h, GW_HWNDNEXT);
end;
end;

procedure TForm1.PauseClick(Sender: TObject);
begin
Timer1.Enabled:=False;
Pause.Checked:=true;
Continue.Checked:=False;
end;

procedure TForm1.ContinueClick(Sender: TObject);
begin
Timer1.Enabled:=True;
Pause.Checked:=False;
Continue.Checked:=true;
end;

procedure TForm1.QuitClick(Sender: TObject);
begin
Close;
end;

//安装图标
procedure TForm1.InstallIcon;
begin
IconData.cbSize:=SizeOf(IconData);
IconData.Wnd:=Handle;
IconData.uID:=ICON_ID;
IconData.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
IconData.uCallBackMessage:=ICONEVENT;
IconData.hIcon:=Form1.Icon.Handle;;
IconData.szTip:='广告窗口杀手';
Shell_NotifyIcon(NIM_ADD, @IconData );
end;

//卸载图标
procedure TForm1.UnInstallIcon;
begin
Shell_NotifyIcon(NIM_DELETE, @IconData );
end;

//在图标上按下鼠标
procedure TForm1.IconOnClick(var message: TMessage);
var
p: TPoint;
begin
if (message.lParam = WM_LBUTTONDOWN) or (message.lParam = WM_RBUTTONDOWN) then
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x ,p.y);
end;
end;

procedure TForm1.ENumChildWindows(hand: HWND);
var
h: HWND;
s: Array[0..255] of char;
IsPopWindow: Bool;
begin
IsPopWindow:=True;
h:=GetWindow(hand,GW_child);
while h>0 do
begin
GetClassName(h, s, 256);
if (StrPas(s)='WorkerA') or (StrPas(s)='WorkerW') then
If IsWindowVisible(h) then
IsPopWindow:=False;
h:=GetWindow(h,GW_HWNDNEXT);
end;
if IsPopWindow then
PostMessage(hand,WM_CLOSE,0,0);
end;

end.

拾荒者说的话很有研究价值呀，如何让程序来判断弹出来的窗口是不是广告窗口，我觉得这样
可能不太容易实现，但用户知道那个是不是广告窗口，让用户自定义好了。
比如：拾荒者说的，看到一个窗口是广告就用f8把它保存起来，如果以后发现有这个窗口出现
就把它X掉，我觉得这个方法不错……

我觉得用Timer似乎不太理想。可不可以不用？