在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.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

|