Скрипт для лога в ICQ

[PandaTrader]

Привет всем.Ищу рабочий скрипт для вывода лога в ICQ.Тот который на форуме,выдаёт ошибку в 1-й же строке.

 

[Agonia]

Я досихпор не смог понять некоторые аспекты скрипта исходника, если поможет на, для моих целей больше и не нужно было, если кто сможет поправить, подсказать, с удовольствием выслушаю(именно как работает: отсылка сообщения из СВОЕЙ ICQ на ICQ БОТА и обработка сообщения)

uses SysUtils, ICQ;

const ICQUin = 1111111; //ICQ на которую будет заходить бот
ICQPas = '11111111'; //Пароль для входа
ICQContact = 111111111; //ICQ кому нужно писать

type
TMyICQ = class(TICQ)
end;

var
MyICQ: TMyICQ;
IcqLog: boolean = false;


procedure OnFree;
begin
Print('Dissconnected');
MyICQ.Free;
end;

procedure IcqFirst;
begin
MyICQ := TMyICQ.create;
   if MyICQ.Connect(ICQUin, ICQPas) then begin
      MyICQ.SendMessage(ICQContact, '>>>CONNECTED<<<');
      end else begin
      MyICQ.Free;
      exit();
   end;
end;

////////Основа
begin
IcqFirst;

MyICQ.SendMessage(ICQContact,'>>>ALO PRIEM');

end.

 

[PandaTrader]

uses SysUtils, ICQ; const ICQUin = 1111111; //ICQ на которую будет заходить бот ICQPas = '11111111'; //Пароль для входа ICQContact = 111111111; //ICQ кому нужно писать type TMyICQ = class(TICQ) end; var MyICQ: TMyICQ; IcqLog: boolean = false; procedure OnFree; begin Print('Dissconnected'); MyICQ.Free; end; procedure IcqFirst; begin MyICQ := TMyICQ.create; if MyICQ.Connect(ICQUin, ICQPas) then begin MyICQ.SendMessage(ICQContact, '>>>CONNECTED<<<'); end else begin MyICQ.Free; exit(); end; end; ////////Основа begin IcqFirst; MyICQ.SendMessage(ICQContact,'>>>ALO PRIEM');

Вот как раз таки проблема в 1-й же строчке.

 

[Agonia]

Вот как раз таки проблема в 1-й же строчке.

если проблемма в 1й строчке, ищи проблемму у себя, перед тем как скинуть, запускал у себя

 

[PandaTrader]

Я просто не могу понять,в чём,блядь,ошибка.

 

[PandaTrader]

@Agonia, может есть какие-то библиотеки под этот скрипт?

 

[rsd]

@PandaTrader, конечно есть, только в версии по старше

 

[Agonia]

Только спалил, что он 1.61 походу юзает

 

[PandaTrader]

1.71 работает?

 

[JoBlack]

Пользуется ли сейчас кто ICQ модулем? Какой сервер порт используете? Вчера к этому не смог приконнектиться возвращает ложь.. Хотя с проги зашел..

function Connect(UIN : Cardinal; const Password : string; const Server : string = 'login.icq.com'; Port : Word = 5190; TimeOut : Byte = 5) : Boolean;