ANTICHAT

ANTICHAT (https://forum.antichat.xyz/index.php)
-   Избранное (https://forum.antichat.xyz/forumdisplay.php?f=89)
-   -   Antichat ICQ BOT (https://forum.antichat.xyz/showthread.php?t=39979)

Ad 13.05.2007 08:37

Бот написан на Php?

Isis 13.05.2007 19:34

Функция .search будет реализована завтра....
Вопрос тем кому нужны сорцы...
Вам нужен класс или функции бота?
Функции пока не получит никто, а класс в паблике!

GlobaL 13.05.2007 19:35

Цитата:

Сообщение от d1n
Бот написан на Php?

А разве их еще на чемто пишкт?


Афтару респект!

Isis 13.05.2007 19:40

Цитата:

Сообщение от GlobaL
А разве их еще на чемто пишкт?

На С++, Delphi, basic и прочих языках можно написать бота:)
Главное класс

n3m0 13.05.2007 22:03

Так какой всётаки ты класс используеш?? Лайт или Про??
Мож выложить твою версию
И есть вопрос, как ты читаеш параметр к команде?? .cmd <param> . как прочитать параметр??? У меня никак неполучается
Прошу Дать пример и класс твой Пожайлуста

Isis 13.05.2007 23:56

В боте у меня и класс не паблик....
Модифицированный с99 класс by Blizzard :)
Команды читаю так:
PHP код:

if($msg_text == 'privet')
sendMSG($sendto,'hiiii :)'); 


n3m0 14.05.2007 10:40

Ну а если допустим, команда с параметром .ping <server> , как считать параметр??
Я делал так(только ето на другом боте)
Код:


 $full = $cfg['msg']['message'];
$comm = "";
$mess = "";
for($i = 0; $i < strlen($full); $i++)
{
    $chr = $full[i];
    if ($chr == " ") $mess .= $chr;
    else $comm .= $chr;
}

Ну а потом я ставил уже свитч на $comm, но параметр, который записуется в $mess неотображается, почемуто пустой. Использую класс WebIcqLite

Кста, можна в твоего бота всунуть пинговалку, и другие утилиты(whois,tracerout)
Вот есть скриптики
Код:

Function whois ($a_server, $a_query="", $a_port=43) {
    $sock = fsockopen($a_server, $a_port, &$errno, &$errstr, 10);
    if (!$sock)
    {
        echo "$errstr ($errno)<BR>\n";
    } else {
        fputs($sock, "$a_query\r\n");
        while(!feof($sock))
        {
            $buf = fgets($sock,128);
            if (ereg( "Whois Server:", $buf))
            {
                $a_server = str_replace( "Whois Server: ",  "", $buf);
                $a_server = trim($a_server);
            }
        }
        fclose($sock);
       
        if ($a_server)
        {
            print "<B>$a_query is registered at $a_server:</B><BR>";
            $sock = fsockopen($a_server, 43, &$errno, &$errstr, 10);
            if(!$sock)
            {
                echo "Could not open connection to $a_server on port
$a_port.\n";
                echo "$errstr ($errno)<BR>\n";
            } else {
                fputs($sock, "$a_query\r\n");
                while(!feof($sock))
                {
                  echo fgets($sock,128);
                }
                fclose($sock);
            }
        } else {
            echo "<b>$a_query was not found.</b><BR>";
        }
    }
}

Function traceroute ($a_query) {
    exec("traceroute $a_query",$ret_strs);
    $str_count = count($ret_strs);
    for ($count=0; $count < $str_count; $count++)
        print "$count/$str_count".$ret_strs[$count]."\n";
}


Isis 14.05.2007 13:27

Чтобы так делать надо сделать так:
PHP код:

<?php
if (preg_match("#.md5\s+(.+)#i"$msg_text$msg)) {
$orig_text $msg[1];
$text md5($msg[1]);
$send $orig_text." ==> ".$text;
}
?>

Где $msg это слово/предложение после команды .md5

le_san 14.05.2007 16:50

классный бот, автор молодец)
ждем функцию поиска) она очень нужна, это, имхо, удобнее...
а еще реально реализовать запрос по базе 6 знаков? мне кажется, не помешает)

Isis 14.05.2007 17:19

Ближе к вечеру несколько функций добавлю...
Так вопрос...
Насчет базы 6знаков .... Как сделать эту функцию?
.6-dig
И он выведит всю базу или чего?:)


Время: 10:31