泰州信息港

当前位置:

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

2019/12/05 来源:泰州信息港

导读

中文实名无非是用ie的iurlsearchhook,但是3721可不是这么玩的,它是使用api hook拦截ie commbox的消息,你根

中文实名无非是用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。

海南省中医院预约挂号
上海徐浦中医医院刘珍
晋中治疗白癜风医院哪家好
云南哪家医院治疗癫痫病效果好
山东治疗不孕不育方法
标签

友情链接