Компонент для создания тренеров

Форумы Новые компонентыКомпонент для создания тренеров ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 2

Рейтинг: 0

#1: 2007-02-22 16:32:55 ЛС | профиль | цитата

Создайте кто нить такой компонент...
Статьи по написанию на delphi:
http://www.cheatsmaximal.net/articles/trainer_delphi.php
http://www.cheatsmaximal.net/articles/trainer_delphi_api_1.php
http://www.cheatsmaximal.net/articles/trainer_delphi_api_2.php

Буду благодарен (ну наверно не только я)
научите пользоваться компонентом inlinecode

[size=-2]------ Добавлено в 16:32
Помогите найти ошибку

Add(InlineCode,15870958,210,189)
{
 WorkPoints=#4:doGo|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|45:procedure doGo (var _Data:TData; Index:word);|4:end;|0:|27:implementation             |4:Var |23:WindowName : integer;  |23:ProcessId : integer;   |23:ThreadId : integer;    |23:buf : PChar;           |23:HandleWindow : Integer;|20:written : cardinal; |5:Const|39:WindowTitle = 'prog test'; //хендл игры|52:Address = $41D090;         //адрес для записи в игру|48:PokeValue = $32;           //значение для записи|46:NumberOfBytes = 1;         //количество байтов|0:|27:procedure THiAsmClass.doGo;|5:begin|42:WindowName := FindWindow(nil,WindowTitle);|4:end;|0:|60:ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);|64:HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);|0:|14:GetMem(buf,1);|23:buf^ := Chr(PokeValue);|70:WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);|13:FreeMem(buf);|26:CloseHandle(HandleWindow);|4:end;|4:end.|
}
Add(Button,11016346,147,189)
{
 Left=145
 Top=105
 link(onClick,15870958:doGo,[])
}
Add(InfoTip,16030298,203,161)
{
 Info=#14:Какаято ошибка|
 Width=50
 Height=67
}