说白了就是找个中间层，，让他翻译成vb能够认识的玩艺，，不说废话，，开始咯

中文实名无非是用ie 的iurlsearchhook，但是3721可不是这么玩得，，他是使用api hook拦截 ie commbox的消息，，，你根本就快不过他，，嘿嘿，，3721阴险把，，虽然我们不能实现全局钩子，，在vb中也只能使用sub class 子类技术咯，，这个东西我们不完，，我们玩另外一种

我们首先要实现IObjectWithSite ，IUnknown这两个接口，，

我们需要创建一个odl文件，，通过它来创建一个tlb

[
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);
}
};

把它保存为odl然后，用typelib创建一个tlb文件，创建后我们引用这个文件

添加如下代码

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

我们现在已经实现了这两个接口，为了实现我们的中文搜索，，我们不能使用urlsearchhook

所以我们通过接口 InternetExplorer来实现我们的功能

Private Sub IE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

这里填写你需要的代码，，。
End Sub

具体就不多说了，，。。大伙们自己看咯

你需要添加到注册表的brow help object的里面，，名字为这个com的classid