VC 键盘钩子问题

Posted 2023-05-07

//无法创建记录文件，代码如下：
void SaveLog(char* c)

CTime tm = CTime::GetCurrentTime();
CString name;
name.Format("C:\\Key_%d_%d.log",tm.GetMonth(),tm.GetDay());
CFile file;
if(!file.Open(name,CFile::modeReadWrite))

file.Open(name,CFile::modeCreate|CFile::modeReadWrite);

file.SeekToEnd();
file.Write(c,1);
file.Close();

你这段代码好眼熟哦，好像在2003年7月的《黑客防线》杂志上发表过，呵呵。

用MFC的CFile对象，效率多低啊。直接用API函数CreateFile()和WriteFile()就可以实现，不过要麻烦一点。 参考技术A 把
if(!file.Open(name,CFile::modeReadWrite))

file.Open(name,CFile::modeCreate|CFile::modeReadWrite);


改为
file.Open(name,CFile::modeCreate|CFile::modeNoTruncate|CFile::modeReadWrite); 参考技术B 把错误原因弄出来就知道了,GetLastError()
另外IO操作最好拦异常,try起来

delphi 键盘全局钩子

function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
if (wParam = VK_CONTROL) then
begin
//代码........
end;
Result := CallNextHookEx(hook, nCode, wParam, lParam);
end;

-------------------------------
hook := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, HInstance, 0);
//建立

钩子的代码就是这么写的，为什么做出来以后，只能勾自己的EXE不能勾全局的？

不是不给分，采纳就加分。
回复 warmwormn ：

我是放到DLL里面的

回复 yangyxd：

WH_KEYBOARD_LL, 这个是在哪里啊？ 不在windows 里面哦。
我 Const 它 =13 以后， 更勾不上了……

参考技术A WH_KEYBOARD 对于全局的效果不好用， 换用 WH_KEYBOARD_LL 钩子吧。

示例代码：

//全局键盘钩子消息处理函数
function KeyHookProc(nCode:Integer; wP:WPARAM; lP:LPARAM):LRESULT; stdcall;
var
pEvt: TEventMsg;
vKey: Cardinal;
begin
if (nCode = HC_ACTION) then begin
vKey := 0;
case wP of
WM_SYSKEYDOWN, WM_KEYDOWN:
begin
pEvt := PEventMsg(LP)^;
vKey := LOBYTE(pEvt.message);
case vKey of
......
end;
end;
end;

WM_SYSKEYUP, WM_KEYUP:;
end;
end;
result := CallNextHookEx(hKeyHook, nCode, wP, lP);
end;

安装钩子：
hKeyHook := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyHookProc, hInstance, 0);本回答被提问者采纳 参考技术B 正常，全局钩子啊
不是运行在你的程序里的
要进行代码注入

所以全局钩子一定要放在动态库里
然后由你的程序把这个动态库调用进行
再然后，系统会把这个动态库注入到别的程序里
再再然后，别的程序会在键盘操作时调用到这个动态库
再再再然后，你的动态库要把别的程序的操作回发到你的程序里来
再再再再然后，你的程序就可以收到操作了

注意：这个动态库操作的全部是系统全局变量，所有本程序里的变量
如HWND等等都是不能直接操作的