ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
 
 
Опции темы Поиск в этой теме Опции просмотра

[perl] Simple ICQ bot
  #1  
Старый 19.01.2009, 22:42
Аватар для eLWAux
eLWAux
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568

Репутация: 2399


Отправить сообщение для eLWAux с помощью ICQ
По умолчанию [perl] Simple ICQ bot


простой ICQ бот на perl!, основным достоинством которого является модульность и легкость добавления новых функций.

Бот состоит из основного скрипта, к которому можно подключать плагины на PERL, неограниченно расширяя его функционал.

* Администрирование бота осуществляется по ICQ.
* Легкость разработки и установки плагинов
* Основной скрипт обладает множеством функций для упрощения разработки плагинов, благодаря чему разработка плагина фактически состоит только из написания непосредственно выполняемой им функции
* Для добавления нового плагина боту нужно всего лишь поместить файл плагина в папку плагинов и перезапустить бота.
* Огромные возможности плагинов
* Возможности плагинов ограничены лишь возможностями языка perl


для корректной работы необходим ActivePerl или любая ос *nix.

в config.ini настройки (формат: имя = значение) :
Цитата:
icq сервер:
host == login.oscar.aol.com
порт сервера:
port == 5190

номер админа:
admin == 7434214
пароль для входа в админку:
admin_password == passw
BOT_uin == uin_бота
BOT_password == пароль_uin_бота

логирование (1 - да, 0 - нет):
logging == 1
папка с логами:
log_folder == log\
режим откладки:
DEBUG == 0
папка с логами откладки:
DEBUG_folder == debug\
в plugins.ini список плагинов (в формате: команда;файл):
Цитата:
админка:
!admin;admin.pl
!exit - отключает бота:
!exit;exit.pl
!reboot - перезагрузка ПК:
!reboot;reboot.pl
!shutdown- выключение ПК:
!shutdown;shutdown.pl

написание плагина
любой программист может написать свой плагин для бота, придерживаясь спецификации языка программирования perl.
бот передает вашему скрипту следующие переменные:
* $rs - ответ сервера
* $_UIN - номер отправителя
* $_MSG - сообщение
* @_MESG - масив слов в сообщении (пример:
$_MSG = 'hello my name elwaux', тогда
@_MESG[1]='hello', @_MESG[2]='my', @_MESG[3]='name', ...)
* $admin - номер админа
* $uin - номер бота
* $password - пароль бота
* также можно получить любое значение из config.ini:
$CONFIG{имя}
(пример: в config.ini: testing == nana,
тогда чтоб получить значение имени testing: $CONFIG{'testing'})

также ви можете использовать готовие функции:
* saveFile(file, text) - сохранить text в файл file
* logIt(file, text) - ввести в лог file текст text
* auth(uin, reason) - авторизация на номер uin с причиной reason
* send_msg(uin, msg) - отправить сообщение msg на номер uin

пример плагина hello_world.pl:
(!helloword msg) - оправляет вам обратно текст msg
Код:
send_msg($_UIN,@_MEST[1]);
на команду: !helloworld testing_my_first_plugin
бот вам ответит: testing_my_first_plugin



вот и все пока..
большая просьба ко всем кто скачал:
отпишите здесь о том что вам понравилось или нет у бота, что бы вы хотели еще увидеть в нем, какие недостатки встретили.. и так далее..)
рад всем ответам!
Вложения
Тип файла: zip SimpleICQbot_eLwaux.zip (49.9 Кб, 142 просмотров)
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Icq БОТЫ NeuRonix ICQ 18 10.04.2010 23:56
Faq по Icq-хакингу ОТЕЦ ICQ 3 11.01.2007 16:26
Дырявая "аська" - мифы и реальность SK | Heaton Чужие Статьи 0 22.11.2006 08:20



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ