[Gareth]

Здравствуйте!

В познавательных целях, хочу сделать программку, анти-отдачу для шутеров. Что бы во время стрельбы, прицел опускался вниз.

Я в принципе это сделал, но не так как мне хотелось.
В таймере

Код:

if GetAsyncKeyState(VK_LBUTTON)<>0 then
 begin
    mouse_event(MOUSEEVENTF_MOVE, 0, pics, 0, 0);
 end;

При этом во всей системе курсор движется вниз, во время лкм.

Подскажите как можно передать движение мыши в окно игры?
Допустим игра counter-strike..

Код:

okno: HWND;
 
okno:=FindWindow(nil,'Counter-Strike');  
SendMessage(okno ....................... и вот тут у меня проблемы...)

Пробовал MOUSEEVENTF_MOVE - не передает движения в окно кс
Поделитесь опытом) что можно использовать на подобии MOUSEEVENTF_MOVE, что бы двигать курсором в окне?

[angvelem]

Код:

okno:=FindWindow(nil,'Counter-Strike');

Окно может называться не так. Проверь в отладчике переменную okno. Скорее всего она равна 0.

[Gareth]

Сообщение от 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..... ) - тоже не помогло..
Как передать окну движение мышью ?

[angvelem]

Для начала, нужно убедиться, что окно найдено. Поставьте курсор на строку 4 (первого кода), и нажмите F4. Теперь подведя мышку к слову okno, можно увидеть значение переменной.