LINUX.ORG.RU

icq Бот


0

0

Как сделать icq Бота, который слал бы на какой либо уин какие либо сообщения, в определённом количестве ? ЗЫ, не для спама, а для борьбы с уг. Желательно на перле, баше или питоне.


либа для работы с жабером, жабер-аккаунт с icq-транспортом, профит. имхо удобнее всего получается.

если очень уж хочется без транспортов, то, насколько я знаю, самый популярный-отлаженный-качественный - Net::OSCAR для перла.

volh ★★
()
Ответ на: комментарий от volh

Спасибо за информацию) покурю. 

ShTH
() автор топика

раньше можно было что-то навроде вот этого :

echo "message" > centericq -s msg -t 777888991 -p icq

я так думаю стоит достаточно просто изучить командную строку привычного вам асько-клиента

MKuznetsov ★★★★★
()
Ответ на: комментарий от Lucky1

некошерно тянуть иксы и гтк на сервер :).

Там был ещё какой-то мессенджер на libpurple на ncurses, но работал он чрезвычайно отвратительно когда я его тестил.

true_admin ★★★★★
()

pyicqt - самый модный транспорт аси в джаббер на питоне, возможно имеет смысл в исходники заглянуть

cvb
()

Найдено в недрах лора (работоспособность не проверял):

#!/usr/bin/perl
use Net::OSCAR qw(:standard);
my $text = 'бла бла бла (подставить сюда нужный текст)';
$uin_conn="123456789";
$password="qwerrty";

my $aimbot = Net::OSCAR->new();
$aimbot->signon($uin_conn, $password);

$aimbot->set_callback_im_in (\&on_im);
sub on_im {
my ($aimbot, $sender, $message, $away) = @_;
$aimbot->send_im($sender, $text );
}
while(1) {
$aimbot->do_one_loop();
}

RomanU
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.