|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Nikolay Leschev 2:5020/400 09 Jan 2004 16:58:40 To : Denis Poznyakov Subject : Re: Net::ICQ -------------------------------------------------------------------------------- Denis Poznyakov wrote: >>>Net::ICQ, как я понимаю, предназначен для прошлой (чуть ли не >>>позапрошлой) версии ICQ, уже не поддерживаемой мирабилисом. Hадо >>>пользоваться Net::ICQ2000. >>> >> >>Ходил на dnk-patches.org ничего подходящего не нашел для себя >> >>Поставил Net::ICQ2000 те же яйца только в профиль коннекчусь к серваку >>коннектится отправляю сообщение (даже в цикле) ноль эмоций >> >>Мне всего лишь надо одно сообщение отправить > > > если сообщение больше (непомню сколько) символов - то не пройдет > или возможно не правильно отдаешь сообщение маленькое отдовал больше 450 символов > > коннект то хоть появляется ? > > Все вопрос решен всем спасибо кто откликнулся Антиофтопик Решение выглядит вот так #!/usr/bin/perl use Net::ICQ2000; $icq = Net::ICQ2000->new('223110332', '?', 1); #$icq->Set_Debugging(3); $icq->Connect(); while (1) { $icq->Execute_Once(); if ($icq->{_LoggedIn}) { Send_ICQ_Message('1537360','lalala'); } sleep 1; } sub Send_ICQ_Message { my ($uin, $text) = @_; my $details; $details->{uin} = $uin; $details->{text} = $text; $details->{MessageType} = "text"; $icq->Send_Command("Cmd_Send_Message", $details); } тока шлет в цикле но думаю это уже не самая больша проблемма --- ifmail v.2.15dev5.1 * Origin: Communication Company MARK-ITT (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/437021cb9f93.html, оценка из 5, голосов 10
|