怎样使用delphi编程来拦截广告啊???(100分)

  • 主题发起人 goodsuperstar
  • 开始时间
G

goodsuperstar

Unregistered / Unconfirmed
GUEST, unregistred user!
如何使用delphi编程来拦截广告啊???
通过获得窗口标题的方法好象不实用也~~
哪位高手知道啊?拜托,指点一下啦^-^
 
留下EMAIL,我发给你源码。
 
jibu_hx@yahoo.com.cn
谢谢!
 
to: oiwin
可不可以给我发一份呀。谢谢!
tianxuewang@sina.com.cn
 
to: oiwin
也给我一份看看呀。谢谢!
happyboyjia@com
 
netphuang@hotmail.com.cn
谢谢!
 
http://mydelphi.8u8.com/ym2.htm
广告窗口杀手
作者 官本和
简介 一个屏蔽IE弹出广告窗口的源程序

大小 18KB
下载


 
to oiwin兄台:
十分感谢,我寻找广告杀手原理很唱时间了,希望能看看你的源代码,谢谢
swqiao82@tom.com
 
yonghongmo@163.com
我也要
 
以下转载:
===============================================================================
procedure TForm1.Timer1Timer(Sender: TObject);
var
h: HWnd;
Text: array [0..255] of char;
begin
h:=GetWindow(Handle, GW_HWNDFIRST);
while h <>
0do
begin
if GetWindowText(h, @Text, 255)>0 then
if GetClassName(h, @Text, 255)>0 then
if (StrPas(Text)='CabinetWClass') or (StrPas(Text)='IEFrame') then
PostMessage(h,WM_CLOSE,0,0);
//关闭IE窗口
h:=GetWindow(h, GW_HWNDNEXT);
end;
end;

想知道有没有不用 TTimer 的方法,用Hook。(最近对Hook感兴趣)
 
不知道楼上的都有没有用 BHO?
 
IE 没有 Hook,只有 BHO(Browser Helper Object)
其实,用BHO 一行就能搞定了!!!!!
只要看看下面的链接就有所有源码!!!!
http://www.euromind.com/iedelphi/ie5tools/bho.htm
找Popup-killers
我自己有写一本书专门介绍这个技术的,呵呵 
 
angelgekko,yczjs,两位给的是垃圾,
 
幕后黑手,能不能“共享”一下你的书?:)
oldice@163.net
 
如果只杀ie的popup用bho,如果还好杀其他的就bho和timer结合,技术就是这些,但要做好很不容易的.
 
iseek, 暂时还没找到出版商,如果技术过时自然会共享的,呵呵
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
754
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部