Автоматизация нажатия клавиши в DirectX-приложениях на Windows XP и 7 без изменения файлов `DX*.DLL`

Delphi , ОС и Железо , Справочник по сообщениям

Автоматизация нажатия клавиши в DirectX-приложениях на Windows XP и 7

Вопрос автоматизации нажатия клавиш в приложениях, использующих DirectX, может быть связан с определёнными трудностями. Это обусловлено тем, что многие DirectX-приложения напрямую работают с устройствами ввода, минуя стандартные механизмы Windows для обработки сообщений о нажатиях клавиш. В данной статье мы рассмотрим, как можно решить эту задачу, используя язык программирования Object Pascal и среду разработки Delphi.

Проблема

Пользователь Tom столкнулся с необходимостью создать программу, которая бы имитировала нажатие клавиши 1 каждые 10 секунд для конкретного процесса в Windows XP или Windows 7. Попытки отправить сообщения Windows, которые успешно работали с другими приложениями, в данном случае не увенчались успехом. Подозревается, что причина кроется в использовании приложением DirectX. Tom интересует, возможно ли это сделать без изменения файлов DX*.DLL.

Решение

Использование SendInput

Один из способов - использовать функцию SendInput для имитации нажатия клавиш. В Delphi это можно реализовать следующим образом:

uses
  Windows;

type
  TInput = record
    type TInputType = (inputMouse, inputKeyboard, inputHardware);
    InputType: TInputType;
    Mouse: TMouseInput;
    Keyboard: TKeyboardInput;
    dwExtraInfo: DWORD;
  end;

  TMouseInput = record
    dx: Integer;
    dy: Integer;
    mouseData: DWORD;
    dwFlags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;

  TKeyboardInput = record
    wVk: Word;
    wScan: Word;
    dwFlags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;

function SendInput(hWnd: HWND; var inputs: TArray<TInput>; Size: Integer): BOOL; stdcall;
var
  KeyboardInput: TKeyboardInput;
begin
  // Настройка параметров для имитации нажатия клавиши
  KeyboardInput.wVk := $01; // Виртуальный код клавиши '1'
  KeyboardInput.wScan := $02;
  KeyboardInput.dwFlags := $0002; // KEYEVENTF_EXTENDEDKEY
  KeyboardInput.time := 0;
  KeyboardInput.dwExtraInfo := 0;

  SetLength(inputs, 1);
  inputs[0].InputType := inputKeyboard;
  inputs[0].Keyboard := KeyboardInput;

  // Отправка имитации нажатия клавиши
  Result := SendInput(0, inputs[0], SizeOf(TInput));
end;

Этот код можно запустить каждые 10 секунд, используя таймер, чтобы имитировать нажатие клавиши 1.

Альтернативные подходы

Если SendInput не работает, возможно, приложение использует DirectInput или XInput, что делает задачу сложнее. В таком случае можно рассмотреть создание DLL для инъекции в приложение с целью перехвата и изменения функций, работающих с устройствами ввода. Однако это может быть не только сложно, но и небезопасно.

Подтвержденный ответ

В качестве решения, Tom использовал IO.DLL, который, к сожалению, не поддерживает 64-битные системы, но оказался приемлемым для целевой аудитории, большая часть которой использует 32-битные системы.

Заключение

Автоматизация нажатия клавиш в DirectX-приложениях требует глубокого понимания работы с устройствами ввода и возможностей операционной системы. Использование SendInput может быть простым решением, но в случае его неэффективности потребуются более сложные методы, такие как создание DLL для инъекции в процесс. Важно помнить о безопасности и законности таких действий.

Создано по материалам из источника по ссылке.

Запрос помощи в автоматизации нажатия клавиши в приложениях, использующих DirectX, на операционных системах Windows XP и 7.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по сообщениям ::