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

ГМ от пуль для GTA SAMP

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

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

    Search
    Статус:
    Вне сети
    Сообщения:
    151
    Симпатии:
    11
    Регистрация:
    22.06.16
    Код на Button, но лучше на таймер с интервалом 1000.

    Код:
    var
    v:HWnd;
    gm: Byte;
    ProcessId, hProcess: Integer;
    BC : dword;
    begin
    v:=FindWindow(nil, PChar('GTA:SA:MP')); // ищем handle окна
    gm:=1; // значение 1 включен, значение 0 выключен. В байтах
    GetWindowThreadProcessId(v,@ProcessId); // ищем pid окна
    hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); // получаем хэндл процесса
    WriteProcessMemory(hProcess, ptr($0096918C), @gm, 1, BC); // адрес отвечающий за чит статус
    WriteProcessMemory(hProcess, ptr($0096916D), @gm, 1, BC); // сам ГМ
     
    23 июн 2016 #1
Загрузка...
Top