噓!好不容易有了一點輕松點的時候.現在才有時間把前幾天做的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.
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,
