ICQ Бот

$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");

}
}
}
?>

Нужно ставить на хост с пхп. и залить туда это(распакуй сначала) )
c99phpicq.rar
(Он приложен)
Скоро кину скрипты на vbs