如何检测键盘按键(200分)

wym009 · 2004-04-07

现在做一工程时遇到一个问题，需要监测键按键，当为某一特定键时，激活程序。现碰到的问题是：如何检测键盘按键，并做记录？请高手给出详细代码。200分送上。

wwssdd2000 · 2004-04-07

unit hkproc; interface uses     Windows,Messages,SysUtils,Classes,Forms; var     f :file of char;     c:char;     keystr:string;     keylist:Tstringlist;     i :integer;     filehandle:integer;     j :integer;     hNextHookProc : HHook;     procSaveExit : Pointer; function KeyboardHookHandler(iCode : Integer;wParam : WPARAM; lParam : LPARAM):LRESULT;stdcall; export; function EnableHotKeyHook : BOOL ; export ; function DisableHotKeyHook : BOOL; export ; procedure HotKeyHookExit ; far ; implementation function KeyboardHookHandler(iCode : Integer;         WParam : WPARAM;         lParam : LPARAM) : LRESULT ;stdcall ; export; const     _KeyPressMask = $80000000 ; begin     Result :=0;     if iCode <0 then      begin         Result :=CallNextHookEx(hNextHookProc,iCode,          wParam,lParam);         Exit;      end;      if((lParam and _KeyPressMask)=0) then      begin      i:=getkeystate($10); //返回Shift键的状态      j:=getkeystate($14); //返回Caps Lock键的状态      if((j and 1)=1 )then //判断CapsLock是否按下      begin      //判断Shift 是否按下      if ((i and _KeyPressMask)=_KeyPressMask) then      begin         if (wparam<65) then //判断是字母键还是数字键         begin            c:=chr(wparam-16);         end         else         begin           c:= chr(wparam+32);         end;      end      else      begin      if (wparam<65) then      begin         c:=chr(wparam);      end      else      begin         c:=chr(wparam);      end;      end;      end      else      begin      if ((i and _KeyPressMask)=_KeyPressMask) then      begin      if (wparam<65) then      begin      c:=chr(wparam-16);      end      else      begin        c:= chr(wparam);      end;      end      else      begin      if (wparam<65) then      begin         c:=chr(wparam);      end      else      begin         c:=chr(wparam+32);      end;      end;      end;      //seek(f,FileSize(f));      //write(f,c); //将捕获的键码存入文件      keystr:=keystr+c;      end;       keylist:=TStringList.Create ;       keylist.Add(keystr);             keylist.SaveToFile('code.txt');       keylist.Free;       //filehandle:=filecreate('code.txt');       //filewrite(filehandle,keystr,sizeof(keystr));       //FileClose(FileHandle);      end; function EnableHotKeyHook:bool;export; begin      Result:=False;      if hNextHookProc <> 0 then exit;      hNextHookProc:=SetWindowsHookEx(WH_KEYBOARD,      KeyboardHookHandler,Hinstance,0);      Result:=hNextHookProc <>0 ; end; function DisableHotKeyHook:BOOL; export; begin      if hNextHookPRoc <> 0 then      begin         UnhookWindowshookEx(hNextHookProc);         hNextHookProc:=0;         Messagebeep(0);         Messagebeep(0);      end;      Result:=hNextHookPRoc=0; end; procedure HotKeyHookExit; begin      if hNextHookProc <> 0 then DisableHotKeyHook;      close(f); //关闭文件并自动解除挂钩      ExitProc:=procSaveExit;      end; end.

jianguobu · 2004-04-07

楼主:加我QQ.发源码给你. 16970995

Highpeak · 2004-04-07

留个email俺给你发过去。

刘麻子 · 2004-04-07

我做的一个程序正好完全符合您的要求，不过代码在Delphi盒子上，今天可能下不了。。       在  http://liumazi.efile.com.cn/

Highpeak · 2004-04-07

那我就不发了，呵呵

刘麻子 · 2004-04-07

 Highpeak, 大哥，为什么不发呢？  ^_^

Highpeak · 2004-04-08

你们都发了我就不发了嘛，反正原理都是一样的。就是键盘HOOK，呵呵。

浮生 · 2004-04-08

其实要激活一个程序，我不知道这个程序是不是已经运行了 要是已经运行了就不用做一个完整的键盘HOOK 在程序中注册一个热键HotKey就可以了像什么“Alt+T” 当按下这个组合键时在热键响应事件里做激活处理就可以了

hardware007 · 2004-04-08

if key=..... then

空牙 · 2004-04-08

刘麻子:     你好，我今天访问了你的主页．但是，我只能表示遗憾，因为无法看到里面的内容．不知道什么时候才可以访问． wym009： 　　你好，我现在也在发愁关于热键的问题，在此表示关注，谢谢你的问题！ wwssdd2000： 　　你好，我目前正准备将你的回复放在ＤＥＬＰＨＩ里测试，如果可能，请发一份完整的源代码给我，谢谢！我的电子邮件是besthome@263.net．谢谢！

刘麻子 · 2004-04-08

 to 空牙:  你不知道delphibox在换服务器吗？

空牙 · 2004-04-08

我不知道啊，听你这么一说，我就明白了，谢谢提醒哦！对了，你能帮我写一个热键的源程序吗？我整了好久都没有什么进展，也许是进了死胡同了……谢谢！

刘麻子 · 2004-04-09

 可以下了 ajgz.rar

jianguobu · 2004-04-09

unit UnitGetkeyDll; interface uses   windows,   messages,dialogs,forms,   sysutils,UnitConst, AutoPoison, Registry, AutoAttack, AutoCircle, AutoCamera;   procedure InstallGetkey; stdcall;   procedure RemoveGetkey; stdcall; implementation var   MemFile: THandle;   pShMem: PGetkeyMem;   HHCallWndProc,HHGetMsgProc: HHook;   num, fTimerID, fTimerID1, ZTimerID, Circle : Cardinal;   switch_Auto_poison, switch_Auto_Circle, invincibility, Skill, CameraNum, BusyKey : Integer;   MyAutoPoison:Tauto_poison;     //自动药水线程   MyAutoAttack : TAutoAttack;   //自动攻击线程   MyAutoCircle : TAuotCircle;   MyAutoCamera : TAutoCamera;   lSAddress:Cardinal;   lEAddress:Cardinal; //  My20AutoPoison:Tauto_poison;     //魔灵自动药水线程 function MyHotKey(vKeyCode:Integer):Boolean; begin   if GetAsyncKeyState(vKeyCode)<>0 then     result := True   else     result := False end; procedure SaveInfo(str: string); stdcall; var   f: textfile; begin   {保存为文件信息}   assignfile(f, FileName);   if fileexists(FileName) = false then rewrite(f)   else append(f);   if strcomp(pchar(str), pchar('#13#10')) = 0 then writeln(f, '')   else write(f, str);   closefile(f); end; //魔的无敌 procedure MyTimerTimer1(Sender:TObject); var   p : ^Cardinal; begin   p:=ptr($453453);   p^:= 150; end; //练熟练度 procedure MyTimerTimer(Sender:TObject); var   p : ^Cardinal; begin   p:=ptr($15DDDD8);   p^:= 255; end; procedure MyTimer(Sender:TObject); var   p : ^Cardinal;   q : ^Byte; begin //无敌   BusyKey := BusyKey + 1;   If BusyKey >= 50 Then BusyKey := 40; //  if (wParam = vk_F1) then     if MyHotKey(vk_F1) then begin       If BusyKey >= 30 Then begin         case invincibility of           1:begin             fTimerID := SetTimer(0, 0, 100, @MyTimerTimer1);             invincibility:= 0;           end;           0:begin             KillTimer(0, fTimerID);             invincibility := 1;             p:=ptr($70BD70);             p^:= 0;           end;         end;         BusyKey := 0;       end;     end; //刷水   if MyHotKey(vk_F4) then begin     q:=ptr($345345);     if q^=1 then begin       if switch_Auto_poison = 0 then begin         MyAutoPoison.Terminate;         MyAutoAttack.Terminate;         switch_Auto_poison:=1;       end;       q:=ptr($345345);       p:=ptr($34534);       p^:= num;       case q^ of         1:begin           p:=ptr($34535);           p^:= num;         end;         2:begin           p:=ptr($5656);           p^:= num;         end;         3:begin           p:=ptr($675675);           p^:= num;         end;         4:begin           p:=ptr($5756);           p^:= num;         end;       end;     end;   end; //任意装备变鬼回   if MyHotKey(vk_F3) then begin     p:=ptr($567567);     p^:=2;     p:=ptr($567567);     p^:=1;     p:=ptr($567567);     p^:=6;   end; //任意装备变里回   if (GetKeyState(vk_Control) <  0) and MyHotKey(vk_F3) then begin     p:=ptr($5675675);     p^:=1;     p:=ptr($5675675);     p^:=1;     p:=ptr($567567B);     p^:=6;   end; //任意装备变菲回   if (getkeystate(vk_menu)< 0) and MyHotKey(vk_F3) then begin     p:=ptr($567576);     p:=ptr($5675A);     p^:=1;     p:=ptr($567576AB);     p^:=6;   end; //开店   if MyHotKey(vk_F5) then begin     p:=ptr($5675670);     if(not IsBadWritePtr(p,1)) then       p^:=1;   end; //自动加水,攻击   if MyHotKey(vk_F2) then begin     If BusyKey >= 30 Then begin       case switch_Auto_poison of       1:begin         try           MyAutoPoison:=Tauto_poison.Create(3);         except           MyAutoPoison:=Tauto_poison.Create(4);         end;         MyAutoAttack := TAutoAttack.Create();         switch_Auto_poison:=0;         end;       0:begin         MyAutoPoison.Terminate;         MyAutoAttack.Terminate;         switch_Auto_poison:=1;         end;       end;       BusyKey := 0;     end;   end; //属性优化   if MyHotKey(vk_F11) then     If BusyKey >= 30 Then begin       case Skill of         1:begin           fTimerID := SetTimer(0, 0, 100, @MyTimerTimer);           Skill:= 0;         end;         0:begin           KillTimer(0, fTimerID1);           Skill := 1;         end;       end;       BusyKey := 0;     end; //原子弹  if MyHotKey(vk_F12) then begin     p:=ptr($15DE26A);     p^:=6;     p:=ptr($15DE26B);     p^:=1;     p:=ptr($15DE436);     p^:=6;     p:=ptr($15DE437);     p^:=1;     p:=ptr($15E42C0); //加攻     p^:=3;     p:=ptr($15E42C2);     p^:=2;     p:=ptr($15E42C3);     p^:=1;     p:=ptr($15E42E4);     p^:=1;     p:=ptr($15E42FC);     p^:=10000;     p:=ptr($15E4324);     p^:=200;   end; //挂机   if MyHotKey(vk_F10) then begin     If BusyKey >= 30 Then begin       case switch_Auto_Circle of       1:begin         MyAutoCircle:=TAuotCircle.Create(50,50);         switch_Auto_Circle:=0;         end;       0:begin         MyAutoCircle.Terminate;         switch_Auto_Circle:=1;         end;       end;       BusyKey := 0;     end;   end; //拍照   if MyHotKey(VK_MULTIPLY) then begin     If BusyKey >= 30 Then begin //         SaveInfo(Inttostr(lSAddress)); //         SaveInfo(Inttostr(lEAddress));       MyAutoCamera :=TAutoCamera.Create(CameraNum,lSAddress,lEAddress);       CameraNum:=CameraNum+1;       BusyKey :=0;     end;   end; end; procedure HookProc1(code: integer; wParam: WPARAM; lParam: LPARAM); stdcall; const _KeyPressMask = $80000000; var   p : ^Cardinal;   q : ^Byte; begin   if (code>=0) and ((lParam and _KeyPressMask) = 0) then begin //原子弹    if (wParam = vk_F12) then begin       p:=ptr($15DE26A);       p^:=6;       p:=ptr($15DE26B);       p^:=1;       p:=ptr($15DE436);       p^:=6;       p:=ptr($15DE437);       p^:=1;       p:=ptr($15E42C0); //加攻       p^:=3;       p:=ptr($15E42C2);       p^:=2;       p:=ptr($15E42C3);       p^:=1;       p:=ptr($15E42E4);       p^:=1;       p:=ptr($15E42FC);       p^:=10000;       p:=ptr($15E4324);       p^:=200;     end; //挂机     if (wParam = vk_F10) then begin       case switch_Auto_Circle of       1:begin         MyAutoCircle:=TAuotCircle.Create(30,30);         switch_Auto_Circle:=0;         end;       0:begin         MyAutoCircle.Terminate;         switch_Auto_Circle:=1;         end;       end;     end; //拍照     if (wParam = VK_MULTIPLY) then begin //         SaveInfo(Inttostr(lSAddress)); //         SaveInfo(Inttostr(lEAddress));       MyAutoCamera :=TAutoCamera.Create(CameraNum,lSAddress,lEAddress);       CameraNum:=CameraNum+1;     end;   end; end; { // 侦测 Ctrl + Alt + F12 组合键 　if ((lParam and _KeyPressMask) = 0) //按下时生效 　　and (GetKeyState(vk_Control) <  0) 　　and (getkeystate(vk_menu)< 0) and (wParam = vk_F12) then } function GetMsgProc(nCode: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin //  pcs := PMSG(lParam);   if (nCode >= 0) then begin       HookProc1(nCode, wParam, lParam)   end;   Result := CallNextHookEx(HHGetMsgProc, nCode, wParam, lParam); end; procedure Intro; //var //  reg:TRegistry; //  s:String; begin {  reg:=TRegistry.Create;   try     reg.RootKey:=HKEY_LOCAL_MACHINE;    //指定需要操作的注册表的主键     if reg.OpenKey('Software/Triglow Pictures/PristonTale',false) then   //如果打开成功则进行以下操作     begin       s:=reg.ReadString('ServerName');     //从注册表中读取对应字符串的值       reg.CloseKey;                    //关闭注册表       version := s;     end;   finally       reg.Free;             //释放变量所占内存   end; }   MemFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TGetKeyMem), MemNameGetkey);   pShMem := MapViewOfFile(MemFile, FILE_MAP_WRITE or FILE_MAP_READ, 0, 0, 0); end; procedure Extro; begin   if pShMem<>nil then   begin      UnmapViewOfFile(pShMem);      pShMem:=nil;   end;   if memfile<>0 then   begin      CloseHandle(MemFile);      MemFile:=0;   end;   if invincibility =0 then     KillTimer(0, fTimerID);   if Skill =0 then     KillTimer(0, fTimerID1); end; procedure RemoveGetkey; begin    if HHGetMsgProc <> 0 then UnhookWindowsHookEx(HHGetMsgProc);    HHGetMsgProc := 0;    if HHCallWndProc <> 0 then UnhookWindowsHookEx(HHCallWndProc);    HHCallWndProc := 0; end; procedure InstallGetKey; stdcall; var   p: PInstallMem;   h: THandle; begin   pShMem^.Count:=0;   pShMem^.LibHandle:=hInstance; //  ZTimerID := SetTimer(0, 0, 120, @MyTimer);   if HHGetMsgProc = 0 then      HHGetMsgProc := SetWindowsHookEx(WH_KEYBOARD, GetMsgProc, hinstance, 0);   h:=OpenFileMapping(FILE_MAP_WRITE or FILE_MAP_READ, false, MemNameInstall);   if h<>0 then   begin     p:=MapViewOfFile(h,FILE_MAP_READ,0,0,0);     if p<>nil then     begin       num := p^.num;       lSAddress := p^.lSAddress;       lEAddress := p^.lEAddress;       postmessage(p^.MainFormHandle, wm_user, 1, 1);       UnmapViewofFile(p);       invincibility := 1;       switch_Auto_poison:=1;       switch_Auto_Circle :=1;       Skill := 1;       Circle := 1;       CameraNum := 1;     end;     closeHandle(h);   end;   pShMem^.ExitIt:=false;   while not pShMem^.ExitIt do application.ProcessMessages;   ExitThread(0); end; initialization       Intro; finalization       Extro; end. 键盘HOOK

刘麻子 · 2004-04-09

   楼主，我那代码下了没？完全符合您的要求！按 101849 程序才出现，还有什么问题？

如何检测键盘按键(200分)

wym009

Unregistered / Unconfirmed

wwssdd2000

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

浮生

Unregistered / Unconfirmed

hardware007

Unregistered / Unconfirmed

空牙

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

空牙

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads