[Помогите!] Написание программы на Delphi 7

[Fr[0]ST]

Появилась мысль написать маленькую программу для PW,выбрал Delphi как более распространенную среди ботоводов.До этого имел дело только с PHP Devel Studio, и то в написание фейков. Скачал Delphi 7 поковырялся,выполнил несколько уроков каторые нашел мне гугл , но посчитал это малым.

В чем возникает вопрос:

1.Какие учебники лучше всего подойдут для данной задачи?
2.Как найти офсеты которые отвечают за хп,мп,координаты и т.п

P.S: Огромная просьба в не флудить и отвечать по теме

["Unix]

Цитата: Сообщение от Fr[0]ST 2.Как найти переменные которые отвечают за хп,мп,координаты и т.п

а я думал за это отвечают офсеты

[jkpro550]

Цитата: Сообщение от Desrpado а я думал за это отвечают офсеты

А я думал офсеты это пути к переменным в памяти процесса

[Fr[0]ST]

Desrpado, jkpro550,
Суть все ровно вы поняли,так что прошу не флудить.

[Moder Death]

http://zhyk.ru/forum/showthread.php?t=160965 - качай "пва2сорс" найдешь там хп мп персонажа
а на последней странице я написал оф-ы для генезиса

остальное тут (для руоффа Генезис) --> http://zhyk.ru/forum/showthread.php?t=287321

книжек посоветовать не могу.. лучше лазь по сайтам и форумам Делфи
лазь по Жуку.. читай темы от корки до корки.. здесь есть немного интересных исходников
если конешно мозг не расплавится все читать... много тролей в последнее время развелось тут

[Fr[0]ST]

Цитата: Сообщение от Moder Death http://zhyk.ru/forum/showthread.php?t=160965 - качай "пва2сорс" найдешь там хп мп персонажа а на последней странице я написал оф-ы для генезиса остальное тут (для руоффа Генезис) --> http://zhyk.ru/forum/showthread.php?t=287321 книжек посоветовать не могу.. лучше лазь по сайтам и форумам Делфи лазь по Жуку.. читай темы от корки до корки.. здесь есть немного интересных исходников если конешно мозг не расплавится все читать... много тролей в последнее время развелось тут

Наконец то ответил адекватный человек.
Спасибо, последую вашему совету.

[Moder Death]

просто я сам щас Делфи изучаю...
пишу программку для клана
инфораздел - с сылками на интересные сайты по ПВ.. ссылки на сайты варкланов, альянсов и т.д. всякие гайды
и читраздел.. автопот. волволкер. радар.

вот с радаром застрял.. не получается пока.

[Fr[0]ST]

Цитата: Сообщение от Moder Death просто я сам щас Делфи изучаю... пишу программку для клана инфораздел - с сылками на интересные сайты по ПВ.. ссылки на сайты варкланов, альянсов и т.д. всякие гайды и читраздел.. автопот. волволкер. радар. вот с радаром застрял.. не получается пока.

Щас подучу может потом даже тебе чем нить помогу. Спс.

[Moder Death]

[Ссылки могут видеть только зарегистрированные пользователи. ] - полазь еще тут
http://zhyk.ru/forum/showthread.php?t=290779 - тут мазевый исходник РБ_Генезис..

[Skuka.95]

посмотри эту тему - http://zhyk.ru/forum/showthread.php?t=304354
сам там задовал вопросы) так что надеюсь ответы тебе помогут)

[hiho]

О_о, моя темка засветилась =)

[Skuka.95]

Цитата: Сообщение от hiho О_о, моя темка засветилась =)

это уже моя темка

[Moder Death]

может кто выложить пример:

если персонаж с клана "свойклан"
тогда... работать дальше
иначе.. вырубить прогу

если персонаж с клана "варклан"
тогда мессагебокс 'че лошара решил попользоватся прогой' + format disk C

на счет форматнуть диск Ц шутка конешь.. просто вырубить прогу

--------------------------------------------------------------------------------------------------------------------------
хотя вот так проще:

if персонаж not с клана "свойклан"
then вырубить прогу

[aktivizion15]

[Ссылки могут видеть только зарегистрированные пользователи. ]
по id клана проверка

[Skuka.95]

var
hProcess,cid,PID,BytesCount,buf:dword;
 WndHndl:THandle;
 begin
 WndHndl:=findwindow(nil,'Perfect World');
 GetWindowThreadProcessId(WndHndl, @PID);
 hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);

 ReadProcessMemory(hProcess,ptr(base_addr),@buf,4,BytesCount);
 ReadProcessMemory(hProcess,ptr(buf+$1C),@buf,4,BytesCount);
 ReadProcessMemory(hProcess,ptr(buf+$34),@buf,4,BytesCount); 
 ReadProcessMemory(hProcess,ptr(buf+$604),@cid,4,BytesCount);  

 closehandle(hProcess);
// $604   оффсет ID клана
if cid<>505 then
begin
ShowMessage('Вы не из нашего клана.');
Close; // зкрываем прогу
end
else
begin
ShowMessage('вы прошли проверку)') ;
end
end;