繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > QQ聊天记录器演示程序(一)
- Delphi
- Delphi设计简易对象垃圾回收框架
- Delphi开发Web应用程序打印组件
- Delphi客户服务器应用开发（四）
- Delphi自定义部件开发（一）
- Delphi自定义部件开发（二）
- Delphi自定义部件开发（三）
- Delphi自定义部件开发（四）
- 开发Delphi对象式数据管理功能（一）
- 开发Delphi对象式数据管理功能（二）
- 开发Delphi对象式数据管理功能（三）
- 开发Delphi对象式数据管理功能（四）
- 开发Delphi对象式数据管理功能（五）
- 用Delphi语言来学设计模式之简单工厂篇
- Delphi2005和DUnit搭建敏捷开发平台记录
- 你想成Delphi高手吗?快来学Delphi快捷键
- Borland最新版开发工具Delphi2005抢先预览
- 用Delphi实现JPEG格式图像的显示
- 用DELPHI编程访问SQL SERVER数据库
- 用Delphi编制趣味动画鼠标
- 用Delphi实现选单的自动隐藏功能
Delphi 中的 QQ聊天记录器演示程序(一)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 143 ::
收藏到网摘: n/a
注:本篇没有高手需要的内容，因为此文中的技术实在无新意可言,只是些简单的实现(可针对QQ2003和QQ2004版本),各位高手可以就此打住,若浪费宝贵时间,吾将深感不安。 作者网站:http://asp.itdrp.com/hottey
嘘!好不容易有了一点轻松点的时候.现在才有时间把前几天做的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; 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
|
ShellHook: HHook; CallHook : HHook; MainWnd : THandle; //窗体的Handle(非Application.Handle) Moudle : THandle; //DLL end; PShared = ^TShared; implementation end. |
DLL单元代码
var MemFile: THandle; Shared: PShared; function ShellProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin case iCode of HSHELL_WINDOWCREATED: //有顶级窗口创建时向演示程序发送自己定义消息WM_USERCMD. Wparamr参数说明 // wParam specifies the handle of the window being created or destroyed, respectively. PostMessage(Shared^.MainWnd,WM_USERCMD ,UC_WINCREATE,wParam); end; Result := CallNextHookEx(Shared^.ShellHook,iCode,wParam,lParam); end; function InstallHook:Boolean;
|
begin Shared^.Moudle:=GetModuleHandle(PChar('qqhook')); //qqhook是我的DLL文件名. Shared^.ShellHook := SetWindowsHookEx(WH_SHELL,
|
评论 (0) 