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

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

　　首先实现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。