H
HellFire
Unregistered / Unconfirmed
GUEST, unregistred user!
我看过资料(下面这个网站):
http://www.euromind.com/iedelphi/ie5tools/bho.htm
b. Popup-killers
Browser helper object is an excellent place to avoid annoying popup-windows from ever being displayed. Here is a simple one-line popup-killer:
procedure DoBeforeNavigate2(const pDisp: IDispatch;
var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant;
var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool);
begin
if IE.Toolbar=0 then IE.Quit;
end;
If the window about to be displayed does not have a toolbar then kill it! It is simple, but it works. The code could be extended to evaluate the size of the window, the title and url before deciding to show or destroy it.
请大侠给个bho杀ie广告的例子,3天内结帖,200分!
ps:请不用贴用Timer杀广告的例子,谢谢!
例子发到我邮箱也行:flashmenu@tom.com
http://www.euromind.com/iedelphi/ie5tools/bho.htm
b. Popup-killers
Browser helper object is an excellent place to avoid annoying popup-windows from ever being displayed. Here is a simple one-line popup-killer:
procedure DoBeforeNavigate2(const pDisp: IDispatch;
var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant;
var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool);
begin
if IE.Toolbar=0 then IE.Quit;
end;
If the window about to be displayed does not have a toolbar then kill it! It is simple, but it works. The code could be extended to evaluate the size of the window, the title and url before deciding to show or destroy it.
请大侠给个bho杀ie广告的例子,3天内结帖,200分!
ps:请不用贴用Timer杀广告的例子,谢谢!
例子发到我邮箱也行:flashmenu@tom.com