|
[Delphi] Пишем ГМ от пуль для gta sa.
|
|
| Nikemmi |
Дата: Воскресенье, 04.05.2014, 11:30 | Сообщение # 1
|
Хороший))0
Сообщений: 475
Статус: Offline
|
Давайте короче напишем godmode от пуль. Кинем код на 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); // сам ГМ
Вот такой простенький код
На серверах не кикает
Delphi программирование
[Delphi]Узнаем координаты перса
BunnyHop для Steam/Non steam
 
Сообщение отредактировал Nikemmi - Воскресенье, 04.05.2014, 11:31 |
|
|
|
|
| _Marcel_ |
Дата: Пятница, 09.05.2014, 21:51 | Сообщение # 2
|
Боец
Сообщений: 88
Статус: Offline
|
Цитата Nikemmi (  ) WriteProcessMemory(hProcess, ptr($0096918C), @gm, 1, BC); // адрес отвечающий за чит статус
WriteProcessMemory(hProcess, ptr($0096916D), @gm, 1, BC); // сам ГМ
Вот на эти строки выдает ошибку ;c
|
|
|
|
|
| Nikemmi |
Дата: Суббота, 10.05.2014, 10:01 | Сообщение # 3
|
Хороший))0
Сообщений: 475
Статус: Offline
|
Цитата _Marcel_ ( ) Вот на эти строки выдает ошибку ;c
Скопировал/вставил ничего не выдает. Все работает.Delphi 7.
Delphi программирование
[Delphi]Узнаем координаты перса
BunnyHop для Steam/Non steam
|
|
|
|
|
| _Marcel_ |
Дата: Суббота, 10.05.2014, 15:23 | Сообщение # 4
|
Боец
Сообщений: 88
Статус: Offline
|
Тоже скопировал и вставил. Delphi XE3
|
|
|
|
|
| _Marcel_ |
Дата: Суббота, 10.05.2014, 15:24 | Сообщение # 5
|
Боец
Сообщений: 88
Статус: Offline
|
dell
Сообщение отредактировал _Marcel_ - Суббота, 10.05.2014, 15:30 |
|
|
|
|
| Nikemmi |
Дата: Суббота, 10.05.2014, 18:36 | Сообщение # 6
|
Хороший))0
Сообщений: 475
Статус: Offline
|
Функция WriteProcessMemory в xe3 выглядит иначе
Delphi программирование
[Delphi]Узнаем координаты перса
BunnyHop для Steam/Non steam
|
|
|
|
|
| -CHUCK- |
Дата: Воскресенье, 15.02.2015, 20:57 | Сообщение # 7
|
Новичок
Сообщений: 4
Статус: Offline
|
Nikemmi, привет раз есть адрес на один иммунитет и на остальные 4 есть дай есле не сложно Добавлено (15.02.2015, 20:57)
---------------------------------------------
Nikemmi, привет скомпелировал норм работает можно ли какнибудь настроить прозрачность окна приложения
|
|
|
|
|
| Surex |
Дата: Суббота, 02.07.2016, 14:09 | Сообщение # 8
|
Боец
Сообщений: 137
Статус: Offline
|
Спасибо бро
  
|
|
|
|
|
| dvorzhak |
Дата: Воскресенье, 14.08.2016, 23:04 | Сообщение # 9
|
Боец
Сообщений: 136
Статус: Offline
|
куда все это добро писать то?
|
|
|
|
|
| Mewex |
Дата: Суббота, 21.01.2017, 17:17 | Сообщение # 10
|
STEAM SELLER
Сообщений: 475
Статус: Offline
|
dvorzhak, Когда програмируешь в делфи, поищи уроки на ютуюе.
|
|
|
|
|
| amhad321 |
Дата: Пятница, 05.01.2018, 19:03 | Сообщение # 11
|
Новичок
Сообщений: 4
Статус: Offline
|
Если ТС жив то скажи пожалуйста где ты нашел значения $0096918C и $0096916D
Тоесть этот код меняет одно значение на другое ?
------------------------------------------------------------------------------------------------------------------------------------------------------
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); // сам ГМ
------------------------------------------------------------------------------------------------------------------------------------------------------
я тоже хочу создать чит на одну новую онлайн игру.Хочу там тоже сделать подобное но как эти не изменяющиеся значения при перезапуске находить не умею помогите плез
12345
|
|
|
|
|
| kindzaza_rus |
Дата: Пятница, 29.06.2018, 22:46 | Сообщение # 12
|
Боец
Сообщений: 53
Статус: Offline
|
Годно
|
|
|
|
|
| O_P_T_O_M |
Дата: Суббота, 11.08.2018, 20:47 | Сообщение # 13
|
Новичок
Сообщений: 22
Статус: Offline
|
Как программировать на этом языке? Где купить курсы
|
|
|
|
|
| Бадма |
Дата: Четверг, 29.11.2018, 13:46 | Сообщение # 14
|
Боец
Сообщений: 53
Статус: Offline
|
У вас не работает скорее всего из-за того, end нету. Компилятор ищет конец кода, а его нет и поэтому выдает ошибку
|
|
|
|
|
| kindzaza_rus |
Дата: Понедельник, 04.03.2019, 15:43 | Сообщение # 15
|
Боец
Сообщений: 53
Статус: Offline
|
Ох, щас уже гм пишут на Delphi.Урок неплохой
|
|
|
|
|
