[Помогите!] Эмуляция нажатия клавиши в неактивном окне

[xOmGLoLx]

Всем привет, столкнулся с проблемой: мне нужно написать программу для нажатия ХотКей в игре. Я нашел класс окна и handle окна, и Pid, но при отправке нажатия клавиши окно никак не реагирует. Пробовал много чего, а именно (да, знаю что после возврата из процедур значение регистров общего назначения не сохраняется, но все же...):


1)
procedure Key(Wnd: HWND; VKey: Integer);
asm
push 0
push edx
push 0101H ------------KEYUP
push eax
push 0
push edx
push 0100H ------------KEYDOWN
push eax
call PostMessage
call PostMessage
end;

Key(handle, key); НЕ ПАШЕТ

ИЛИ


procedure Key(Wnd: HWND; VKey: Integer);
asm
push 0
push edx
push 0101H -----------------KEYUP
push eax
call PostMessage
push 0
push edx
push 0100H ----------------KEYDOWN
push eax
call PostMessage
end;



2)Пробовал sendmessage, postmessage, для них пробовал vm_char,wm_keydown,wm_keyup. И еще много чего......


Думаю, друзья, вы поможете мне решить эту проблему!! Буду благодарен!
Пишу на Delphi 7

[Dinmaite[Work]]

В принципе достаточно эмулирования сообщением Keydown.
Какие конкретно клавиши ты пытаешься передавать сообщениями?
Проверь работоспособность кода на окне блокнота, а не игрушки.

[Ginrey]

а если за секунду перенести окно на передний план выполнить действие и вернуть обратно?

[ToRcH2565]

1) Клавиши идут в обратной последовательности(DOWN->UP)
2) К чему ассемблер?
3) Пауза между сообщениями.

procedure Key(Wnd: HWND; VKey: Integer);
Begin
PostMessage(Wnd,WM_KEYDOWN,key,0);
Sleep(100);
PostMessage(Wnd,WM_KEYUP, key,0);
end;

[Dinmaite[Work]]

Вообще-то во многих случаях отсылка сообщений KeyDown и KeyUp приводит к тому, что приложение считает их двумя нажатиями. Пример в архиве. Код от ToRcH2565 с исправленным называнием переменной.

procedure Key(Wnd: HWND; VKey: Integer);
 Begin
 PostMessage(Wnd,WM_KEYDOWN,Vkey,0);
 Sleep(100);
 PostMessage(Wnd,WM_KEYUP, Vkey,0);
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  key(memo1.Handle, 50); //50 - сканкод для клавиши "2".
end;

[Ссылки могут видеть только зарегистрированные пользователи. ]

[ToRcH2565]

Цитата: Сообщение от Dinmaite[Work] Вообще-то во многих случаях отсылка сообщений KeyDown и KeyUp приводит к тому, что приложение считает их двумя нажатиями. Пример в архиве. Код от ToRcH2565 с исправленным называнием переменной. procedure Key(Wnd: HWND; VKey: Integer); Begin PostMessage(Wnd,WM_KEYDOWN,Vkey,0); Sleep(100); PostMessage(Wnd,WM_KEYUP, Vkey,0); end; procedure TForm1.Button1Click(Sender: TObject); begin key(memo1.Handle, 50); //50 - сканкод для клавиши "2". end; [Ссылки могут видеть только зарегистрированные пользователи. ]

За правку кода спасибо, но есть одно но.

Цитата: Сообщение от Dinmaite[Work] что приложение считает их двумя нажатиями

.
Не в тот контрол шлем, нужно родителю(непомню точно), вроде как самому процессу, и тогда повтор режется им. а допустим некоторые обработчики вас неверно поймут при отсылке только одной клавиши.
Ибо сколько себя помню в программах(которые не автоматом сообщения парсят а ручками) делал такой вариант клавиш:

Var
  Keys:array of boolean;
{Много кода...}
Case msg of:
  {Опять много кода};
  WM_KEYUP        : keys[wpram]=false;
  WM_KEYDOWN   : keys[wpram]=true;
end.

И где мне нужны кнопки там с ними и работал(с массивом).
Ps. код не рабочий, приведен для понимания где возникнет ошибка.

[Dinmaite[Work]]

Для примера в JD при попытке отослать текст в чат сообщениями keydown + keyup происходит "двойное нажатие".

Да и собственно с чего бы отсылать сообщения родителю? У родителя вообще нет хэндла (родитель TCustomMemo), т.к. он отдельно не загружен. И будь добр покажи как процессу послать windowmessage.

Цитата: Сообщение от ToRcH2565 И где мне нужны кнопки там с ними и работал(с массивом).

Не понял что ты хотел этим сказать.

[Envy12]

Возможно бред скажу, но все же. В пв есть такая вещь как фриз, так вот во время фриза могут не принематся нажатия в окно.

[ToRcH2565]

Цитата: Сообщение от Dinmaite[Work] Да и собственно с чего бы отсылать сообщения родителю? У родителя вообще нет хэндла (родитель TCustomMemo), т.к. он отдельно не загружен.

Родитель Memo - форма, родитель формы - процесс.
Все зависит от того где первичный обработчик клавиш.
Есть ведь процессы без окон? и они тоже могут получать сообщения от системы.

Цитата: Сообщение от Dinmaite[Work] И будь добр покажи как процессу послать windowmessage.

точно также как и форме(контролу и прочему).

[Dinmaite[Work]]

Цитата: Сообщение от ToRcH2565 Родитель Memo - форма, родитель формы - процесс.

Не родитель, а владелец (хозяин) называй вещи своими именами.

Цитата: Сообщение от ToRcH2565 Есть ведь процессы без окон? и они тоже могут получать сообщения от системы.

Цитата: Сообщение от ToRcH2565 точно также как и форме(контролу и прочему).

К чему логические рассуждения? Кодом покажи.

[xOmGLoLx]

У меня есть код


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure MemoryPatch(hProcess, Addres: DWord; bytecode: string);
var
i: DWord;
bytecount: dword;
buf: byte;
begin
i := (length(bytecode) div 2) - 1;
for i := 0 to i do
begin
buf := strtoint('$' + bytecode[i * 2 + 1] + bytecode[i * 2 + 2]);
writeprocessmemory(hProcess, ptr(Addres + i), @buf, 1, bytecount);
end;
end;




procedure TForm1.Button1Click(Sender: TObject);
var
H: hwnd;
HandleProc, i, Pid: integer;
rw: dword;
adress: integer;
begin
i := 1;
adress := $00420206;
H := FindWindow(nil, 'Perfect World');
If H = 0 then
begin
MessageDlg('!', mtwarning, [mbOK], 0);
exit;
end
else
begin
GetWindowThreadProcessId(H, @Pid);
HandleProc := OpenProcess(PROCESS_ALL_ACCESS, False, Pid);
MemoryPatch(HandleProc, adress, '909090909090');
writeprocessmemory(HandleProc, ptr($00420206), @i, sizeof(i), rw);
end;

end.


Интересует выделенное красным шрифтом.
Забыл добавить, код unfreeze

[Dinmaite]

Цитата: Сообщение от xOmGLoLx Интересует выделенное красным шрифтом.

Отличный вопрос как таковой. Интерисует что это такое или как найти этот адрес под другой клиент?

[xOmGLoLx]

Цитата: Сообщение от Dinmaite Отличный вопрос как таковой. Интерисует что это такое или как найти этот адрес под другой клиент?

И то, и другое

[Dinmaite]

Цитата: Сообщение от xOmGLoLx И то, и другое

Тогда ответ прост. Это патчер памяти. Патчит какой-то longjump в nop'ы (вероятно). Что конкретно можно узнать только проверив. Найти этот адрес под другой клиент можно только зная что он патчит в этом.

[ToRcH2565]

Цитата: Сообщение от Dinmaite[Work] Не родитель, а владелец (хозяин) называй вещи своими именами.

[Ссылки могут видеть только зарегистрированные пользователи. ]
Прошу, своими именами(паскали).

как пример, автокомплит XE2
Могу даже больше сказать, можно не являтся влядельцем обьекта но быть его родителем(и наоборот быть родителем но не быть владельцем), по крайней мере такое возможно на win xp.

Цитата: Сообщение от Dinmaite[Work] К чему логические рассуждения? Кодом покажи.

Лень искать свои старые исходники, любой пример Яна Хорна по OpenGL взять и послать ему кнопки, окно там есть, но суть не изменится если выпилить окно(проверял когда баловался OpenGL) взять например тут sulaco.co.za.