ICQ Bot

Discussion in 'Skype, IRC, ICQ, Jabber и другие IM' started by NOmeR1, 29 Mar 2007.

  1. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Вот нашёл ICQ бота на PHP, использующего класс WebIcqLite.class.php.

    PHP:
    <?php 
    /*Created by Scorpion */ 
    error_reporting (E_ALL); 
    set_time_limit(0); 
    ini_set ('max_execution_time'"0"); 
    require_once(
    'WebIcqLite.class.php'); 
    define('UIN''789012345');// Ваш номер icq 
    define('PASSWORD''1ql66aa@');//Ваш  пароль 

    $icq = new WebIcqLite(); 
    if(!
    $icq->connect(UINPASSWORD)) 

        echo 
    $icq->error
        exit(); 


    while(
    $icq->is_connected()){ 
        
    $msg $icq->read_message(); 
        switch (
    strtolower($msg['message'])) { 
             
            case 
    'привет'//сообщение для бота
            
    $icq->send_message($msg['from'], 'Привет Познакомимся?'); //ответ на сообщение для бота
            
    break; 
             
            case
    'да'
            
    $icq->send_message($msg['from'], 'Я ICQ BOT Scorpion'); 
            break; 

            case
    'floodme'//сообщение для бота
                                    
    for($i==0;$i<50;$i++) //50 раз
            
    $icq->send_message($msg['from'],'Ненавижу флудеров'); //это сообщение
            
    exit; 
            break; 
             
            case
    'quit'//сообщение для бота
            
    $icq->disconnect(); //действие бота (выход)
            
    exit; 
            break; 
             
            default: 
    //если сообщение не содержит команду
            
    $icq->send_message($msg['from'], 'Ты хочешь от меня слишком много, я только учусь?'); //ответ бота
        

        
    flush(); 
        
    sleep(1); 

    ?>
    Автор - Scorpion
    Взято с http://grabberz.com/showpost.php?p=16492&postcount=1


    Как юзать.

    Для начала нам надо залить бота на хост. Для этого :
    Для бота нужны поддержка сокетов, поэтому регаемся на 1gb.in.
    Заливаем на ваш сайт скрипт самого бота, предварительно изменив его, а в той же директории кладём этот скрипт под именем WebIcqLite.class.php.
    И теперь просто запускаем скрипт бота. Вуаля! Бот в онлайне.​
     
    #1 NOmeR1, 29 Mar 2007
    Last edited: 8 Sep 2007
    7 people like this.
  2. dimhee

    dimhee Member

    Joined:
    8 Mar 2007
    Messages:
    129
    Likes Received:
    63
    Reputations:
    6
    Объясните мне пожалуйста , что этот бот делает ?
     
  3. Fr-Ron

    Fr-Ron Elder - Старейшина

    Joined:
    10 Sep 2006
    Messages:
    184
    Likes Received:
    72
    Reputations:
    13
    xzDim

    Там же написаны коменты! Бот получает сообщение и отвечает на него.
     
    1 person likes this.
  4. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Это, так сказать, Chat Bot :)
     
  5. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,193
    Reputations:
    252
    Вот это баян =\\\\\
    Я писал намного лучше...на том же форуме гдето лежит..
     
  6. LLIepuqo

    LLIepuqo Elder - Старейшина

    Joined:
    9 Dec 2006
    Messages:
    27
    Likes Received:
    7
    Reputations:
    -1
    А где достать самого бота?
     
  7. Fr-Ron

    Fr-Ron Elder - Старейшина

    Joined:
    10 Sep 2006
    Messages:
    184
    Likes Received:
    72
    Reputations:
    13
    LLIepuqo

    А что тогда тут выожено в 1-ом посте? О_о вбиваешь в скрипт номер, пасс, стартуешь скрипт и твой бот в сети.
     
  8. MacTep

    MacTep Elder - Старейшина

    Joined:
    29 May 2006
    Messages:
    317
    Likes Received:
    160
    Reputations:
    35
    а как через него посылать многострочные посты?
     
  9. cardons

    cardons Elder - Старейшина

    Joined:
    19 Jul 2005
    Messages:
    778
    Likes Received:
    324
    Reputations:
    83
    Просто меняешь Я ICQ BOT Scorpion на свое что хочешь написать и все.
     
  10. MacTep

    MacTep Elder - Старейшина

    Joined:
    29 May 2006
    Messages:
    317
    Likes Received:
    160
    Reputations:
    35
    Я мож и тупой, но не настолько)))
    Я про другое.
    Хочу, чтоб он списочком выводил, типа:

    Список команд:
    1- пойти нафиг
    2- вырубит бота
    3- ...

    что-то такое... "\n" не работает.
     
  11. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    а если я напишу "привет)" то этот супер мега кодер облажаетцо?
     
  12. MacTep

    MacTep Elder - Старейшина

    Joined:
    29 May 2006
    Messages:
    317
    Likes Received:
    160
    Reputations:
    35
    так зачем писать полное совпадение, как в примере? я пишу через совпадение контрольных частей...))
     
  13. LLIepuqo

    LLIepuqo Elder - Старейшина

    Joined:
    9 Dec 2006
    Messages:
    27
    Likes Received:
    7
    Reputations:
    -1
    МНе пишет что ошибка в 8 строке...
    Вот гляньте: http://www.w3llork.serverok.org/123/index.php
     
  14. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    ковычку то поставь =\
     
  15. LLIepuqo

    LLIepuqo Elder - Старейшина

    Joined:
    9 Dec 2006
    Messages:
    27
    Likes Received:
    7
    Reputations:
    -1
    Это исправил) СПасибо... Токо следующее( Fatal error: Call to undefined function socket_create() in d:\hst\danstreet-ru_5e5a89b7\http\bot\WebIcqLite.class.php on line 393
    Есть тот кто этот бот запустил?
    Вот кажется эта строка:
    function open($url = array('login.icq.com', 5190))
     
  16. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Поддержки сокетов нет. Делай как я всё написал (1gb.in).
     
    1 person likes this.
  17. LLIepuqo

    LLIepuqo Elder - Старейшина

    Joined:
    9 Dec 2006
    Messages:
    27
    Likes Received:
    7
    Reputations:
    -1
    А как сделать приветствующее сообщение? Типо человек добавил бота в контакры, а бот ему выдал приветствие..
     
  18. vvs777

    vvs777 Elder - Старейшина

    Joined:
    16 Nov 2004
    Messages:
    394
    Likes Received:
    213
    Reputations:
    4
    Боты на php - ацкое зверство.
    Мозги себе ипать + глюки искать. И еще с сокетами возиться.
    Делфи рулит!
     
  19. nbd

    nbd Elder - Старейшина

    Joined:
    27 Oct 2006
    Messages:
    81
    Likes Received:
    26
    Reputations:
    3
    На диске ][акера за 3-ий месяц есть сорц Icq-bot'а на Делфи, если кому надо и нет диска могу скинуть, пишите в ПМ или Icq: 465-790-267
     
  20. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Обновление

    Обновлён бот на PHP. Теперь он может отправлять сообщения на мыло. Просто отправляем ему письмо в таком формате [email protected]::[email protected]::Тема письма::Содержание письма.
    PHP:
    <?php 
    /*Created by Scorpion */ 
    error_reporting (E_ALL); 
    set_time_limit(0); 
    ini_set ('max_execution_time'"0"); 
    require_once(
    'WebIcqLite.class.php'); 
    define('UIN''?????????');// Ваш номер icq 
    define('PASSWORD''pass');//Ваш  пароль 

    $icq = new WebIcqLite(); 
    if(!
    $icq->connect(UINPASSWORD)) 

        echo 
    $icq->error
        exit(); 




    while(
    $icq->is_connected()){ 
        
    $msg $icq->read_message(); 
        if (
    eregi('admin'$msg['message'])) 

    $pass=split(':',$msg['message']); 
    if(
    md5($pass[1])=='21232f297a57a5a743894a0e4a801fc3'

        
    define('ADMIN'$msg['from']); 
        
    $icq->send_message($msg['from'], 'Welcome admin');  


     else 
     { 
         
    $icq->send_message($msg['from'], 'У вас осталось x попыток' ); 
     } 

    if (
    preg_match('/^\S+@+\S+::\S+@+\S+::[^:]*::/'$msg['message'])) 

        
    $email=split('::',$msg['message']); 
         @
    mail($email[1], $email[2], $email[3], 'From:'.$email[0]);  
         
    $icq->send_message($msg['from'], 'Ваше письмо для '.$email[1].' отправлено.'); 

    else 
        switch (
    strtolower($msg['message'])) { 
             
            case 
    'привет'
            
    $icq->send_message($msg['from'], 'Привет Познакомимся?'); 
            break; 
             
            case
    'да'
            
    $icq->send_message($msg['from'], 'Я ICQ BOT Scorpion'); 
            break; 
             
            case
    'floodme':  
            for(
    $i==0;$i<50;$i++)  
            
    $icq->send_message($msg['from'],'Ненавижу флудеров'); //при использовании номер будет забанене на некоторое время 
            
    exit;  
            break;  

             
            case
    'quit'
            
    $icq->disconnect(); 
            exit; 
            break; 
             
            default: 
            
    $icq->send_message($msg['from'], 'Ты хочешь от меня слишком много, я только учусь?'); 
        } 
        
    flush(); 
        
    sleep(1); 

    ?>
    Если кому надо, могу попросить автора сделать некоторые функции.