VPF::Perl + ICQ - Форум программистов

nitr

Дата 13.6.2007, 21:02 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

держите ;) :

Код


#!/usr/bin/perl
use strict; use warnings;
use Net::OSCAR;

my $uin = '111111111';
my $passwd = 'bu-ga-ga';
my $oscar = Net::OSCAR->new;
$oscar->signon($uin, $passwd);

my $uin_to_send = '222222222';
my $message = 'MEGA MESSAGE!!!';

while (not $oscar->is_on) { $oscar->do_one_loop; }

while ($oscar->is_on) {
    $oscar->do_one_loop;
    $oscar->send_im($uin_to_send, $message);
    $oscar->do_one_loop;
    $oscar->signoff;
    $oscar->do_one_loop;
}

только подумать о отключении... ;)

Это сообщение отредактировал(а) nitr - 13.6.2007, 23:25

--------------------

I love ArchLinux

fantome

Дата 14.6.2007, 09:05 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 5.2.2007

Репутация: 1
Всего: 1

Nitr
пасиб... сча попробую....

Огромное тебе пасиб, Nitr... респект... smile

Это сообщение отредактировал(а) fantome - 14.6.2007, 09:15

nitr

Дата 14.6.2007, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Не за что ;) надеюсь будете использовать по назначению ;) (т.е. то что указано в теме)

--------------------

I love ArchLinux

fantome

Дата 15.6.2007, 09:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 5.2.2007

Репутация: 1
Всего: 1

nitr

Цитата

надеюсь будете использовать по назначению ;)

естественно... из-за этого же страдал....
а так - автоматизация админских задач с отчетом о выполнении в аську...
как раз то, что нужно....
еще раз - БОЛЬШОЕ СПАСИБО...
+1

Perl_sapiens

Дата 4.5.2008, 23:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

эх... а у меня это вылезает:
Couldn't set Win32 blocking: Unknown error

Как быть?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »