[Помогите!] Нажатие клавиш...в PB(point blank)

[-=ShoN=-]

Нужно в пб нажать на ф13, ее на клаве нету...писал сам...не получилось....
кто может сообразить?
в лс...или тут можно...
с меня спасибка..)

[VeTaL_UA]

PostMessage не работает?

[-=ShoN=-]

Цитата: Сообщение от VeTaL_UA PostMessage не работает?

не пробывал..)
ща затестим..

Добавлено через 21 минуту

procedure TForm3.Button1Click(Sender: TObject);
var H: Hwnd;
s: Char;
begin
   H:= FindWindow(nil, PChar('Point Blank'));
   sendMessage(h, WM_KeyDown , 57, 0);
   sendMessage(h, WM_KeyUp , 57, 0);

end;

пробывал не на ф13, а просто пройтись вперед(w), не катит, ни сенд, ни пост...

[VeTaL_UA]

ммм... Кривовато пробовал

procedure TForm3.Button1Click(Sender: TObject);
var
H:Hwnd;
s:Char;
begin
H:=FindWindow(nil,PChar('Point Blank'));
 if H=0 then  //проверка обязательна ;)
  begin
  ShowMessage('Криво ищешь');
  end
 else
  begin
  SendMessage(H,WM_KeyDown,57,0);
  Sleep(1000);  //На всякий случай :)
  SendMessage(H,WM_KeyUp ,57,0);
  end;
end;

[-=ShoN=-]

Цитата: Сообщение от VeTaL_UA ммм... Кривовато пробовал procedure TForm3.Button1Click(Sender: TObject); var H:Hwnd; s:Char; begin H:=FindWindow(nil,PChar('Point Blank')); if H=0 then //проверка обязательна ;) begin ShowMessage('Криво ищешь'); end else begin SendMessage(H,WM_KeyDown,57,0); Sleep(1000); //На всякий случай :) SendMessage(H,WM_KeyUp ,57,0); end; end;

не катит))не жмется все-равно...

[VeTaL_UA]

Цитата: Сообщение от -=ShoN=- не катит))не жмется все-равно...

Защита на игре есть какая-нибудь?

[-=ShoN=-]

Цитата: Сообщение от VeTaL_UA Защита на игре есть какая-нибудь?

Frost

[VeTaL_UA]

Цитата: Сообщение от -=ShoN=- Frost

Делай обход фроста и будет тебе счастье

[-=ShoN=-]

Цитата: Сообщение от VeTaL_UA Делай обход фроста и будет тебе счастье