ICQ бот и PHP

Обсуждение серверного программирования.

Модераторы: Duncon, Yurich

Ответить
Аватара пользователя
Новенький
Сообщения: 73
Зарегистрирован: 01 июн 2007, 17:35
Откуда: Чусовой (Пермский край)
Контактная информация:

расскажите, как устроены аськовые боты, как они работают. Просто хочу для сайтика сделать, чтоб по запросу выдавал все новости сайта
Программирование - хорошая штука
vault0x54
Сообщения: 8
Зарегистрирован: 18 ноя 2007, 17:47

Привет, вот попробуй использовать класс, находящийся в аттаче.
Автор не я, нашел в гугле :) . Тема интересная, попробую тоже что нибуть реализовать.

Код: Выделить всё

<?
$admin="344249";         //ася админа :)
$send2me=$admin;          // туда пересылаются сообщения
$icq_number="236397226";   // ася бота
$icq_pass="lol";     //пароль бота
$icq_std_status="ONLINE"; //станд.статус

include "c99phpicq.php";
set_time_limit (0);      // бесконечное время выполнения
ignore_user_abort(true);
$icq = new ICQclient($icq_number,$icq_pass); 
$icq->errorstream = false;
$icq->dbgstream = false;
$icq->connect(); 
$icq->setstatus($icq_std_status);
$icq->login();

while ($icq->socket)
{
 $icq->listen(); 
 if ($icq->ismessage())
 {
  $uin = $icq->inLastVar["uin"];
  $text = $icq->inLastVar["text"];
  $mid = md5($icq->inLastVar["mid"]);
  $text = trim($text);
  $cmd = explode(" ",$text);
  $cmd[0] = strtolower($cmd[0]);
  $cmd[1] = strtolower($cmd[1]);
  if ($text == "!exit"  && $uin==$admin) {exit;}
  elseif ($text == "!exit" || $text == "!send") { $icq->message_send($uin,"Access denied!"); }
  elseif ($cmd[0] == "!send" && $uin == $admin) {
    $text2send = $cmd[2];
    for($i=2; $i<=count($cmd); $i++) $text2send.=$cmd[$i];
    $icq->message_send( $cmd[1], $cmd[2] );
  }
  else {
       $icq->message_send($uin,"Внимание! На данном ICQ установлен бот :) Все сообщения перенаправляются в $send2me (во всяком случае, должны туды переправляться :) )");
       $icq->message_send($send2me,"--пришло с номера $uin: $text");

       }
     }
  }
?> 
Ну и для вывода новостей добавить

Код: Выделить всё

if ($text == "!news") {[тут вставляем вывод новостей];exit;}
Вложения
c99phpicq.zip
(21.05 КБ) 41 скачивание
Ответить