Õâ¸öÊÇÅжϴ°ÌåÊDz»ÊÇ´ò¿ªÈ»ºó¿ªÆô¼üÅ̼ǼµÄÔ´Â룬Çë°ïæ¿´ÏÂÄÄÀïÊDz»ÊÇ´íÁË£¿
procedure TForm1.Button1Click(Sender: TObject);
var
zbwnd,qtwnd:hwnd; //ÉùÃ÷±äÁ¿Ê±£¬²»ÄÜÓá° := ¡±£¬Ö»ÒªÒ»¸öðºÅ¡°:¡±
st:string;
begin
st:='hao123££ÎÒµÄÉÏÍøÖ÷Ò³ - Microsoft Internet Explorer'; //·ÖºÅÒªÓÃÓ¢ÎÄ·ûºÅ
zbwnd:=findwindow(nil,pchar(st));
qtwnd:=GetForegroundWindow;
if zbwnd = qtwnd then
begin
if LogHook = 0 then
begin
LogHook:=SetWindowsHookEx(WH_JOURNALRECORD,LogProc,HInstance,0);
end;
end;
end;
Â¥É쵀 Äã°Ñ¼üÅÌ ¼Ç¼µÄÔ´Âë ·¢ÉÏÀ´ÁË ÎÒµÄÄ¿µÄÊÇ ¸ø ÔËÐÐ Õâ¸ö¼üÅ̼Ǽ¼Ó¸öÌõ¼þ£¡
ÄÄÀﱨ´í£¿ÉùÃ÷Ö¸Õ룿
ÕâÎÊÌâÊÇʲôÒâ˼£¿
ÍêÕûÔ´Âë·¢ÉÏÀ´ÁË£¬°ï濴ϰɣ¡ÊÇÄÄÀï³öÁËÎÊÌ⣡
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
KeyMask = $80000000;
var
Form1: TForm1;
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÏȰÑb.exe»¹Ô³öÀ´ÔÚµ÷Óã¬Ó¦¸ÃÊÇ× ......
ÎÒÏÈÓÃidhttp µÄget·½·¨·ÃÎÊÒ»¸öÍøÕ¾£¬ÍøÕ¾·µ»ØÁËÒ»¶Îcookie£¬µ±ÎÒ µ÷Óà idhttp post·½·¨µÄʱºò£¬ÎÒÈçºÎ°Ñ·þÎñÆ÷·µ»ØµÄÕâ¶Îcookies´øÉÏ £¬ÏÈлл¸÷λÁË
¶ÁÈ¡ HTTP Response Header
ÀïÃæÓÐ Set-Cookies Óò ......