begin
if (FromServer) and (pck[1]=#$CE) and (pck[2]=#$55) and (pck[3]=#$6D) then
begin
buf:=Hstr('80 55 3F 02 41 11 00 C7 44 01')+pck[4]+pck[5]+Hstr('00 00 33 33 33 3F');
SendToServerEx('name');
end;
end.
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Переходим на протокол нового поколения jabber