• Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » Delphi Программирование » [Delphi] Пишем ГМ от пуль для gta sa. (В теме)
[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.
Прикрепления: 1307676.png(65.2 Kb)


Delphi программирование
[Delphi]Узнаем координаты перса
BunnyHop для Steam/Non steam
_Marcel_Дата: Суббота, 10.05.2014, 15:23 | Сообщение # 4
Боец
Сообщений: 88
Статус: Offline
Тоже скопировал и вставил. Delphi XE3
Прикрепления: 5194175.png(132.8 Kb)
_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
Боец
Сообщений: 139
Статус: Offline
Спасибо бро

dvorzhakДата: Воскресенье, 14.08.2016, 23:04 | Сообщение # 9
Боец
Сообщений: 140
Статус: Offline
куда все это добро писать то?
MewexДата: Суббота, 21.01.2017, 17:17 | Сообщение # 10
STEAM SELLER
Сообщений: 492
Статус: 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
Любитель
Сообщений: 40
Статус: Offline
Годно
O_P_T_O_MДата: Суббота, 11.08.2018, 20:47 | Сообщение # 13
Новичок
Сообщений: 22
Статус: Offline
Как программировать на этом языке? Где купить курсы
БадмаДата: Четверг, 29.11.2018, 13:46 | Сообщение # 14
Любитель
Сообщений: 40
Статус: Offline
У вас не работает скорее всего из-за того, end нету. Компилятор ищет конец кода, а его нет и поэтому выдает ошибку

Бадмич
kindzaza_rusДата: Понедельник, 04.03.2019, 15:43 | Сообщение # 15
Любитель
Сообщений: 40
Статус: Offline
Ох, щас уже гм пишут на Delphi.Урок неплохой
Форум » Программирование » Delphi Программирование » [Delphi] Пишем ГМ от пуль для gta sa. (В теме)
  • Страница 1 из 1
  • 1
Поиск:
Место баннерной рекламы свободно
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
[LUA] Fish-Bot 2.4 Crack...

Куплю вирты на сервере R...

⭐Виртуальные Деньги SA:...

[Lua]AutoHouse

невалид koleso_1337

[ARZ] RakBot | Сбор...

Продажа лидерки на аризо...

ПРОДАМ СТИМ CS GO + GTA ...

Админка 5 lvl Аризона.

✅✅СКУПАЮ/ПРОДАЮ ЛИДЕРКИ/...

✅САМЫЕ ДОСТУПНЫЕ ВИРТЫ✅A...

[2094249] CM_Xrom, Невал...

Курилка [10000]

[0.3z][RUS] S0beit mo... [9997]

Поиск CLEO скриптов &... [9985]

Флудильная [9936]

Курилка [9688]

RakBot - Качай аккаун... [9641]

Курилка [9614]

Общение читеров [CM] [9546]

S0beit - pr9n project... [9500]

Часто задаваемые вопр... [8245]

ПОКУПАЮ/ПРОДАЮ ♚SAMP♚... [6344]

[0.3.7][RUS] Sobeit m... [6245]

[FREE] AntiAFK_R 3.4.... [6220]

АК_47 [34768]

GеNius [7159]

[CM]Russel [5566]

romka619 [5008]

[CM]AGRESSOR [4644]

Snake_Firm [4465]

Сэс [4411]

Artem_Buero [4230]

[CM]Durman [3158]

[CM]Рафаэль [3008]

iMaddy [2857]

sky_Woker [2856]

-Masson- [2713]

ohjghjhggjh [01:36]

smm-route [01:28]

mi658 [01:25]

surik_danek [01:17]

gryzlovmaksim [01:15]

AlexJey12 [01:12]

kapralmichael [01:00]

Egor4ik_Vissel [00:44]

Superior123654 [00:25]

Neki4_2000 [00:23]

Andreu12313awdszasadad [00:22]

Loveto [00:15]

redj [00:15]


CM Team © 2009-2019 Администрация не несёт ответственности за размещённые материалы. Условия пользования
Все материалы предоставлены в ознакомительных целях и администрация предлагает удалить их после ознакомления.

Положение о защите персональных данных на сайте, Пользовательское соглашение, Договор оказания услуг.