Бот для чата - ржачный бот для чата на Delphi :))) помогаем=)

Discussion in 'Болталка' started by kykyi, 2 Jan 2012.

  1. kykyi

    kykyi Member

    Joined:
    28 Jun 2010
    Messages:
    31
    Likes Received:
    9
    Reputations:
    1
    Совершенно случайно зашел по ссылке
    http://nekto.me/chat/
    и увидел чаты
    В отличие от обычных чатов тут общаются по двое :)
    и чаты называются анонимные

    Вчера был новый год и я решил немного поразвлечься =)
    закуской ко спиртному под рукой оказалась Delphi :D
    Я решил написать бота который бы сам заходил в чат и сам общался

    Давайте вместе будем его тестировать

    Это сырая версия, глючит иногда и т.д.
    Все дело в спиртном - его было мало

    По ссылке я разместил программу, в ней всего 2 кнопки
    В программе встроенный браузер

    Что нужно делать:
    Запускаем программу и жмем на кнопку
    Смотрим если ктото напечатал текст то просто наблюдаем изредка помогая программе
    Если никого нет то перезапускаем прогу либо чат во встроенном браузере

    Качаем прогу с исходником

    http://dump.ru/file/5535035

    это сырая версия не пинать

    помогите составить базу для бота

    пример
    разделитель ===
    всего 4
    1===2===3===4
    1 вопрос в чате
    2 ответ на вопрос
    3 еще один ответ как связка
    4 просто вопрос

    разделитель |

    1|1|1===2|2|2===3|3|3===4|4|4

    В общем все довольно приметивно

    Вирусов нет, я уже давно тут никогда вирусов не пихал никому


    Просьба ко всем кто будет тестить
    Скидывайте сюда историю переписки
    чтобы я мог усовершенствовать программу!!!

    пример внизу

    ВЫ - это программа отвечает

    [​IMG]
     
    #1 kykyi, 2 Jan 2012
    Last edited: 3 Jan 2012
    1 person likes this.
  2. kykyi

    kykyi Member

    Joined:
    28 Jun 2010
    Messages:
    31
    Likes Received:
    9
    Reputations:
    1
    поменял ссылку на исходник
    бот более усовершенствован
    исходник с программой можно скачать по ссылке
    http://dump.ru/file/5535035

    так же общение на эту тему ведется тут
    http://forum.xakep.ru/m_2596065/tm.htm
     
    1 person likes this.
  3. Ereee

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

    Joined:
    1 Dec 2011
    Messages:
    560
    Likes Received:
    370
    Reputations:
    267
    Я когда то такое на Pascal делал :D

    P.S. Выводит ошибку.
     
    #3 Ereee, 3 Jan 2012
    Last edited: 3 Jan 2012
  4. kykyi

    kykyi Member

    Joined:
    28 Jun 2010
    Messages:
    31
    Likes Received:
    9
    Reputations:
    1
    он ошибку не выводит - это ночью чат не работает, нужно днем

    новая база для бота
    удаляем из программы схожий текст и вставляем этот
    тогда бот еще продвинутей

    http://forum.xakep.ru/m_2596065/tm.htm#2596478

    пример общения нового бота

     
    #4 kykyi, 3 Jan 2012
    Last edited: 3 Jan 2012
  5. kykyi

    kykyi Member

    Joined:
    28 Jun 2010
    Messages:
    31
    Likes Received:
    9
    Reputations:
    1
  6. iSmily

    iSmily New Member

    Joined:
    5 Feb 2012
    Messages:
    16
    Likes Received:
    0
    Reputations:
    0
    Что за чат такой неадекватный?