Читаем чат

[FeetEr]

В общем такое дело.. Появилась такая необходимость, как читать чат( мир, групп, ПМ и тд), но на жуке никакой инфы про это не нашел. Нашел в исходниках одной программы функцию по чтению чата, но она как то коряво читает, не сразу замечает сообщения, да и не все.. покажите и расскажите как это вообще делать. Примерчик бы на Delphi)

[bsbalex]

По чату есть инфа. Суть простая. Есть начальный адрес, есть конечный. От сих и до сих считываешь... вот и все.
msgpointer=getmem32 (base_addr + i*0x24) // (i=0...n)

[Ginrey]

Цитата: не сразу замечает сообщения, да и не все..

такого просто не может быть, так как массив один всегда, в размере 200 ячеек и они по порядку читаются это если Ingame
если в ООГ то там все куда проще если есть навык так как нет ограничений на пакеты чата
а инфа на жуке есть, я даже полную процедуру чтения выкладывал, поищите в моих темах если есть желание

[FeetEr]

Нашел такую функцию по чтению ПМа. Но сообщения показываются не сразу.. что делать?

Function ReadPM:string;
var
msg:string;
chatnumber:integer;
chatstart,tmsg:dword;
begin
  Result:='';
    chatnumber:=GetDword($00C3DF1C);
    if (Chatnumber>0) then
    begin
      chatstart:=GetDword($00C3DF10);
      tmsg:=GetDword(chatstart+(($1c*(chatnumber-1))+$8));
      msg:=GetString(tmsg,256);
      if pos('шепчет',msg)>0 then
      begin
        delete(msg,1,pos('&',msg));
        msg:=deletemsg(msg,'<','>');
        msg:=StringReplace(msg,'&', '',[rfReplaceAll, rfIgnoreCase]);
        Result:=msg;
      end;
 //   chatMsgTemp:=msg;
  end;
end;

Вот так выглядит в действии:

if ReadPM<>'' then
      begin
        if ChatMsgTemp<>ReadPM then
        begin
          showmessage(ReadPM);
        end;
ChatMsgTemp := ReadPM;
end;

[bestbeer]

Интересовался когда-то. Тип чата легко определяется по цвету(^FFFFFF цвет текста) могу поделиться алгоритмом(Vb.net) думаю реализация подобного на дельфи - минут 15 делов.
http://zhyk.ru/forum/showthread.php?t=819082