Ваш ключ: необходима авторизация | MyProxy - бесплатный обменник валидных прокси между пользователями форума.

Прокачка скиллов GTA SAMP

Тема в разделе Delphi, создана пользователем Search, 23 июн 2016.

Войдите для ответа
  1. Search Заблокирован

    Search
    Статус:
    Вне сети
    Сообщения:
    151
    Симпатии:
    11
    Регистрация:
    22.06.16
    На форму кидаем 2 таймера с вкладки System

    Для Timer1:
    Код:
    if getkeystate(114) <> 0 then // если нажата клавиша F3, то 
    timer2.enabled:=true; // включаем таймер2 
    if getkeystate(115) <> 0 then // если нажата клавиша F4, то 
    timer2.enabled:=false; // выключаем таймер2


    Для Timer2:
    Код:
    var 
    h: hwnd; 
    begin 
    h:= Findwindow(nil,'GTA:SA:MP'); // ищем хэндл окна 
    sleep(500); // ожидание 500 миллисекунд 
    SendMessage(h, wm_keydown, ord('C'), 0); // нажимаем клавишу "C", то есть приседаем 
    sleep(1000); 
    Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0,0,0,0); // нажимаем левую кнопку мыши, то есть стреляем 
    sleep(100); 
    Mouse_Event(MOUSEEVENTF_LEFTup, 0,0,0,0); // отпускаем левую кнопку мыши
     
    23 июн 2016 #1
Top