Читать чат

[gurin]

Подскажите пожайлуста, если не трудно - с примером, как прочитать групчат?

[Kitsune]

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

[gurin]

я попробовал, текст что-то не удалось получить, потому и просил с примером.

[Kitsune]

int tmpMessageCount = ReadInt16FromMemory(ChatMessagesCount);

for (int i = 0; i < tmpMessageCount; i++)
{
    messageBase = ReadInt32FromMemory(ReadInt32FromMemory(ChatStartAddress) + ((i * 0xC) + 0x8));
    if (messageBase != 0)
    {
        Messages.Add(ReadStringFromMemory(messageBase + 0x0, 4096));
    }
}

нашел среди старых проектов.

[gurin]

я делаю так:

      Chat := TStringList.Create;
      ....
      ReadProcessMemory(hProcess, ptr(GamerOffsets[ChatNumber]), @ChatLen, sizeof(ChatLen), BytesCountOfRead);
      ReadProcessMemory(hProcess, ptr(GamerOffsets[ChatStart]), @start_addr, sizeof(start_addr), BytesCountOfRead);
      ReadProcessMemory(hProcess, ptr(GamerOffsets[ChatEnd]), @end_addr, sizeof(end_addr), BytesCountOfRead);
      addr := start_addr;
      for strNo := 1 to ChatLen do
      begin
        str[0] := #0;
        i := 0;
        try
          repeat
            ReadProcessMemory(hProcess, ptr(addr), @ch, 2, BytesCountOfRead);
            str[i] := ch;
            addr := addr + 2;
            inc(i);
          until (ord(ch) = 0) or (i >= High(str));
        except
        end;
        if i >= 1 then
          str[i] := #0;
        st := Str;
        Chat.Add(st);
      end;

но получаю какие-то зякозябры
количество сообщений в чате верное

Добавлено через 16 минут
получил 1-ю строку нормально (при i=0)

но при i=1 вот тут
messageBase = ReadInt32FromMemory(ReadInt32FromMemory(ChatStartA ddress) + ((i * 0xC) + 0x8));
получаю значение messageBase = $FFFFFFFF

это же простое мат выражение? или как-то иначе тут все расшифровывается?

просто непонятно зачем в
ReadStringFromMemory(messageBase + 0x0, 4096)
+ 0x0 стоит...

Добавлено через 25 минут
нашел ошибку вот тут
messageBase = ReadInt32FromMemory(ReadInt32FromMemory(ChatStartA ddress) + ((i * 0xC) + 0x8));
надо

messageBase = ReadInt32FromMemory(ReadInt32FromMemory(ChatStartA ddress) + ((i * 0x1C) + 0x8));

Добавлено через 28 минут
Может кому пригодится, привожу рабочий код на Delphi

      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 >= High(str));
        except
        end;
        if i >= 1 then
          str[i] := #0;
        st := Str;
        Chat.Add(st);
      end;

[Kitsune]

Цитата: Сообщение от gurin нашел ошибку вот тут

Никто не говорил, что оффсеты актуальные.

Цитата: Сообщение от TBX1n нашел среди старых проектов.

[gurin]

Да, я понимаю. Просто уточнил где была неточность на тот случай, если кто будет озадачен такой же проблемой.

ОГРОМНОЕ спасибо за помощь.

[Kitsune]

gurin, всегда пожалуйста.