如何使用vb6.0来实现中文实名搜索

来源:岁月联盟 编辑:zhu 时间:2005-03-24
说白了就是找个中间层,,让他翻译成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