Работаем с сообшениями чата в игре напрямую

[Юля]

Простой и эффективный способ работы с сообшениями чата напрямую в игре - это перехват функции которая эти самые сообшения в чате и размешает. Приведенный пример разукрашивает все сообшения в красный цвет.

...
var old_chat: procedure;
    lib_NWindow: cardinal;

procedure do_chat(data: pointer); stdcall;
begin
  cardinal(pointer(cardinal(data) + $0C)^) := $FF0000FF; // старший байт задает альфа канал

  {по смешению 0х10 расположено значение определяюшее тип сообшения, к примеру сообшение в групповом чате имеет код 3, а голос героя - 17;
   по смешению 0x08 находится указатель на сам текст сообшения (unicode) }
end;

procedure InterceptFuncChat; stdcall;
asm
  push ebp
  mov ebp, esp
  pushad    
  push ebp
  call do_chat
  popad
  pop ebp
  push ebp // оригинальный загрузчик
  mov ebp, [esp + 10h]
  jmp old_chat
end;

...
var p: pointer;
    OldProtect, lib: cardinal;
...
      lib_NWindow := LoadLibrary('NWindow.dll');

      lib := lib_NWindow + $52F40;
      old_chat := pointer(lib + 5);

      VirtualProtect(pointer(lib), 5, PAGE_EXECUTE_READWRITE, OldProtect);      

      addr := dword(@InterceptFuncChat) - lib - 5

      p := pointer(lib);
      byte(p^) := $e9;
      dword(pointer(dword(p) + 1)^) := addr;
      
      VirtualProtect(pointer(lib), 5, PAGE_EXECUTE_READWRITE, OldProtect);
...  (c) puella