|
исходник для бота - Общение разработчиков - Программирование для Perfect World, общение и обсуждене разработок |
03.12.2011, 19:33
|
#166
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: исходник для бота
VeTaL_UA, можешь тогда "доделать" мой код, а то я с масивами незнаком пока что)
|
|
|
03.12.2011, 19:43
|
#167
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: исходник для бота
Код:
var
WID2,R2:Array[0..768] of integer;
...
for J:=0 to 5 Do
begin
for I:=0 to $300 DO
begin
ReadProcessMemory(hProcess, ptr(BA), @Temp, sizeof(Temp), BytesCount);
ReadProcessMemory(hProcess, ptr(Temp+$1C), @MobsTemp, sizeof(Temp), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+$1c), @MobsTemp, sizeof(MobsTemp), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+$24), @MobsTemp, sizeof(MobsTemp), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+$18), @MobsTemp, sizeof(MobsTemp), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+I*4), @MobsTemp, sizeof(MobsTemp), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+$4), @MobsTemp, sizeof(MobsTemp), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+$278),@MobR, sizeof(MobR), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+$11c), @MobWId, sizeof(MobWId), BytesCount);
if (mobR<R) and (mobR>4207283) then
R2[i]:=mobR;
WID2[i]:=MobWid;
end;
end;
WID1:=IntToHex(WID2[0],1);
edit1.Text:=WID1[7]+WID1[8]+WID1[5]+WID1[6]+WID1[3]+WID1[4]+WID1[1]+WID1[2];
Packet:='0200'+edit1.Text;
StrToByte(Packet,aParams);
InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aParams));
CloseHandle(hProcess);
end;
Ну как с массива тянуть по очереди я думаю ты разберёшься...
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
03.12.2011, 19:52
|
#168
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: исходник для бота
|
|
|
03.12.2011, 20:03
|
#169
|
|
|
|
Разведчик
|
Регистрация: 07.02.2011
Сообщений: 38
Популярность: 143
Сказал(а) спасибо: 5
Поблагодарили 20 раз(а) в 11 сообщениях
|
Re: исходник для бота
|
|
|
03.12.2011, 20:06
|
#170
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: исходник для бота
|
|
|
03.12.2011, 20:07
|
#171
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: исходник для бота
Ну чтобы вытянуть первый элемент массива нужно делать так:
Код:
var
i:integer;
i1:array[0..10] of integer;
begin
i:=i1[0];
end;
Что бы вытащить второй нужно:
Код:
var
i:integer;
i1:array[0..10] of integer;
begin
i:=i1[1];
end;
Ну и дальше по аналогии...
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
Пользователь сказал cпасибо:
|
|
03.12.2011, 20:12
|
#172
|
|
|
|
Разведчик
|
Регистрация: 07.02.2011
Сообщений: 38
Популярность: 143
Сказал(а) спасибо: 5
Поблагодарили 20 раз(а) в 11 сообщениях
|
Re: исходник для бота
во первых, какого .... простите слов нет у тя расстояние в integer?! ))) в single получать надо )) я, конечно, согласен, что разницы боту никакой, но так хоть примерно будет понятно, что из этого расстояния, а что получается фиг знает откуда ))
во вторых, чему у тя R равно изначально? ))
|
Цитата: |
|
|
|
|
|
|
|
|
|
if (mobR<R) and (mobR>4207283)
|
|
|
|
|
|
а если R не равно ничему, то как будет выполняться условие??!!
Код:
r:=0
if (r=0) or (mobR<R) then
begin
r:=MobR
Wid:=MobWid
end;
как то так попробуй )
|
|
|
Пользователь сказал cпасибо:
|
|
03.12.2011, 20:26
|
#173
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: исходник для бота
|
Цитата: |
|
|
|
|
|
|
|
|
|
как то так попробуй )
|
|
|
|
|
|
спасибо заработало) только я непонимаю откуда взялось 4207283 и почему оно сейчас не мешается)
P.s. поставил обоим по спасибки) заслужили)
всё разобрался благодaря HellD это был WID пета..(
Последний раз редактировалось Skuka.95; 03.12.2011 в 20:36.
|
|
|
28.01.2012, 02:43
|
#174
|
|
|
|
Разведчик
|
Регистрация: 04.09.2010
Сообщений: 20
Популярность: 10
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: исходник для бота
ребят, помогите плиз, - координату z почему-то читает как отрицательное число. -80 или -79
Код:
loc_x, loc_y, loc_z : Single;
......
ReadProcessMemory(hProcess, ptr(d2+$120), @mID, sizeof(mID), rw);
ReadProcessMemory(hProcess, ptr(d2+$3c), @loc_x, sizeof(loc_x), rw);
ReadProcessMemory(hProcess, ptr(d2+$40), @loc_y, sizeof(loc_y), rw);
ReadProcessMemory(hProcess, ptr(d2 + $44), @loc_z, sizeof(loc_z), rw);
Form1.Label11.Caption := FloatToStr(loc_z / 10);
x , y при этом выводятся правильные. моб наземный.
нашел ошибку. читал в теме, но не понял в чём суть была.
Код:
ReadProcessMemory(hProcess, ptr(base_add), @Key, sizeof(Key), rw);
ReadProcessMemory(hProcess, ptr(Key+$1C), @Key, sizeof(Key), rw);
ReadProcessMemory(hProcess, ptr(Key+$34), @Key, sizeof(Key), rw);
ReadProcessMemory(hProcess, ptr(Key+$3c), @pos_x, sizeof(pos_x), rw);
ReadProcessMemory(hProcess, ptr(Key+$40), @pos_y, sizeof(pos_y), rw);
ReadProcessMemory(hProcess, ptr(Key+$44), @pos_z, sizeof(pos_z), rw);
Label9.Caption := FloatToStr(pos_x / 10 + 400);
Label10.Caption := FloatToStr(pos_y / 10); // высота
Label11.Caption := FloatToStr(pos_z / 10 + 550);
Последний раз редактировалось yeyebvz; 28.01.2012 в 03:13.
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Подсказка] Исходник Бота в тюряге
|
lolopo123 |
Pascal/Delphi |
8 |
02.06.2012 20:26 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 09:11.
|
|