跟3721比狠:VB6.0实现中文实名搜索

　　


                  跟3721比狠:VB6.0实现中文实名搜索</PRE>


中文实名无非是用ie的iurlsearchhook，但是3721可不是这么玩的，它是使用api hook拦截ie commbox的消息，你根本就快不过他，嘿嘿，3721阴险吧，虽然我们不能实现全局钩子，在vb中也只能使用sub class 子类技术，这个东西我们不玩，我们玩另外一种（说白了就是找个中间层，让它翻译成vb能够认识的玩意）。</PRE>


首先实现IObjectWithSite、IUnknown这两个接口。

我们需要创建一个odl文件，通过它来创建一个tlb： </PRE>


[

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

}

}; </PRE>




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



　　添加如下代码

</PRE>


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</PRE>




　　我们现在已经实现了这两个接口，为了实现我们的中文搜索，我们不能使用urlsearchhook，所以我们通过接口 InternetExplorer来实现我们的功能：

</PRE>


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</PRE>




　　具体就不多说了，大家自己看看。



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


</PRE>