跟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 Inte.netExplorer
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。

文章来源于领测软件测试网 https://www.ltesting.net/