21.12.2008, 16:05
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Я новичек в делфи, так что просьба не пинать =) В общем пишу я icq бота при помощи модуля TICQClient от Царя. В общем вот процедура реагирующая на прием сообщений
Код:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
icq: cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg); //Добавляем полученное сообщение в Memo1
if Msg='/Disconnect' then ICQClient1.Disconnect;
if Msg='help' then ICQClient1.SendMessage(icq,'Команды: "22"-расписание')
end;
Вот примерно такое, но я хочу реализовать там расписание пар и как сделать так чтобы например я со своего icq отправил сообщение типа %%Социология ОАП ВМ
и он распознавал что стоит после знаков %% и прикручивал этот текст к команде "22".
Тоесть любой желающий пишет боту 22 а он выдает:
Социология ОАП ВМ.
Думаю я ясно обьяснил. Жду вашей помощи |
|
|