Цитата:
|
Сообщение от angvelem
Код:
okno:=FindWindow(nil,'Counter-Strike');
Окно может называться не так. Проверь в отладчике переменную okno. Скорее всего она равна 0. |
Не, проверял, окно называется именно так. Проверил с помощью найденного в инете кода
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
okno: HWND;
begin
okno:=FindWindow(nil,'Counter-Strike'); \\ Ищет окно кс
if GetAsyncKeyState(VK_SPACE) <> 0 then \\ если нажат пробел тогда
begin
SendMessage(okno,WM_KEYDOWN ,VK_SPACE, MakeLong(0, MapVirtualKey(VK_SPACE, 0))); \\ эмулируется нажатие пробела
sleep(20);
SendMessage(okno,WM_KEYUP ,VK_SPACE, MakeLong(0, MapVirtualKey(VK_SPACE, 0))); \\ эмулируется отпускание пробела
sleep (1);
end;
end;
Всё работает, при нажатии на пробел, постоянно прыгаю, пока не отпущу пробел.
Мне нужно узнать, как двигать курсор в самой игре. Ну так сказать, засунуть
"mouse_event(MOUSEEVENTF_MOVE, 0, pics, 0, 0);
" в Sendmessage. Я пробовал писать
Код:
SendMessage(okno, mouse_event ....... ) Но это не правильно.. Прога не компилируется, выдается ошибка
еще пробовал Sendmessage(okno, mouse_move..... ) - тоже не помогло..
Как передать окну движение мышью ?