прочее Сообщения в ПМ

[Zman 0]

Куплю программу для отправки в ПМ сообщений.

Пиши в ЛС, дам контакты 

 

[MikeTime 28]

Куплю программу для отправки в ПМ сообщений.

Пиши в ЛС, дам контакты 

написал 

[DeadForzz 152]

адреналин скачай    скрипт  могу дать в лс      
http://rghost.ru/7957zZCTQ
 

Изменено 19 апреля, 2015 пользователем nicky

[EliteX 157]

адреналин скачай    скрипт  могу дать в лс      

Если не затруднит и мне скрипт)

[MaHyXa 30]

адреналин скачай    скрипт  могу дать в лс      

http://rghost.ru/7957zZCTQ

 

В лс и мне скрипт, буду благодарен) 

[DeadForzz 152]

uses 

    Classes;

    var s: string;

    i: integer;

    SL: TStringList;

 

procedure OnFree;

begin

  SL.Free;

  print('Спам окончен');

end;

 

begin

  SL := TStringList.Create;

 

  while 1=1 do

  for i := 0 to CharList.count -1 do begin

    s := CharList.Items(i).name;

    if (s <> '') and (SL.IndexOf(s) = -1) then begin

      SL.add(s);

      if engine.say(' тут текст  ', 2, s) then print(s);

      

      Delay(1000);       //Задержка 1 сек после отправки.

    end else Delay(250);

  end;

end.

Изменено 19 апреля, 2015 пользователем nicky