помогите с delphi кодом

Форумы Помощь по пакетупомогите с delphi кодом ← Ctrl1Ctrl →

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

Ответов: 1343

Рейтинг: 31

#1: 2014-06-01 13:20:19 ЛС | профиль | цитата

есть такой код

procedure TCTSForm.CTSButton1Click(Sender: TObject);
var
   GameHandle:THandle;
   i:Integer;
begin
  GameHandle := CTSOpenProcess('Game.exe');
  qwe := TVarAddress.Create;
  if GameHandle = 0 then begin
     ShowMessage('Процесс Game.exe не найден!');
     Exit;
  end;
  if AOBScan(GameHandle,0, $5FFFFFFF,True,True,'UUhybFNHcW5VfHNtUFlybFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFdHU25SV1ko',qwe,0) then begin
     for i := 0 to qwe.Count-1 do
       WriteBytes(GameHandle,qwe[i], 0, 'UUhyJw%%');
     ShowMessage('Активировано');
  end else
     MessageDlg('Не удалось активировать',mtError,[mbOK],0);
end;

вместо WriteBytes поставить сообщение с найденным адресом
------------ Дoбавленo в 13.00:
всё уже разобрался


procedure TCTSForm.CTSButton1Click(Sender: TObject);
var
   GameHandle:THandle;
   i:Integer;
begin
  GameHandle := CTSOpenProcess('Game.exe');
  qwe := TVarAddress.Create;
  if GameHandle = 0 then begin
     ShowMessage('Процесс Game.exe не найден!');
     Exit;
  end;
  if AOBScan(GameHandle,0, $5FFFFFFF,True,True,'UUhybFNHcW5VfHNtUFlybFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFdHU25SV1ko',qwe,0) then begin
     for i := 0 to qwe.Count-1 do
       ShowMessage(qwe[i]);
  end else
     MessageDlg('Не удалось активировать',mtError,[mbOK],0);
end;

------------ Дoбавленo в 13.20:
но вот как записать этот результат в текстовик?

карма: 2

файлы: 1 code_33709.txt [432B] [241]

Разработчик

Ответов: 4698

Рейтинг: 426

#2: 2014-06-01 13:58:33 ЛС | профиль | цитата

карма: 10

Мой сайт, Мои рассказы

Ответов: 1343

Рейтинг: 31

#3: 2014-06-01 14:29:11 ЛС | профиль | цитата

[flood]Rysik, подучил бы сначала предоставляемые стандартной библиотекой языка возможности, а потом бы уже брался за более сложные задачи. Вопросы то элементарные задаешь, в гугле полно таких[/flood]

блин так то оно так, но это не среда Delphi и там только 1 кусок кода + uses нельзя указывать...

помогите хоть с ошибкой property "Text" inaccessible here

код:


procedure TCTSForm.CTSButton1Click(Sender: TObject);
var
   GameHandle:THandle;
   i:Integer;
begin
  GameHandle := CTSOpenProcess('Game.exe');
  qwe := TVarAddress.Create;
  if GameHandle = 0 then begin
     ShowMessage('Процесс Game.exe не найден!');
     Exit;
  end;
  if AOBScan(GameHandle,0, $5FFFFFFF,True,True,'UUhybFNHcW5VfHNtUFlybFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFdHU25SV1ko',qwe,0) then begin
     for i := 0 to qwe.Count-1 do
       begin TCTSEdit.Text := qwe[i];
       end;
  end else
     MessageDlg('Не удалось активировать',mtError,[mbOK],0);
end;

карма: 2

Гость

Ответов: 17029

Рейтинг: 0

#4: 2014-06-02 00:29:12 правка | ЛС | профиль | цитата

Редактировалось 5 раз(а), последний 2025-01-21 03:44:59

карма: 0

Ответов: 2059

Рейтинг: 132

#5: 2014-06-02 00:30:23 ЛС | профиль | цитата

Это я.
Первое, с чего начинается программирование - это разработка алгоритма решения проблем.
Для каждого он индивидуален. За неделю модно научиться писать сносный код. Знать хорошо язык - значит на нём мыслить.
Это и года может не хватить.

карма: 6