Перейти к содержимому

Фотография
- - - - -

Уведомления по ICQ

icq

  • Авторизуйтесь для ответа в теме
Сообщений в теме: 2

#1
Murz77

Murz77
  • 1
    0
    Не выбрано
    • Гремлин
    • Пользователь
Всем привет!
В инструкциях нашёл пример использования ICQ для отправки оповещений:
 
uses SysUtils, ICQ;
 
const
  ICQ_UIN = 123456;         // ICQ на которую будет заходить бот
  ICQ_PASSW = 'passw';      // Пароль для входа
  ICQ_CONTACT = 11223344;   // ICQ кому нужно писать
 
type
  TMyICQ = class(TICQ)  // Объявляем свой класс, наследуемый от TICQ
  public
    procedure OnMessageRecv(Sender: TObject; Msg, UIN: string); override;  // переобозначаем событие на входящие сообщения
  end;
 
var
  MyICQ: TMyICQ;
  IcqLog: boolean = false;
 
procedure TMyICQ.OnMessageRecv(Sender: tobject; Msg, UIN: string);
begin
  if (UpperCase(Msg) = 'Y') then begin                                       // если нам ответили да, то 
    MyICQ.SendMessage(ICQ_CONTACT, 'ОК! Начинаю логировать...');             // пишем сообщение в ответ
    IcqLog:= true;                                                           // и включаем логирование      
  end;
end;
 
procedure Log(S: string);
begin
  if IcqLog then MyICQ.SendMessage(ICQ_CONTACT, S);
end;
 
procedure OnFree; //Вызывается перед остановкой скрипта, для очистки ресурсов
begin
  Log('Отключаюсь');
  IcqLog:= false;
  MyICQ.Free;
end;
 
procedure Fight;
begin
  Log('Иду убивать его: ' + User.Target.Name);  
  if User.DistTo(User.Target) > 100 then Engine.MoveToTarget(-50);
  while (not User.Target.Dead) do Engine.Attack();
  Log('Убил моба. Мои HP: ' + IntToStr(User.HP) + '%');
end;
 
begin
  MyICQ := TMyICQ.create;
  if MyICQ.Connect(ICQ_UIN, ICQ_PASSW) then begin
    MyICQ.SendMessage(ICQ_CONTACT, 'Привет! Это твой бот ' + User.Name);
    MyICQ.SendMessage(ICQ_CONTACT, 'Тебе логировать в аську: Y / N ?');
  end;
  Delay(-1);
end.
 
Но если вписать сюда логин/пароль от аськи, номер аськи, на которую отправлять уведомления, вставить это в адреналине в поле Скрипт и запустить - никаких ошибок не появляется, но сообщения на аську не приходят...
Подскажите плз, как сделать, чтобы уведомления начали приходить?
Хочу сделать уведомления о том, если бот поднимет нужные вещи.

  • 0

#2
ScythLab

ScythLab

Может быть проблема в том что 28 декабря 2018 года mail.ru отключили старый протокол, т.е. закрыли доступ ко всем альтернативным клиентам аськи?


Сообщение отредактировал ScythLab: 14 Август 2019 - 11:54

  • 0

Хобби: разработка непубличного бота для Lineage


#3
agm

agm

Murz77, зачем использовать icq, если есть возможность работать с чем то более современным и менее зависимым от политики компании?


  • 0


Количество пользователей, читающих эту тему: 2

0 пользователей, 2 гостей, 0 анонимных

Rawr.pro - Сделано с для игроков.