中华网通行证
用户名 密码

Delphi编程:QQ聊天记录怎样被记录下来(1)
中华网科技 http://tech.china.com 2005-07-25 10:37:44
进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号: 】【关闭窗口

  嘘!好不容易有了一点轻松点的时候。现在才有时间把前几天做的QQ聊天记录器发上来和大家一起分享。做这个程序是看到最近网上有一个叫QQAutoReorder的软件。它所实现的功能就是对QQ聊天记录进行记录。所采用的技术是:对QQ对话框进行挂钩。它并不能对用户没有点击的QQ消息进行记录。(我认为若想对QQ消息进行实时记录,意思就是不等QQ消息框出来就记录下QQ的消息。可能只能去拦截QQ的数据封包了吧。我也花了一天时间在这上面,但最后的结论是’太自不量力了’^_^看来QQ的数据封包可不是那么容易就能得到的L)

  本文采用对QQ消息框进行挂钩了方法(一来比较容易实现,二来也是大多数此类程序通用的方法。)为了简化程序:我将此程序分为两部实现(均于QQ2004下实现,到最后在兼容QQ2003的版本):

  一。 捕获别人给自己发来的消息:

  既然是挂钩QQ的消息框,自然得从众多的钩子类型中找出一种最为合理,也最方便的。很容易想到的是无论你用什么方式查看QQ的消息。总会导致一个QQ消息窗体的生成。就是会产生一个CREATE事件。从这一点上看,用一个WH_SHELL钩子是比较明智的。

帮助上对WH_SHELL的说明是:监控Windows外壳通知消息,例如顶级窗口的创建的释放。我们这里要关心是窗口的创建消息。

由于有可能一次出现多个QQ消息窗口的情况,我在这里使用全局钩子:并定义以下数据结构:


HookType.Pas单元

unit HookType;

interface

uses

Windows, Messages;
const

WM_USERCMD = WM_APP + 1; //用户自定应用程序级消息

UC_WINCREATE = WM_APP + 2; //QQ消息窗口创建

UC_WINDESTROY = WM_APP + 3; //发送QQ消息

BUFFER_SIZE = 16 * 1024;

HOOK_MEM_FILENAME = ‘MEM_FILE‘;

type

TShared = record



KeyHook : HHook; //键盘钩子

ShellHook: HHook;

CallHook : HHook;

MainWnd : THandle; //窗体的Handle(非Application.Handle)

Moudle : THandle; //DLL

end;

PShared = ^TShared;

implementation

end.

首页 上页 | 1 | 2 | 3 | 4... 下页 尾页  共 4

 

50款最具性价比数码相机/MP3推荐!
作者:黑客基地/佚名 来源: 

发表言论:
笔  名:
查看评论
﹣相关报道
Delphi编程技巧常见实例问答 (2005-06-10 14:13:57)
Delphi初学者参考 (2005-06-07 13:32:22)

﹣精彩回顾
·揭秘越南姑娘的“性契约”(组图)
·中国研制成功银河麒麟操作系统
·近处偷拍野狮性爱 野草丛中见柔情(图)
·难得一见“水下分娩”全程跟拍(组图)
·古代性器具及性惩罚工具(组图)
·揭密中外历史上乱伦的名人们(组图)
·探秘世界各地诡异的干尸新娘(组图)
·隋唐两个王朝的九大著名"绿帽子"(组图)
·另类的惨烈:螳螂血战壁虎谁更凶猛(图)
·一分钟平静死去 注射死刑全过程(图)

进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号: 】【关闭窗口


潮流·时尚
·市场上的天价手机全搜罗
·一周降幅最大手机导购
·FM调频收音功能手机选购
·索尼爱立信三新机曝光
·诺基亚N73音乐版精品赏
·热门便携笔记本搜索导购
·近期最新上市机型大盘点
·矩阵Matrix鼠标垫细评测
·19寸20寸22寸液晶该买谁
·近期几款热卖MP3大推荐
·四大即将退市经典MP3选购
·06年最火七大DC缺点曝光
·六百万像素超值机型推荐
·诺基亚推出随身小音箱
·LG直板巧克力KG99评测
·MOTO新机即将国内上市
·超低价蓝牙手机导购
·130万像素一样拍出好照片
·诺基亚两款蓝牙耳机新品
·索爱纯美折叠机Z558评测

软件下载
·豪杰大眼睛 V2.5
·Foxmail V6.5
·天网防火墙Athena
·极品五笔 V6.8
·PPS网络电视
·超级兔子魔法设置
中华网搜索
站内搜索
全网搜索




热门搜索
耳机 印刷 手机 拖鞋
减速机 钟表 成人用品
减肥 枸杞 T恤 升降机
心理 健康 彩票 招聘
礼品 旅游 猎头 培训

产品服务
·机会!机会不容错过
·中华商机,搜索创新
·准确快捷,搜你所搜
·¥来¥往,尽在中华邮
·中华搜索,贴心搜索




科技频道主编信箱