29.12.2009, 23:00
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
Провел на форуме:
152084
Репутация:
8
|
|
Сообщение от Keltos
Вот тут нужна помощь)
Вот обработка в TICQ:
Код:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
LogFile: TextFile;
ICQ: Cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg);
if Msg= 'ник' then
ICQClient1.SendMessage(icq, 'вы успешно зареганы')
else
ICQClient1.SendMessage(icq, 'Команда не найдена!');
end;
как сделать чтобы команда "ник" писалась так: "ник желаемый ник" (пример: ник павел) как я понял надо что-то добавить в строке:
Код:
if Msg= 'ник' then
ICQClient1.SendMessage(icq, 'вы успешно зареганы')
подскажите что добавить чтобы была команда не просто слово ник а через пробел ещё слово можно написать было эм ну msg:string в чём собственно проблемма?
и зачем ещё одно слово??
if msg='f*ck my brain'
then .... тра ля ля .
при том почему бы в процедуре ввод ника не сделать.
ты бота пишешь или что?
Последний раз редактировалось n1ghtstalker; 29.12.2009 в 23:04..
|
|
|