Перевод из Байтовых цифр в текст

[xRamzeSx]

Здравствуйте, как перевести Байтные цифры в текст, которые считываются из $007...... и $004...... адресов??? При простом считывании получается набор цифр.

Вот код программы:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Menus, ExtCtrls,jpeg,
  mmsystem, CheckLst;
 
type
  TfmMain = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declaratdeclarations }
    procedure MouseClick(button:byte; XY:integer);
  end;
 
var
  fmMain                  :TfmMain;
  wnd1,wnd2               :HWND;
  doScript,isRec          :boolean;
  ptC                     :integer;
  doBreak                 :integer;
  fileNameSave            :string;
  WindowName              :Integer;
  ProcessId               :Integer;
  ThreadId                :Integer;
  Buf                     :PChar;
  HandleWindow            :Integer;
  Write                   :Cardinal;
  WindowTitle             :String = '...';
  PokeValue               :Cardinal= $FFFFFFFF;
  NumberOfBytes           :Integer = 4;
 
implementation
 
uses Unit2;
 
{$R *.DFM}
 
function Find(s: string): hWnd;
var
  Wnd: hWnd;
  buff: array[0..127] of Char;
begin
  Find := 0;
  Wnd := GetWindow(application.Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin
    if (Wnd <> application.Handle) and
    IsWindowVisible(Wnd) and
    (GetWindow(Wnd, gw_Owner) = 0) and
    (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
    begin
      GetWindowText(Wnd, buff, sizeof(buff));
      if pos(s, StrPas(buff)) > 0 then
      begin
        Find := Wnd;
        Break;
      end;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;
 
procedure write_value2(address:cardinal;byte:byte;value:int64);
begin
WindowName := find(windowtitle);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(value);
WriteProcessMemory(HandleWindow,ptr(Address),buf,byte,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;
 
function write_value(Addres:cardinal;ByteType:integer;
var
GetValue:int64):boolean;
var
  PID,PH:cardinal;
  rw:cardinal;
  exec:boolean;
  H:HWND;
begin
try
  h:=find(windowtitle);
  exec:=true;
  if h=0 then
    exec:=false;
  getwindowthreadprocessid(h,PID);
  PH:=openprocess(process_all_access,false,PID);
  if PH=0 then
    exec:=false;
  if writeprocessmemory(PH,ptr(Addres),@GetValue,ByteType,rw)=false then
    exec:=false;
  closehandle(PH);
  result:=exec;
  finally
end;
end;
 
function read_value2(address:cardinal;byte:byte;value:integer):string;
begin
WindowName := find(windowtitle);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(value);
ReadProcessMemory(HandleWindow,ptr(Address),buf,byte,write);
CloseHandle(HandleWindow);
result:=buf;
end;
 
function read_value(Addres:cardinal;ByteType:integer;
var
GetValue:int64):boolean;
var
  PID,PH:cardinal;
  rw:cardinal;
  exec:boolean;
  H:HWND;
begin
try
  h:=find(windowtitle);
  exec:=true;
  if h=0 then
    exec:=false;
  getwindowthreadprocessid(h,PID);
  PH:=openprocess(process_all_access,false,PID);
  if PH=0 then
    exec:=false;
  if readprocessmemory(PH,ptr(Addres),@GetValue,ByteType,rw)=false then
    exec:=false;
  closehandle(PH);
  result:=exec;
  finally
end;
end;
 
function read_goto_str(ca:cardinal;en:integer;var hend:cardinal):string;
var
s:string;
c:cardinal;
ch:int64;
begin
  c:=ca;
  s:='';
  repeat
    ch:=0;
    read_value(c,1,ch);
    ch:=ch;
    c:=c+1;
    s:=s+chr(ch);
  until ch<>en;
  result:=s;
  hend:=c-1;
end;
 
function read_str(ca:cardinal;en:integer;var hend:cardinal):string;
var
s:string;
c:cardinal;
ch:int64;
begin
  c:=ca;
  s:='';
  repeat
    ch:=0;
    read_value(c,1,ch);
    ch:=ch;
    c:=c+1;
    if ch<>en then s:=s+chr(ch);
  until ch=en;
  result:=s;
  hend:=c-1;
end;
end.

При использовании процедуры таймера:

procedure TfmMain.Timer1(Sender: TObject);
var
res:int64;
begin
res:=0;
read_value($49DE9C,4,res);
Label1.Caption:=' '+inttostr;
res:=0;
read_value($49DE57,4,res);
Label2.Caption:=' '+inttostr;
end;

Появляется вот это:
http://s003.radikal.ru/i203/1009/9b/37a3f6ce6903.jpg

[Sibedir]

Где реализация Button1Click и MouseClick?

Что это такое:

Label1.Caption:=' '+inttostr;

Это не может работать.

Зачем вообще тут таймер?

Откуда взялась ваша картинка? Я вижу на форме только кнопку, эдит и лэйбел.

Что вообще значит:

Перевод из Байтовых цифр в текст

Для получения символа байта используется функция chr. Но это вы и так знаете.

ch:=ch;

тоже интересно

Может вместо GetValue:int64 лучше использовать PChar или PInteger, какой-нибудь?

int64 - 8 байт. А у вас ByteType (который nSize) = 4.

Короче, тут вообще лес какой-то.
read_value2 и write_value2, походу, рулят.
А read_value и write_value - тишина на кладбище ночью.

[Stilet]

Автор, тебе в 16-ричном виде нужно показать число? Функция format с параметром %x

[Пепел Феникса]

или IntToHex(а то многие Format не понимают)

[Sibedir]

Да не, тут, кажись, надо строку прочитать. Он в int64 пытается закинуть ее содержимое, а потом по IntToStr вывести.
Ну, я так это понял.

[xRamzeSx]

Сообщение от Sibedir

Где реализация Button1Click и MouseClick?

Зачем? Есть таймер.
Те компоненты, что в исходнике не те, просто потом было изменение:

type
  TfmMain = class(TForm)
  Label1: TLabel;
  Label2: TLabel;
  Timer1: TTimer;
  procedure Timer1Timer(Sender: TObject);

Сообщение от Sibedir

Что это такое:

Label1.Caption:=' '+inttostr;

Это не может работать.

procedure TfmMain.Timer1Timer(Sender: TObject);
var
res:int64;
begin
res:=0;
read_value($49DE9C,4,res);
Label1.Caption:='Привет, ' +inttostr(res);
res:=0;
read_value($49DE57,4,res);
Label2.Caption:='Итем, бот, на которого ты кликнул ПКМ: ' +inttostr(res);

Сообщение от Sibedir

Зачем вообще тут таймер?

Считывание должно происходить не по клику на кнопке, а автоматически, т.е по таймеру с интервалом 100

Сообщение от Sibedir

Может вместо GetValue:int64 лучше использовать PChar или PInteger, какой-нибудь?

Не могли бы вы по-подробнее описать?

Сообщение от Sibedir

read_value2 и write_value2, походу, рулят.
А read_value и write_value - тишина на кладбище ночью.

Каждая из этих функций нужна для своей работы, просто код не совсем полный, я оставил только то, что нужно.

PS: С отображение текста я первый раз сталкиваюсь, и по этому не знаю какую функцию использовать.

[Sibedir]

Остается не совсем понятным, что должна делать функция read_value. Объясните на словах.
Функции read_value2 и write_value2 работают правильно, так как вам надо, я правильно понимаю?

[xRamzeSx]

Сообщение от Sibedir

Остается не совсем понятным, что должна делать функция read_value. Объясните на словах.

Эта функция считывает значение цифр.
На пример:

procedure TfmMain.Timer1Timer(Sender: TObject);
var
res:int64;
begin
res:=0;
read_value($49DE9C,4,res);
Label1.Caption:=' ' +inttostr(res);
end;

Но я хочу, чтобы она считывала значение текста. Можно ли её изменить на такой лад?

Сообщение от Sibedir

Функции read_value2 и write_value2 работают правильно, так как вам надо, я правильно понимаю?

Да, вы всё правильно понимаете.

[Sibedir]

М-м-м, да. xRamzeSx, меня опять работой подзаволили. Я обязательно постараюсь помочь, только раньше завтрешнего вечера у меня ни чего не получится.

Один вопрос, длина строки известна? Если да, то это значительно все упростит.

Пока даю наводку:
PChar - это указатель на начало строки, которая заканчивается символом #0.

[xRamzeSx]

Сообщение от Sibedir

М-м-м, да. xRamzeSx, меня опять работой подзаволили. Я обязательно постараюсь помочь, только раньше завтрешнего вечера у меня ни чего не получится.

Если Вас не затруднит, буду очень благодарен.

Сообщение от Sibedir

Один вопрос, длина строки известна? Если да, то это значительно все упростит.

Мне кажется, что длинна строки около 20-25 символов.