浏览器辅助对象技术应用与设计方法.docVIP

浏览器辅助对象技术应用与设计方法 　　摘要：本文对浏览器辅助对象技术的原理及应用进行了介绍，并提供了VB利用此技术开发的案例。 　　关健词：浏览器辅助对象技术；IE浏览器；VB 　　中图分类号：TM131.4+6 文献标识码：A 　　浏览器辅助对象技术，全称Browser Helper Object，以下简称BHO，就是我们常说的IE浏览器插件。它是微软推出的作为浏览器对第三方程序员开放交互接口的业界标准，利用BHO的交互接口，就可以在加载IE浏览器的同时进行相应的IE控制处理或加载其它程序，实现与IE浏览器的交互。本文通过VB的实际开发案例，提供了VB利用BHO开发相关程序的核心代码，通过简单的演示，为开发者提供一种开发思路。 　　1BHO的简介与实现原理 　　BHO的目的是为了更好的帮助程序员打造个性化浏览器，以及为程序提供更简洁的交互功能，现在很多IE个性化工具就是利用BHO的来实现。符合BHO接口标准的程序代码???写为DLL动态链接库形式在注册表里注册为COM对象，还要在BHO接口的注册表入口处（即HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects)进行组件注册，以后每次IE启动时都会通过这里描述的注册信息调用加载这个DLL文件，而这个DLL文件就因此成为IE的一个模块（BHO组件），与IE共享一个运行周期，直到IE被关闭。 　　2应用BHO技术的开发案例 　　下面采用VB6.0来创建Browser Helper Object，实现记录IE浏览网址与日期时间，详细过程与代码如下： 　　2.1打开VB6.0，点击菜单栏[文件]--[新建工程]，在弹出的[新建工程]页面中选择ActiveX DLL，保存工程为TestBHO.vbp； 　　2.2将类模块中的Class1改名为TestBHO并保存为TestBHO.cls； 　　2.3点击菜单栏[工程]--[引用],选择引用“VB Shell Library”(VBSHELL.TLB)、“Microsoft HTML Object Library”(MSHTML.TLB)、“Microsoft Internet Controls”(shdocvw.dll)； 　　2.4在类模块TestBHO.cls中添加核心接口代码，实现与IE的接口，代码如下： 　　Option Explicit 　　Implements IObjectWithSite 　　Private Declare Sub CopyMemory Lib Kernel32 Alias RtlMoveMemory (pDst As Any, pSrc As Any, ByVal ByteLen As Long) 　　Private moUnknown As IUnknownVB 　　Private WithEvents moBrowser As InternetExplorer 　　记录网址???文件路径 　　Dim mSavePath As String 　　加载Dll文件时初始化变量 　　Private Sub Class_Initialize() 　　‘将网址记录到c:\bho.txt下 　　mSavePath = C:\bho.txt 　　End Sub 　　Private Sub IObjectWithSite_GetSite(ByVal priid As VBShellLib.REFIID, ppvObj As VBShellLib.VOID) 　　If Not (moUnknown Is Nothing) Then 　　moUnknown.QueryInterface priid, ppvObj 　　End If 　　End Sub 　　Private Sub IObjectWithSite_SetSite(ByVal pSite As VBShellLib.IUnknownVB) 　　Set moUnknown = pSite 　　If ObjPtr(pSite) = 0 Then 　　CopyMemory moBrowser, 0, 4 　　Set moUnknown = Nothing 　　Set moBrowser = Nothing 　　Else 　　Set moBrowser = moUnknown 　　End If 　　End Sub 　　‘将字符串联写入指定路径的文档 　　Private Sub WriteTxt(ByVal Url As String) 　　Open mSa