ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу GetAsyncKeyState - запись кириллицы
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

GetAsyncKeyState - запись кириллицы
  #1  
Старый 15.09.2008, 22:29
Kissa2k
Новичок
Регистрация: 01.07.2008
Сообщений: 5
Провел на форуме:
13073

Репутация: 0
По умолчанию GetAsyncKeyState - запись кириллицы
Здраствуйте! Есть такая WinAPI функция GetAsyncKeyState, она позволяет узнать нажата ли клавиша с кодом который в ее аргументе.. Да вообщем наверное вы знаете, её часто используют в простых кейлоггерах
Я пытаюсь сделать такой кейлоггер, вроде все получается, но вот только при любой раскладке клавиатуры пишутся только латинские буквы.. Как всетаки получать русские буквы при русской раскладке? Мне знакомый говорил про функцию ToAscii, но у меня с ней ничего не выходит =_= Если не сложно, то можно и пример на Си.
Спасибо.
 
Ответить с цитированием

  #2  
Старый 21.09.2008, 02:09
Zabuldon
Участник форума
Регистрация: 06.04.2008
Сообщений: 102
Провел на форуме:
162579

Репутация: 28
По умолчанию
function get_key(vkey: Word): string;
var
keystate: TKeyboardState;
retcode: Integer;
begin
Win32Check(GetKeyboardState(keystate));
SetLength(Result, 2);
retcode := ToAscii(vkey,
MapVirtualKey(vkey, 0),
keystate, @Result[1],
0);
case retcode of
0: Result := '';
1: SetLength(Result, 1);
2: ;
else
Result := '';
end;
end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

begin
ShowMessage(Get_Key(Key));
end;
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как запретить запись на дискету через реестр в Xp? -=lebed=- Windows 6 29.08.2008 05:40
Чтение и запись файлов в Mssql [Raz0r] Уязвимости 0 18.08.2008 23:40
-=самая старая запись компьютерной музыки=- StopFreeLife Болталка 0 20.06.2008 03:02
Очистить аудио запись от шумов и увеличить четкость голоса Exile1985 Болталка 1 16.05.2008 14:58
Запись в фаил на удаленной машине wizard Чаты 3 19.05.2004 21:46



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ