|
Написание программы на Delphi 7 - Общение разработчиков - Программирование для Perfect World, общение и обсуждене разработок |
10.12.2011, 20:39
|
#31
|
|
|
|
Разведчик
|
Регистрация: 25.03.2010
Сообщений: 6
Популярность: 16
Сказал(а) спасибо: 0
Поблагодарили 3 раз(а) в 2 сообщениях
|
Re: Написание программы на Delphi 7
Skuka.95, просто то что у меня ты говоришь кода больше, это не так, всё находится в дополнительном модуле, и из основного я вызываю:
вот частичка
Код:
function FoundNPC(NameNPC: string): TNPC; overload;
function FoundNPC(wid: dword): TNPC; overload;
procedure Repair;
procedure Sell(id: DWORD; inv_loot_count, i: integer);
procedure Buy(id: DWORD; Count,PosInNcp: integer);
нужно выделить нпц?
FoundNPC('Имя нпц')
и код сводится до минимума
|
|
|
10.12.2011, 20:56
|
#32
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: Написание программы на Delphi 7
|
|
|
10.12.2011, 20:59
|
#33
|
|
|
|
Разведчик
|
Регистрация: 25.03.2010
Сообщений: 6
Популярность: 16
Сказал(а) спасибо: 0
Поблагодарили 3 раз(а) в 2 сообщениях
|
Re: Написание программы на Delphi 7
|
|
|
10.12.2011, 21:07
|
#34
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: Написание программы на Delphi 7
|
|
|
11.12.2011, 08:14
|
#35
|
|
|
|
Разведчик
|
Регистрация: 09.11.2011
Сообщений: 0
Популярность: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Написание программы на Delphi 7
|
|
|
11.12.2011, 14:21
|
#36
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: Написание программы на Delphi 7
|
|
|
11.12.2011, 22:06
|
#37
|
|
|
|
Сержант
|
Регистрация: 12.09.2010
Сообщений: 165
Популярность: 375
Сказал(а) спасибо: 70
Поблагодарили 39 раз(а) в 25 сообщениях
|
Re: Написание программы на Delphi 7
Последний раз редактировалось lcd1232; 11.12.2011 в 22:33.
|
|
|
11.12.2011, 22:42
|
#38
|
|
|
|
Разведчик
|
Регистрация: 15.06.2010
Сообщений: 48
Популярность: 20
Сказал(а) спасибо: 4
Поблагодарили 5 раз(а) в 5 сообщениях
|
Re: Написание программы на Delphi 7
нука секите пасаны... прально замутил?
это посмотреть на ид клана своего персонажа проверка
Код:
const
ba=$B280C4;
var
wh:THandle;
hProcess,PID,ufo,BytesCount,cid:dword;
begin
wh:=findwindow('elementclient window',nil);
GetWindowThreadProcessId(wh, @PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
try
ReadProcessMemory(hProcess,ptr(ba),@ufo,4,BytesCount);
ReadProcessMemory(hProcess,ptr(ufo+$34),@ufo,4,BytesCount);
ReadProcessMemory(hProcess,ptr(ufo+$604),@cid,4,BytesCount);
if hProcess<>0 then
Label1.Caption:='подключено'
else
Label1.Caption:='игра не найдена';
if hProcess<>0 then
Label5.Caption:=IntToStr(cid);
finally
closehandle(hProcess);
end;
end;
end.
циферки показывает разные в лэйбле в зависимости от клана
а как теперь замутить чтоб ид клана таргета показывало?
Последний раз редактировалось Sirioga; 12.12.2011 в 03:36.
|
|
|
12.12.2011, 08:48
|
#39
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: Написание программы на Delphi 7
|
|
|
12.12.2011, 09:39
|
#40
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Написание программы на Delphi 7
|
Цитата: |
|
|
|
|
|
|
У роки от Владимира Любаева лучшие во всём интернете. Человек, не знающий ничего про программирование, может за две недели научится основам программирования.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: 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.
|
|
|
12.12.2011, 11:26
|
#41
|
|
|
|
Старший сержант
|
Регистрация: 12.06.2010
Сообщений: 186
Популярность: 1746
Сказал(а) спасибо: 27
Поблагодарили 64 раз(а) в 59 сообщениях
|
Re: Написание программы на Delphi 7
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 00:47.
|
|