Работа с TICQClient_v1.34.1

[DeTLeR]

Привет всем программерсы =)
хочу спросить у вас кто знает как можно реализовать отправку сообщ в ICQ
с помощью TICQClient так чтобы подключался 1 уйн. и с этого 1уйна шла отправка по диапазону от "edit1" до "edit2"
т.е там где эдиты там указываем uin'ы

[Noor]

В цикле проходи по всем уинам и отправляй

[DeTLeR]

я знаю что в цикле) я хочу увидеть код как это выглядит зачем бы я тут писал)

[Noor]

Сообщение от DeTLeR

я знаю что в цикле) я хочу увидеть код как это выглядит зачем бы я тут писал)

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

Уины лучше держать не в Edit, а в ListBox или в Memo (одна строка - один уин)
Под рукой делфика нету,проверить не могу.Примерный код

var
i:integer;
...
begin
//предпочтительно сделать небольшую задержку перед отправками, примерно 2 сек. Sleep(2000);
   for i:=0 to Memo1.lines.count-1 do
     begin
       icqclient1.sendmessage(strtoint(memo1.lines[i]),'текст сообщения');
     end;
end;

[DeTLeR]

с циклом вот прошлый раз работал ток эт было вроде ддоса на аську :D

procedure TForm1.RxGIFAnimator2Click(Sender: TObject);
begin
ICQClient1.UIN:=(StrToInt(Edit2.Text));
icqclient1.password:=Edit3.Text;;
icqclient1.login();
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
var a: Integer;
begin
for a:=1 to 1000 do
begin
icqclient1.SendMessage(StrToInt(Edit1.Text),Memo1.text);
end;
end;

вот что то из этого сформировать бы правильно.
в смысле уйны лучше не держать в едите? едит 1 и 2 там задается диапазон...
а вот едит 3 и 4 у меня уйн с паролем. хочу чтобы с 1 уйна отправляло сообщения номерам в аси по диапазону

[Noor]

У вас определенный диапазон уинов или вы сами , рендомно, формируете уин и отправляете на него сообщения. Сформируйте весь диапазон уинов в Memo и попробуйте код из поста #4

[DeTLeR]

диапазон уйнов такой какой задаст пользователей (это типа спама асекью)
скорее всего определенный какой моз учудит у пользователя) а не рандомный через программу. все конфигурации задает человек.
ВОТ тебе образное представления программы

[Noor]

Получается диапазон будет иметь вид Edit1+1 до Edit2 (111,112,113 ... 221,222) ?

Тогда так

uses math;
...
var x,y,i:Integer;
begin
{edit2 начало диапазона,edit3 конец диапазона.
Желательно предусмотреть случай когда edit2 > edit3, а то сформирует список с диапазоном от edit3 до edit2}
  x:=min(strtointdef(edit2.text,0),strtointdef(edit3.text,0));
  y:=max(strtointdef(edit2.text,0),strtointdef(edit3.text,0));
  for i:=x to y do
begin
Sleep(2000);//задержка между отправками сообщений, можно сделать ее опциональной для удобства и расширения функционала
  icqclient1.SendMessage(i,'текст_сообщения');
end;
end;

Опять таки, как по мне, так лучше сделать общий список уинов в ListBox или Мemo с возаможностью загружать в них список уинов из файла.В свою очередь в файл, список уинов, можно сформировать где угодно и как угодно (Хоть в Excel) + предусмотреть возможность добавления определенного уина вручную.
Вот пример

[DeTLeR]

спасибо) выручил)