Визуальное нажатие клавиши в свёрнутом окне

Скажите пожалуйста как сделать визуальное нажатие клавиши, то-есть я захожу в игру у меня это Warface и процесс Game.exe надо чтобы если я свернул игру у меня там все равно нажималась клавиша к примеру VK_F9.На сколько я понял надо ставить это на таймер. А какой код незнаю. подскажите
14 ответов

можно попробовать так
v:=FindWindow(nil,'WarFace');
if v>0 Then Begin
  SendMessage(v,WM_KEYDOWN,VK_F9,0);
  SendMessage(v,WM_KEYUP,VK_F9,0);
end;


можно попробовать так
v:=FindWindow(nil,'WarFace');
if v>0 Then Begin
  SendMessage(v,WM_KEYDOWN,VK_F9,0);
  SendMessage(v,WM_KEYUP,VK_F9,0);
end;
А что в var добавить? var v:integer;Не работает...Тоесть мне нужно сделать AFK бот. Чтобы если ты отошел тебя не кикнуло за АФК


v:hwnd; но чтобы это сработало в findwindow нужно вписать вместо warface правильный заголовок окна игры.


v:hwnd; но чтобы это сработало в findwindow нужно вписать вместо warface правильный заголовок окна игры.
procedure TForm1.tmr1Timer(Sender: TObject);
var
  v:hwnd;
begin
v:=FindWindow(nil,'Warface');
if v>0 Then Begin
  SendMessage(v,WM_KEYDOWN,VK_F12,0);
  SendMessage(v,WM_KEYUP,VK_F12,0);
end;
end;
Не получается. Ставлю на таймер с интервалом 10000 не работатеВО СКРИН!!!


значит заголовок окна этой игры не warface. Вроде бы можно найти нужное окно через enumwindows но сам не пробовал и поэтому помочь не смогу. Еще можно v перенести в глобальные переменные, первый раз по таймеру в v занести hwnd активного окна if v=0 then v:=getforegroundwindow; Трудность в том, что на момент вызова этой вункции игра должна быть запущена и развернута


значит заголовок окна этой игры не warface. Вроде бы можно найти нужное окно через enumwindows но сам не пробовал и поэтому помочь не смогу. Еще можно v перенести в глобальные переменные, первый раз по таймеру в v занести hwnd активного окна if v=0 then v:=getforegroundwindow; Трудность в том, что на момент вызова этой вункции игра должна быть запущена и развернута
Блин... мне антиафк надо сделать помоги... Вот скайп freezon98


Вот скачай программу, ищет все окна в системе: wiew190b.zip запусти - игра должна быть запущена, затем пункт file -> save tree И выложи этот файл сюда. ЗЫ если будет просить регистрацию, нажми нет.


Скачать с RGHOST, выложил туда так как сюда не выкладывается пишет привышает допустимый вес...
Вот скачай программу, ищет все окна в системе: Вложение 349080 запусти - игра должна быть запущена, затем пункт file -> save tree И выложи этот файл сюда. ЗЫ если будет просить регистрацию, нажми нет.
Скачать с RGHOST, выложил туда так как сюда не выкладывается пишет привышает допустимый вес...


Вот такой код в кнопку - и напиши что выдало:
var
  h: HWND;
begin
h:=FindWindow('CryENGINE', nil);
ShowMessage (IntToStr(h));
end;


525714


Ну вот если окно не найдено = 0, если найдено, то не нулю: Вот такой код пробуем:
var
  h: HWND;
begin
h:=FindWindow('CryENGINE', nil);
if h>0 Then Begin
  SendMessage(h,WM_KEYDOWN,VK_F12,0);
  SendMessage(h,WM_KEYUP,VK_F12,0);
end;
end;
Правильность команды sendmessage не гарантирую


Ну вот если окно не найдено = 0, если найдено, то не нулю: Вот такой код пробуем:
var
  h: HWND;
begin
h:=FindWindow('CryENGINE', nil);
if h>0 Then Begin
  SendMessage(h,WM_KEYDOWN,VK_F12,0);
  SendMessage(h,WM_KEYUP,VK_F12,0);
end;
end;
Правильность команды sendmessage не гарантирую
Неа дим не робит. Если бы работал он делал бы скрины. Так как F12 скри делает


еа дим не робит. Если бы работал он делал бы скрины. Так как F12 скри делает
да нет printscreen делает скриншоты) Сейчас если времени хватит поищу, Новый год как-бэ)


да нет printscreen делает скриншоты) Сейчас если времени хватит поищу, Новый год как-бэ)
Ну и че все? Что за тих то? Помоги уж раз начал плиилиз