[Delphi] Пишем ГМ от пуль для gta sa. - Форум Cheat-Master.ru

Скидка на продавца! Успей!
  • Страница 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
Боец
Группа: Заблокированные
Сообщений: 140
Статус: Offline
Спасибо бро

Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
dvorzhakДата: Воскресенье, 14.08.2016, 23:04 | Сообщение # 9
Боец
Группа: Пользователи
Сообщений: 140
Статус: Offline
куда все это добро писать то?
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
MewexДата: Суббота, 21.01.2017, 17:17 | Сообщение # 10
STEAM SELLER
Группа: Заблокированные
Сообщений: 504
Статус: 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
Новичок
Группа: Пользователи
Сообщений: 23
Статус: Offline
Годно
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
Форум » Программирование » Delphi Программирование » [Delphi] Пишем ГМ от пуль для gta sa. (В теме)
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
№ 1958701 Один_Из_Leone T... [АК_47]

1958825 Egorka7322 Невали... [АК_47]

1958612 Egorka7322 Откат ... [АК_47]

"[1958667] [CM]Madix... [АК_47]

Bance111 1957679 невалид [АК_47]

CM_Xrom Продал не валидны... [АК_47]

[1958603] CM_Xrom неправ... [АК_47]

[1956333] Rollcase, Невал... [АК_47]

Не валид товар и повторны... [АК_47]

Откат [АК_47]

[CLEO] Autopilot | А... [_CM_PROXY__]

[1958624] windranger1337,... [АК_47]

[1]>[0.3z][RUS] S0beit modified by MishaN [10001]

[2]>Курилка [10000]

[3]>Поиск CLEO скриптов | Вопросы по клео скриптам [9988]

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

[5]>Курилка [9688]

[6]>Курилка [9614]

[7]>RakBot - Качай аккаунты не напрягаясь! [9609]

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

[9]>S0beit - pr9n project for samp 0.3.7 [9493]

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

[11]>Скуплю Advance по 300р за 1кк и DIamond по 250р [7624]

[12]>[0.3.7][RUS] Sobeit modified by MishaN [6241]

[1]>АК_47 [31938]

[2]>GеNius [7087]

[3]>[CM]Russel [5528]

[4]>romka619 [5000]

[5]>[CM]AGRESSOR [4643]

[6]>Сэс [4405]

[7]>Snake_Firm [4346]

[8]>Artem_Buero [4191]

[9]>[CM]Durman [3132]

[10]>sky_Woker [2856]

[11]>iMaddy [2856]

[12]>[CM]Рафаэль [2757]

[13]>Sa1nteD [2677]

[14]>Ch0c0Cube [2446]

[15]>lanixchannel [2280]

zynzyn14 [19.07.2018|02:38]

pomoique [18.07.2018|23:58]

KatilovSanek [18.07.2018|23:42]

Shoonya [18.07.2018|23:42]

stp_nF [18.07.2018|23:38]

dushamishkin [18.07.2018|23:33]

Mad_Bad [18.07.2018|23:16]

TOOTOOT [18.07.2018|23:16]

whereareyo2k [18.07.2018|23:09]

Bot_Moderator [18.07.2018|23:04]

forever1322 [18.07.2018|23:03]

savex314 [18.07.2018|22:55]

fiMa02 [18.07.2018|22:52]

kirillshutoff2228112fdfds [18.07.2018|22:51]

Stepan22222 [18.07.2018|22:47]


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

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