|
Читаем чат - Общение разработчиков - Программирование для Perfect World, общение и обсуждене разработок |
28.04.2014, 15:18
|
#1
|
|
|
|
Разведчик
|
Регистрация: 16.02.2014
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Читаем чат
В общем такое дело.. Появилась такая необходимость, как читать чат( мир, групп, ПМ и тд), но на жуке никакой инфы про это не нашел. Нашел в исходниках одной программы функцию по чтению чата, но она как то коряво читает, не сразу замечает сообщения, да и не все.. покажите и расскажите как это вообще делать. Примерчик бы на Delphi)
Последний раз редактировалось FeetEr; 28.04.2014 в 18:20.
|
|
|
28.04.2014, 16:47
|
#2
|
|
|
|
Разведчик
|
Регистрация: 14.10.2012
Сообщений: 6
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Читаем чат
По чату есть инфа. Суть простая. Есть начальный адрес, есть конечный. От сих и до сих считываешь... вот и все.
msgpointer=getmem32 (base_addr + i*0x24) // (i=0...n)
|
|
|
29.04.2014, 02:08
|
#3
|
|
|
|
Рыцарь-капитан
|
Регистрация: 14.06.2012
Сообщений: 511
Популярность: 7566
Сказал(а) спасибо: 4
Поблагодарили 181 раз(а) в 88 сообщениях
|
Re: Читаем чат
|
Цитата: |
|
|
|
|
|
|
|
|
не сразу замечает сообщения, да и не все.. |
|
|
|
|
|
такого просто не может быть, так как массив один всегда, в размере 200 ячеек и они по порядку читаются это если Ingame
если в ООГ то там все куда проще если есть навык так как нет ограничений на пакеты чата
а инфа на жуке есть, я даже полную процедуру чтения выкладывал, поищите в моих темах если есть желание
________________
Хотите как то отблагодарить за помощь?
Не стесняйтесь нажимайте "Спасибо"
Делаю программы на заказ, по всем вопросам в скайп: Ginrey2
|
|
|
30.04.2014, 21:08
|
#4
|
|
|
|
Разведчик
|
Регистрация: 16.02.2014
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Читаем чат
Нашел такую функцию по чтению ПМа. Но сообщения показываются не сразу.. что делать?
Код:
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;
Последний раз редактировалось FeetEr; 30.04.2014 в 21:11.
|
|
|
14.06.2014, 06:46
|
#5
|
|
|
|
Разведчик
|
Регистрация: 06.10.2013
Сообщений: 27
Популярность: 10
Сказал(а) спасибо: 24
Поблагодарили 12 раз(а) в 8 сообщениях
|
Re: Читаем чат
Интересовался когда-то. Тип чата легко определяется по цвету(^FFFFFF цвет текста) могу поделиться алгоритмом(Vb.net) думаю реализация подобного на дельфи - минут 15 делов.
http://zhyk.ru/forum/showthread.php?t=819082
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
читаем
|
DrummmeR |
Общение и обсуждение (Тюряга ВК) |
13 |
18.02.2011 09:28 |
[Информация] Читаем
|
Di* |
Общение и обсуждение |
9 |
27.01.2011 12:12 |
[Обменяю] ЧИТАЕМ
|
†Neuroze† |
Dark Orbit |
2 |
30.11.2010 18:26 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 06:52.
|
|