Модуль для Skype

[bawl]

Может у кого есть примеры, для работы со скайпом из скрипта?

 

[Krickt]

Из скрипта никак.

 

[bawl]

А модуль для icq еще работает?

 

[Krickt]

@bawl, не знаю, раньше работал 100%.

 

[Ivanius]

ICQ работает, для скайпа нету уже давно ничего, у них нету АПИ и все закрыто после выкупа Мелкомягкими.

 

[bawl]

Ясно, спасибо.

 

[rsd]

//

 

[inparadise]

был где-то на форуме скрипт на аську теперь найти не могу

 

[bawl]

Пример от farmwl, вот первоисточник

uses SysUtils, ICQ;

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

type
  TMyICQ = class(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 Msg = 'Y' then begin
    MyICQ.SendMessage(ICQContact, 'ОК! Начинаю логировать...');    
    IcqLog := true;
  end;
end;

procedure Log(S: string);
begin
  if IcqLog then MyICQ.SendMessage(ICQContact, 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);
  with engine do while not User.Target.Dead do Attack(1000);
  Log('Убил моба. Мои HP = ' + inttostr(User.HP) + '%');
end;


begin
  MyICQ := TMyICQ.create;
  if MyICQ.Connect(ICQUin, ICQPas) then begin
    MyICQ.SendMessage(ICQContact, 'Привет! Это твой бот ' + User.Name);
    MyICQ.SendMessage(ICQContact, 'Тебе логировать в аську: Y / N ?');
  end;
  delay(-1);
end.

 

[Krickt]

@Ivanius, эм, через ActiveX изи работа со скайпом. Единственное различие - работа со скайпом осуществляется не напрямую с сервером, а через приложение.