Симуляция нажатия клавиш в играх

← →
Ylia___ (2005-09-06 15:42) [0]

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

IDirectInputDeviceA = interface(IUnknown)
["{5944E680-C92E-11CF-BFC7-444553540000}"]
// IDirectInputDeviceA methods
function GetCapabilities(var lpDIDevCaps: TDIDevCaps): HResult; stdcall;
function EnumObjects(lpCallback: TDIEnumDeviceObjectsCallbackA;
pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
function GetProperty(rguidProp: PGUID; var pdiph: TDIPropHeader): HResult; stdcall;
function SetProperty(rguidProp: PGUID; const pdiph: TDIPropHeader): HResult; stdcall;
function Acquire: HResult; stdcall;
function Unacquire: HResult; stdcall;
function GetDeviceState(cbData: DWORD; var lpvData): HResult; stdcall;
function GetDeviceData(cbObjectData: DWORD; var rgdod: TDIDeviceObjectData;
var pdwInOut: DWORD; dwFlags: DWORD): HResult; stdcall;
function SetDataFormat(const lpdf: TDIDataFormat): HResult; stdcall;
function SetEventNotification(hEvent: THandle): HResult; stdcall;
function SetCooperativeLevel(hwnd: HWND; dwFlags: DWORD): HResult; stdcall;
function GetObjectInfo(var pdidoi: TDIDeviceObjectInstanceA; dwObj: DWORD;
dwHow: DWORD): HResult; stdcall;
function GetDeviceInfo(var pdidi: TDIDeviceInstanceA): HResult; stdcall;
function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD): HResult; stdcall;
function Initialize(hinst: THandle; dwVersion: DWORD; const rguid: TGUID): HResult; stdcall;
end;

здесь описана функция:
function GetDeviceState(cbData: DWORD; var lpvData): HResult; stdcall;
С помощью которой компонент DXInput узнает состояние клавиш на клавиатуре.
А есть ли аналогичная функция с помощью которой можно УСТАНОВИТЬ(симулировать)
нажатия клавиш ???
Пробовал с SetKeyboardState но что-то не получается.

← →
Eraser © (2005-09-06 15:45) [1]

Ylia___ (06.09.05 15:42)

Есть! keybd_event.
Для эмуляции мыши - mouse_event.

← →
alpet © (2005-09-06 15:48) [2]

Eraser © (06.09.05 15:45) [1]

Либо SendInput, что не важно. К примеру это реализовано в взломщике игр (http://www.alpet.hotmail.ru/wgcsrc.zip), для быстрого ввода чит-кодов.

← →
Ylia___ (2005-09-06 16:40) [3]

Что-то не могу скачать
http://www.alpet.hotmail.ru/wgcsrc.zip

← →
Ylia___ (2005-09-06 16:53) [4]

Хотелось бы небольшой пример.
пробую:
keybd_event(VK_UP, 0, 0, 0);
не получается.
DxInput не определяет нажатие клавиши.

У меня прекрасно открывается.
procedure SimKeyUp(Key : byte); begin keybd_event (Key, 0, KEYEVENTF_KEYUP, 0); end; procedure SimKeyDn (Key : byte); begin keybd_event (Key, 0, 0, 0); sleep (sdelay); end; procedure SimKeystroke (Key : byte; scan : DWORD); begin keybd_event(Key, scan, 0, 0); sleep (sdelay); keybd_event(Key, scan, KEYEVENTF_KEYUP, 0); end;

Для полноценного нажатия, надо также симулировать и отпускание. Кроме того для некоторых клавиш надо задавать флажок KEYEVENTF_EXTENDEDKEY.
Впрочем я до конца неуверен, что DirectInput будет поддаваться на симуляцию.

Симуляция нажатия клавиш в играх Найти похожие ветки