在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

评论 (0) All

登陆 还没注册？