转：用Delphi开发过滤特定网址的BHO插件

原作者: [db:作者] 来自: [db:来源] 收藏邀请

浏览器辅助对象BHO（Browser Helper Object）是一种ATL COM对象，由IE在启动时自动加载。BHO运行在IE的地址空间内，能对IE中可访问对象的各类事件消息进行监听并作出相应处理。因此，当IE已成为进入网络世界的主要大门时，BHO自然变得炙手可热，不管是扩展IE功能的辅助软件还是令人深恶痛绝的流氓软件，都对BHO青睐有加。那么，用于扩展IE功能的BHO插件到底如何开发呢？下面以开发一个过滤特定网址的BHO插件为例进行说明。

监听浏览器事件

在Delphi 7中，新建ActiveX Library项目MyBHO。再在项目中新建COM Object，命名为MyIEBHO。作为特殊的COM对象，BHO必须实现同浏览器通讯的两个接口IObjectWithSite和Idispatch，其中IobjectWithSite接口用来挂钩和监控浏览器事件。

IE在加载BHO时，会将自己的IUnknown接口用pUnkSite参数传给BHO。通过对pUnkSite的解析即可获得浏览器接口IWebBrowser2。而获得IWebBrowser2后，又可得到浏览器事件连接点接口。再使用该接口的Advise方法，便可实现对浏览器事件的监听。IobjectWithSite接口包含GetSite和SetSite方法，其中由SetSite实现IobjectWithSite接口的主要功能。

function TMyIEBHO.SetSite(const pUnkSite:IUnknown):HResult;

var

   cmdTarget:IOleCommandTarget;

   Sp:IServiceProvider;

begin

   if(Assigned(pUnkSite))then

   begin

     cmdTarget:=(pUnkSite as IOleCommandTarget);

     Sp:=(CmdTarget as IServiceProvider);

     if(Assigned(Sp))then     //获得IE的WebBrowser接口，

       Sp.QueryService(IWebBrowserApp,IWebBrowser2,IEThis);

     if(Assigned(IEThis))then

     begin

       IEThis.QueryInterface(IConnectionPointContainer,CPC);   //查找连接点

       CPC.FindConnectionPoint(DWEBBrowserEvents2,CP);

       CP.Advise(Self,Cookie);    //用Advise方法实现监听

     end;

   end;

   Result:=S_OK;

end;

function TMyIEBHO.GetSite(const riid:TIID;out site:IUnknown):HResult;

begin

   if(Assigned(IEThis))then

     Result:=IEThis.QueryInterface(riid,site)

   else Result:=E_FAIL;

end;

对浏览器事件进行处理

BHO的另一接口Idispatch主要用来对浏览器事件进行处理。每当浏览器有事件发生时，IE就会调用IDispatch接口的Invoke方法通知事件类型及参数，并请求BHO对事件进行处理。因此在Idispatch接口中最重要的是Invoke方法，BHO的功能基本上都在Invoke方法中实现。至于Idispatch的其它方法GetTypeInfoCount、GetTypeInfo和GetIDsOfNames，则只需返回E_NOTIMPL即可。

浏览器事件在DWebEvents2接口中定义，每种事件类型都用特定的dspid数字符号来标识，如      DownloadComplete事件为dispid 104，BeforeNavigate2为dispid 250，OnQuit为dispid 253。对过滤特定网址任务而言，只需要截获BeforeNavigate2事件并对其作相应处理就可以了。另外，在关闭浏览器时还要对OnQuit事件作处理，以断开对浏览器事件的监听。

function TMyIEBHO.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;

type

   POleVariant=^OleVariant;

var

   dps:TDispParams absolute Params;

   bHasParams:Boolean;

   pDispIDs:PDispIDList;

   iDispIDsSize:Integer;

begin

   Result:=DISP_E_MEMBERNOTFOUND;

   pDispIDs:=nil;

   iDispIDsSize:=0;

   bHasParams:=(dps.cArgs>0);

   if(bHasParams)then

   begin

     iDispIDsSize:=dps.cArgs*SizeOf(TDispID);

     GetMem(pDispIDs,iDispIDsSize);

   end;

   try

     if(bHasParams)then BuildPositionalDispIDs(pDispIDs,dps);

     case DispID of

       104:begin

           Result:=S_OK;

         end;

       250:begin

           DoBeforeNavigate2(IDispatch(dps.rgvarg^[pDispIDs^[0]].dispVal),

             POleVariant(dps.rgvarg^[pDispIDs^[1]].pvarVal)^,

             POleVariant(dps.rgvarg^[pDispIDs^[2]].pvarVal)^,

             POleVariant(dps.rgvarg^[pDispIDs^[3]].pvarVal)^,

             POleVariant(dps.rgvarg^[pDispIDs^[4]].pvarVal)^,

             POleVariant(dps.rgvarg^[pDispIDs^[5]].pvarVal)^,

             dps.rgvarg^[pDispIDs^[6]].pbool^);

           Result:=S_OK;

         end;

       253:begin

           CP.Unadvise(Cookie);

           Result:=S_OK;

         end;

     end;

   finally

     if(bHasParams)then

       FreeMem(pDispIDs,iDispIDsSize);

   end;

end;

BeforeNavigate2过程中包含了过滤特定网址的处理逻辑。它从MyIEBHO.txt文件中读取需要过滤的网址，然后同浏览器当前地址作比对，如果是，则直接转向网易网站。

procedure DoBeforeNavigate2(const pDisp:IDispatch;var URL:OleVariant;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant; var Headers:OleVariant;var Cancel:WordBool);

var

   s:String;

   URLFile:TextFile;

begin

     Assign(URLFile, ’c:\MyIEBHO.txt’);

     Reset(URLFile);

     Try

       while not Eof(URLFile) do

         begin

           ReadLn(URLFile, s);

           if (Trim(URL)=Trim(s)) then

             begin

               Cancel:=True;

               URL:=’http://www.163.com’;

               (pDisp as   IWebbrowser2).Navigate2(URL,Flags,TargetFrameName,PostData,Headers);

             end;

         end;

     Finally

       Close(URLFile);

     end;

end;

注册BHO插件

同所有COM对象一样，BHO也需要使用regsvr32进行注册或卸载。此外，BHO还必须将自己的Guid字符串关键字添加到注册表HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Browser Helper Objects\下，这样浏览器才能正确加载与之对应的BHO插件。该键值既可手工创建，也可以在BHO中用注册表对象直接创建。

procedure TIEAdvBHOFactory.UpdateRegistry(Register: Boolean);

begin

   inherited;

   if Register then

     CreateRegKeyValue(HKEY_LOCAL_MACHINE, ’Software\Microsoft\Windows\CurrentVersion\explorer\Browser Helper Objects\’                        + GuidToString(ClassID), ’’, ’’)

   else

     DeleteRegKeyValue(HKEY_LOCAL_MACHINE, ’Software\Microsoft\Windows\CurrentVersion\explorer\Browser Helper Objects\’                        + GuidToString(ClassID), ’’);

end;

将代码生成为MyBHO.dll文件，然后运行“regsrv32 MyBHO.dll”进行注册，或运行“regsrv32 MyBHO.dll /u”进行注销。另外，别忘了在C:\新建MyIEBHO.txt文件，并在里面输入需要过滤的网址，否则可能导致IE和资源浏览器出错。注册成功后，重新运行IE，在地址栏中完整地输入待过滤网址，即可发现IE直接转向了网易网站。

BHO插件开发总结

在Windows程序开发中，COM组件技术始终是令程序员挠头的部分。不是COM的倡导者微软有意难为大家，而实在是COM太过复杂。尽管Delphi对COM进行了很好的封装并提供了多种模板，但开发难度依然不小。而BHO在COM中属于较新的领域，加之资料厥如，因此对许多初涉BHO开发的程序员来说，一时不得其门而入也在情理之中。不过，从上面的简单示例可以看出，BHO开发基本上是模板化的，各种接口的实现差不多都是固定式样，照抄现成的代码就可以了，即使没有将代码完全弄懂也无大碍。而真正体现编程创意和功力的地方主要集中在事件的处理代码上，相对而言，这一部分又是BHO开发中最容易掌握的，因此只要掌握了BHO开发诀窍，就可以化难为易。由于BHO的接口实现代码可以完全封装起来，估计随着BHO开发热的高涨，各种BHO开发控件将陆续面市。到那时，BHO开发将不再被视为畏途，而IE的功能也会因BHO插件的繁荣而被大大拓展。

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

使用OpenJDK进行Delphi Android开发 - 红鱼儿发布时间：2022-07-18

delphi获取网卡信息(支持多网卡)发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：18986|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9923|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8303|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8669|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8600|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9613|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8592|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7976|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8606|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7517|2022-11-06

客服电话

电子邮件

转：用Delphi开发过滤特定网址的BHO插件

请发表评论

全部评论

上一篇：

下一篇：

GitbookIO/gitbook:

juleswhite/mobile-cloud-asgn1

kyamagu/matlab-json: Use official API: h

墙壁眼睛膝盖

matlab练习程序（图像投影到点云）

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053