PDA

Просмотр полной версии : [Tutorial] Пишем тренер средствами Delphi7 +[ИСХОДНИК]



Relax
01.05.2014, 11:16
-----------------------------------------------------------------------------
В тренер подключены модули такие как (Сканер сигнатур)(Выбор процессов)
-----------------------------------------------------------------------------
Исход You can see links before reply (You can see links before reply)
You can see links before reply
-----------------------------------------------------------------------------
Код функции

procedure TForm1.sCheckBox1Click(Sender: TObject);
var
Search: TMemorySearch;
begin
if sCheckBox1.Checked then begin
FreeAndNil(SearchResult);
if SearchEngine <> nil then
begin
Search := SearchEngine.NewSearch('88 47 5C 0F B6 87 94 00');
try
Search.OPT_READPAGE_EXECUTEREADWRITE := True;
Search.OPT_READPAGE_READWRITE := False;
Search.OPT_READPAGE_EXECUTEREAD := True;
Search.OPT_READPAGE_READONLY := True;

if Search.Next then begin
SearchResult := Search.GetFindedAddressObject;
SearchResult.WriteHEX(0, '90 90 90 0F');
ShowMessage('Активирован');
end
else
finally
Search.Free;
end;
end
else
end
else
if sCheckBox1.Checked = False then begin
if SearchResult <> nil then
begin
if not SearchResult.WriteHEX(0, '88 47 5C 0F B6 87 94 00') then
end;
MessageDlg('Деактивирован',mtInformation,[mbOK],0);
end;
end;


Вроде всё все остальные уроки и исходы буду выкладывать здесь
Также жду СЯБОК :)

arxlex
01.05.2014, 15:22
Что эта за штука?

Relax
04.05.2014, 16:27
чит............

TopHacker
01.10.2014, 16:25
Ссылка не рабочая