网页功能: 加入收藏 设为首页 网站搜索  
跟3721比狠:VB6.0实现中文实名搜索
发表日期:2005-08-03作者:[转贴] 出处:VB社区  

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

 

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 跟3721比狠:VB6.0实现中文实名搜索
本类热点文章
  用MSComm控件实现来电显示
  用VB调试串口通讯
  WOL(Wake on Lan)程序的源代码
  用PocketPCPhone替代AT指令的手机SMS服务
  保存页面为MHT的代码
  用VB动态获取所有网络邻居的名称及其IP..
  于Winsock控件制作的一个“服务器,N客..
  VB实现远程共享显示及声音
  Windows下访问共享的解决方案
  VB实现的MSN信息群发软件
  如何检测是否已连接到Internet?
  VB学习:MX记录获取组件
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00411