Тема: ICQ Bot
Показать сообщение отдельно

Обновление
  #20  
Старый 10.04.2007, 21:19
NOmeR1
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,187
С нами: 10495046

Репутация: 2642


По умолчанию Обновление

Обновлён бот на PHP. Теперь он может отправлять сообщения на мыло. Просто отправляем ему письмо в таком формате otkogo@mail.ru::komy@mail.ru::Тема письма::Содержание письма.
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(UIN, PASSWORD)) 
{ 
    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); 
} 
?>
Если кому надо, могу попросить автора сделать некоторые функции.
 
Ответить с цитированием