F:\VB6.0\COMMON\TOOLS\VB\UNSUPPRT\TYPLIB，这个目录里有一个文件MKTYPLIB是用来生成库文件的。 复制到一个新建文件夹备用
2.新建一个文本文件，把下面的代码复制进去：
[
uuid(CF9D9B76-EC4B-470D-99DC-AEC6F36A9261),
helpstring("VB IObjectWithSite Interface"),
version(1.0)
]
library IObjectWithSiteTLB
{
importlib("stdole2.tlb");
typedef [public] long GUIDPtr;
typedef [public] long VOIDPtr;
[
uuid(00000000-0000-0000-C000-000000000046),
odl
]
interface IUnknownVB
{
HRESULT QueryInterface(
[in] GUIDPtr priid,
[out] VOIDPtr *pvObj
);
long AddRef();
long Release();
}
[
uuid(FC4801A3-2BA9-11CF-A229-00AA003D7352),
odl
]
interface IObjectWithSite:IUnknown
{
typedef IObjectWithSite *LPOBJECTWITHSITE;
HRESULT SetSite([in] IUnknownVB* pSite);
HRESULT GetSite([in] GUIDPtr priid,[in,out] VOIDPtr* ppvObj);
}
}
另存为：IObjectWithSiteTLB.odl ，注意扩展名
把这个IObjectWithSiteTLB.odl拖到 MKTYPLIB.exe上，注意看，自动生成了我们要用的文件IObjectWithSiteTLB.tlb，
建立dll工程
打开vb6.0 --新建一个activeX dll 工程，
把下面的代码复制进去，
Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVB
Private Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr,PPVobj As IObjectWithSiteTLB.VOIDPtr)
M_Site.QueryInterface Priid,PPVobj
End Sub
Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
Set M_Site = pSite
Set IE = pSite
End Sub
添加引用
在“工程”--“引用”里，通过浏览引用我们生成的IObjectWithSiteTLB.tlb
再次添加一个引用：microsoft internet controls
在工程中使用以下代码
Private Sub IE_DocumentComplete(ByVal pDisp As Object,URL As Variant)
MsgBox URL,vbInformation,"baidu for u"
End Sub
点击文件 . 生成生成bho1010.dll ，当然你知道名字是你自己来取的
在你的操作系统目录下有一个systm32目录，在里面有一个exe文件，名字是regsvr32,是用来注册组件的。
在资源管理器你把bho1010.dll 拖拉到regsvr32.exe身上，显示注册成功。
运行regedit.exe 在注册表里搜索bho1010.dll,你会在HKEY_CLASSES_ROOT\CLSID中看到注册组件bho1010.dll 的GUID。然后将这个GUID拷贝下来，然后在注册表
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects
下创建一个新项，项的名称就是这个GUID。 搞定以后，打开IE，看看效果出现了吗？
修改的时候，只要关闭了 ie,重新生成bho1010.dll 文件就可以。
当然，你可以在 ie的“工具（T）”--"管理加载项下"，启用/禁用 你的插件
在vb6里新建一个exe工程,引用windows script host object model对象,和TypeLib Information (TLBINFO32.dll)
然后编写以下代码:
Dim wsh As New WshShell
Dim ta As New TLI.TLIApplication,ti As TLI.TypeLibInfo,tc As TLI.CoClassInfo
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long,ByVal bInheritHandle As Long,ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long,ByVal dwMilliseconds As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Sub Form_Load()
On Error Resume Next
Me.Visible = False
Dim cl As String,pid As Long,h As Long
cl = Command
pid = Shell("cmd /c regsvr32 /s " + cl,vbHide)
h = OpenProcess(PROCESS_ALL_ACCESS,False,pid)
WaitForSingleObject h,-1
cl = Replace(cl,"""","")
Set ti = ta.TypeLibInfoFromFile(cl)
Dim clisd As String
For Each tc In ti.CoClasses
clisd = tc.Guid
wsh.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\" + clisd + "\",Null
Next
MsgBox "complete"
End
End Sub
代码都是关于com的调用,很好理解,编译成exe,使用的时候只需将dll文件拖到这个exe上,它便会为你的dll自动注册成bho,然后你再打开浏览器就行了,很方便吧!
当你想删除这个bho的时候,只点击 浏览器工具栏里的 工具-----管理加载项-----启用或禁用加载项,再里面找到你要禁用的bho,点禁用即可.或者直接到注册表的HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\下删除相应dll的clisd即可.
原文链接：https://www.f2er.com/vb/259077.html