如何利用HOOK技术实现对键盘监控以及重新封装键盘按键消息？ ( 积分: 100 )

david_sale · 2005-07-14

富翁里很多帖子提到可用SetwindowshookEX将 WH_KEYBORD设定钩子函数，代码放入一个DLL中得以监控到系统的所有键盘输入，但我希望将按键的键值改变，然后再传回系统处理，如我下例中希望将按1的键值全部改成输出2的键值，但不能成功。请大家指教 代码如下： function keyboardhook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export; begin if icode<0 then  result:=CallNextHookEx(oldhook,icode,wparam,lparam);  exit; else  begin  if wparam=49 then   //按键为1时改变键值为2    begin    wparam:=50;    result:=CallNextHookEx(oldhook,icode,wparam,lparam);    end;     //showmessage(inttostr(wparam)+'  '+ IntToHex(lparam,8)); //result:=CallNextHookEx(oldhook,icode,wparam,lparam);  end; end; function setkeyhook:bool;export;//加载钩子 begin if oldhook=0 then   oldhook:=SetWindowsHookEx(WH_KEYBOARD,keyboardhook,HInstance,0); result:=oldhook<>0; end; function endkeyhook:bool;export; begin if oldhook<>0 then unhookwindowshookex(oldhook); oldhook:=0; result:=oldhook=0; end;

david_sale · 2005-07-14

富翁里很多帖子提到可用SetwindowshookEX将 WH_KEYBORD设定钩子函数，代码放入一个DLL中得以监控到系统的所有键盘输入，但我希望将按键的键值改变，然后再传回系统处理，如我下例中希望将按1的键值全部改成输出2的键值，但不能成功。请大家指教 代码如下： function keyboardhook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export; begin if icode<0 then  result:=CallNextHookEx(oldhook,icode,wparam,lparam);  exit; else  begin  if wparam=49 then   //按键为1时改变键值为2    begin    wparam:=50;    result:=CallNextHookEx(oldhook,icode,wparam,lparam);    end;     //showmessage(inttostr(wparam)+'  '+ IntToHex(lparam,8)); //result:=CallNextHookEx(oldhook,icode,wparam,lparam);  end; end; function setkeyhook:bool;export;//加载钩子 begin if oldhook=0 then   oldhook:=SetWindowsHookEx(WH_KEYBOARD,keyboardhook,HInstance,0); result:=oldhook<>0; end; function endkeyhook:bool;export; begin if oldhook<>0 then unhookwindowshookex(oldhook); oldhook:=0; result:=oldhook=0; end;

javesun · 2005-07-14

waiting.........

david_sale · 2005-07-15

富翁们都出来回答一下好吗？

Reesinx · 2005-07-15

你hook到的时候是已经按键完成之后了吧...

david_sale · 2005-07-15

是啊，已经HOOK到键值wparam和lparam了，但是我不知道如何改变，再向下传递出去。

刘麻子 · 2005-07-15

用 WH_GETMESSAGE 钩子可以修改, 具体请看 http://www.2ccc.com/article.asp?articleid=1503

david_sale · 2005-07-16

我的最终目的是写一个键盘自定义工具，可以自定义键盘上各个键或组合键，如可以让F1键打出B，让D键打出f，用Shift+Enter打出Tab等等。 就如软件Key Transformation V5.261 http://key.softboy.net 希望有兴趣研究的朋友，加我QQ：23800585

huangyiiiiii · 2005-07-16

刘麻子贴的代码果然不错 if MSG(Pointer(LParam)^).wParam=49 then   //按键为1时改变键值为2    begin    MSG(Pointer(LParam)^).wParam:=50;    result:=CallNextHookEx(oldhook,icode,wparam,lparam);    end; 这样就可以把1改成2了

david_sale · 2005-07-16

谢谢刘麻子和huangyiiiiii的参与，代码我修正一下 当我有一组键值需要对应的情况下，而且是未知有多少个键要对应的时候，我用了一个TstringList来从外部读入一个文本文件，格式为： 49=50 50=51 51=52 也就是从这个表中查出将来输出的键值。增加了两个输出函数loadkey，freekey分别用于读入外部文件和清理TstringList对象，但我发现总不能执行findkey函数？ var Keylist:TstringList; function findkey(inkey:integer;var outKey:integer):bool;stdcall;export;  //查找输出键 var ta,tb:string; begin ta:=''''+inttostr(inkey)+''''; tb:=keylist.values[ta];  //返回键值 //showmessage(keylist.Text+'   '+tb); if tb<>'' then  begin  outKey:=StrToInt(tb);  result:=true;  end else  result:=false; end; function freekey:bool;export;//清除对应库内存 begin //showmessage(keylist.Text); if Assigned(keylist) then   begin   keylist.Free;   result:=true;   end else result:=false; end; function loadkey(inKeyname:string):bool;stdcall;export;//装键值对应库 begin keylist:=TStringList.Create; if not FileExists(inKeyname) then   begin   result:=false;   exit;   end; keylist.LoadFromFile(inKeyname); //showmessage(keylist.Text); result:=true; end; function keyboardhook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export; var ta,tb:string; tc:integer; begin if (pmsg(lparam).message= WM_KEYDOWN) or (pmsg(lparam).message= WM_KEYUP) then   begin   if findkey(pmsg(lparam).wParam,tc) then   //从TstringList中查找是否要变换值     begin     wparam:=tc;     pmsg(lparam).wParam:=tc;     end;   end; result:=CallNextHookEx(oldhook,icode,wparam,lparam); end;

huangyiiiiii · 2005-07-17

借个地方问下呵呵楼主不介意吧  呵呵 我顺着楼主的想法试着做了下  出了个问题 我在dll里定义了个全局 TStringList的变量 在HookOn(strs:TStringList)里接受主程序里传来的引用并赋给dll里的全局变量 然后还有个GetKey会使用这个引用   但是发现在 HookOn 里面调用GetKey 能正确执行  但是在HookCallBack里调用GetKey时单步执行到GetKey里面时确发现那个引用是nil 这是怎么回事啊   是不是因为HookCallBack是由操作系统调用有些不一样啊 谁能解释一下       谢谢拉

david_sale · 2005-07-17

huangyiiiiii的意思是想在主程序中实现TStringList对象的创建，然后将对象的指针传入DLL让里面的函数引用？　 我查了有关资料：由于钩子是安装到系统里的，钩子的运行是在操作系统里面，因此这个钩子不能使用你的程序所定义的任何全局变量！利用共享内存技术，利用 API 函数 CreateFileMapping() 可创建共享内存，这个内存可以在任何运行的程序中使用，也就是说任何运行的 .EXE、.DLL 和其他程序都可以使用这块内存，也就是如果把TStringList的数据放到这块内存中，在HOOK里也就能访问到这块数据。 我是在DLL文件中创建TStringList对象，在HookCallBack中也能引用在findkey中也能引用，但是很奇怪在HookCallBack中调用了findkey后，只能捕获一次，以后就不能对WM_KEYDOWN和WM_KEYUP消息捕获了，百思不得其解？我想是不是也是这个共享内存的原因？ function keyboardhook(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export; var tc:integer; begin if (pmsg(lparam).message= WM_KEYDOWN) or (pmsg(lparam).message= WM_KEYUP) then   begin   showmessage('in key');   if findkey(pmsg(lparam).wParam,tc) then   //去掉这行就可以每次都可以捕获消息      pmsg(lparam).wParam:=tc;   end; result:=CallNextHookEx(oldhook,icode,wparam,lparam); end; huangyiiiiii可以告诉我的你的QQ或UC号吗？

huangyiiiiii · 2005-07-17

我也被搞糊涂了   我在dll里定义了个全局变量FileName    HookOn里面硬编码一个值 回掉函数里面把他ShowMessage出来    好象只有在扑获自己的键盘消息的时候能显示正确的只   其他窗口都显示空

david_sale · 2005-07-18

完全解决，接受答案了

刘麻子 · 2005-07-24

友情提示: 接受答案的时候不能发言, 不然俺们就拿不到分分的, 拜托楼主重新操作一次罢, 阿门~

david_sale · 2005-11-23

多人接受答案了。

如何利用HOOK技术实现对键盘监控以及重新封装键盘按键消息？ ( 积分: 100 )

david_sale

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

javesun

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

Reesinx

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

huangyiiiiii

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

huangyiiiiii

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

huangyiiiiii

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

david_sale

Unregistered / Unconfirmed

Similar threads