[Помогите!] Чат 1.4.5

[Ginrey]

Доброго времени суток. Возникла такая ситуация, в которой нужно сделать перехват сообщений с клиента ну или просто считывание если подругому. Так вот я никак не могу получить список сообщений в мире,в gv. да и вообще где либо. Пишу на delphi. Адреса для версии "Земли духов". Беру начальный адрес "ChatStart=00A5CAB8". Так как кроме него ничего не дано, то я взял смещения с версии клиента 1.4.4 а именно
Message = [[ChatStart]+((0 to ChatNumber)*0x1C+0x08)]+0]

в результате получился код

ReadProcessMemory(hp,Pointer($A5CAB8),@buf,4,bc);
ReadProcessMemory(hp,Pointer(buf+i*$1C+$8),@buf,4,bc);
ReadProcessMemory(hp,Pointer(buf+$0),@str,4,bc);

Но сообщения выводятся в виде таково вот символа " ^ ".
Пробовал через CE результат тот же. что делать не знаю. я в тупике.
Этот код ничего не меняет

ReadProcessMemory(hp,Pointer($A5CAB8),@buf,4,bc);
ReadProcessMemory(hp,Pointer(buf+i*$1C),@buf,4,bc);
ReadProcessMemory(hp,Pointer(buf+$8),@buf,4,bc);
ReadProcessMemory(hp,Pointer(buf+$0),@str,4,bc);

Написал дабы лишних сообщений не было. Мало ли что.


Кто знает как быть - прошу помочь

[AEBus]

Может быть эта тема тебе поможет?
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ginrey]

Цитата: Сообщение от Nitrogen Может быть эта тема тебе поможет? [Ссылки могут видеть только зарегистрированные пользователи. ]

вот попробовал вручную найти
[Ссылки могут видеть только зарегистрированные пользователи. ]
результат тот же. смещения вроде бы верные. ну или я совсем кривой

[VeTaL_UA]

сообщения есть текст? тогда смотри сюдЫ

[Ginrey]

не увенчалось успехом. при такой кодировке выдает постоянно постоянно это
琀橊贀⑔刜䒍⠤橐嘂ﯨ⚣茀ᓄၨ沧樀樂贬⑌儬蓇逤
если юзать AnsiChar , то просто пустое поле.

Добавлено через 16 минут
В этой теме нашел полезный совет, считать все за раз. вывод оказался благополучным. Все решил, сспасибо

Добавлено через 37 минут
вот может кому понадобиться, переделал под готовую функцию.

function ReadChat(Handle: THandle; ChatStartAddr,ChatNumberAddr: DWORD): string;
var s: string;
buf,Hprocess,start_addr,ChatLen,addr,PID: DWORD;
BytesCountOfRead: SIZE_T;//У кого то это тип DWORD
strNo,i: Integer;
str: array[0..255] of WideChar;
ch: char;
text: string;
st: TStringList;
begin
st:=TStringList.Create;
GetWindowThreadProcessId(handle,@pid);
hprocess:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);
ReadProcessMemory(hprocess, ptr(ChatStartAddr), @start_addr, sizeof(start_addr), BytesCountOfRead);
ReadProcessMemory(hprocess, ptr(ChatNumberAddr), @ChatLen, sizeof(ChatLen), BytesCountOfRead);
for strNo := 0 to ChatLen-1 do
begin
str[0] := #0;
i := 0;
try
ReadProcessMemory(hprocess, ptr(start_addr + ((StrNo * $1C) + $8)), @addr, sizeof(addr), BytesCountOfRead);
if addr <> 0 then
repeat
ReadProcessMemory(hprocess, ptr(addr), @ch, 2, BytesCountOfRead);
str[i] := ch;
addr := addr + 2;
inc(i);
until (ord(ch) = 0) or (i >=255);
except
end;
if i >= 1 then
str[i] := #0;
text:=str;
st.Add(text);
result:=st.Text;
end;
end;

Пользоваться так. Только адреса свои.

wnd:=FindWindow('ElementClient Window',nil);
memo1.Lines.Text:=ReadChat(wnd,$00A5CAB8,$00A5CAC4);