在c++中是很容易实现，，因为c++可以操纵指针，，但是vb不是很好的玩这个，，所以需要通过类库来实现
说白了就是找个中间层，，让他翻译成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.IObjectWithSiteDim WithEvents IE As InternetExplorerDim M_Site As IUnknownVB
Private Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr) M_Site.QueryInterface Priid, PPVobjEnd Sub
Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB) Set M_Site = pSite Set IE = pSiteEnd 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