TICQClient! Ответ на определённую команду!

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by _DemiX_, 2 Jul 2010.

  1. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    Всем ку!
    Люди, пытаюсь написать icq бота на delphi
    Мне нужно чтобы бот, давал ответ из memo1 на определённую команду. Подскажите плиз!!!
     
    #1 _DemiX_, 2 Jul 2010
  2. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    И что сложного? В событии о приходе сообщения, получаешь текст который прислали тебе, затем просто тупо отвечаеш на него.
     
    #2 slesh, 2 Jul 2010
  3. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    Мне нужно чтобы он отвечал автоматически. Голова уже нечего не парит, дайте код пожалуйста нубасу, если не трудно!
     
    #3 _DemiX_, 2 Jul 2010
  4. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    if input = 'привет' then
    send('Здоровались');
    else
    ....

    и так далее, но лучше создать простую нейросеть, которая заодно обучаться будет
     
    #4 Refqs, 2 Jul 2010
  5. zORG

    zORG New Member

    Joined:
    5 Jun 2010
    Messages:
    44
    Likes Received:
    2
    Reputations:
    0
    куда ему нейросеть...
    пусть основы учит
     
    #5 zORG, 2 Jul 2010
  6. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    Блин, нефига непонятно........
    Киньте весь код пожалуйста!
     
    #6 _DemiX_, 2 Jul 2010
  7. .::f-duck::.

    .::f-duck::. Member

    Joined:
    30 May 2009
    Messages:
    343
    Likes Received:
    32
    Reputations:
    7
    Ну все,пиздец.
    Раньше хоть ботов сами писали,а теперь и их не могут написать.
     
    #7 .::f-duck::., 2 Jul 2010
  8. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    ага!
     
    #8 _DemiX_, 2 Jul 2010
  9. zORG

    zORG New Member

    Joined:
    5 Jun 2010
    Messages:
    44
    Likes Received:
    2
    Reputations:
    0
    заказывай за денежку
     
    #9 zORG, 2 Jul 2010
  10. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    0_0
    Проще подожду знакомого кодера.
     
    #10 _DemiX_, 2 Jul 2010
  11. akimov_aleks

    akimov_aleks New Member

    Joined:
    3 May 2009
    Messages:
    39
    Likes Received:
    1
    Reputations:
    0
    Code:
    if Msg='Баланс' then
      begin
     ICQClient1.SendMessage(icq,balanse+' Рублей');
      end;
     
    #11 akimov_aleks, 2 Jul 2010
  12. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    Спасибо огромное!!!
     
    #12 _DemiX_, 2 Jul 2010
  13. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    и смысл тут было тему создавать то?
     
    #13 Refqs, 2 Jul 2010
  14. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    Ещё вопрос, если человек дал команду, но её нет в списке команд, то ему должно быть отправлено сообщение: "Нет такой команды". Как это реализовать?
     
    #14 _DemiX_, 2 Jul 2010
  15. _DemiX_

    _DemiX_ New Member

    Joined:
    25 May 2010
    Messages:
    51
    Likes Received:
    1
    Reputations:
    0
    Мне просто очень срочно нужно!!!
     
    #15 _DemiX_, 2 Jul 2010
  16. AlexTheC0d3r

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

    Joined:
    25 Jul 2008
    Messages:
    388
    Likes Received:
    179
    Reputations:
    18
    http://zemus.us/05/ac0d3_b0t-icq-bot.html

    все сделано до тебя, КЭП

    если уже и в этом не разберешься, то ты полный имбицил
     
    #16 AlexTheC0d3r, 2 Jul 2010
  17. FairHawk

    FairHawk Member

    Joined:
    16 Mar 2010
    Messages:
    46
    Likes Received:
    6
    Reputations:
    0
    Жесть
    ТС куда ты лезешь, если даже основ не знаешь? на каждой строчке спрашивать будешь?
    А он не разбереться
     
    #17 FairHawk, 3 Jul 2010
    Last edited: 3 Jul 2010
(You must log in or sign up to post here.)
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.