ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу TICQClient Проблема при рассылке! [DELPHI]
   
Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра

TICQClient Проблема при рассылке! [DELPHI]
  #1  
Старый 21.03.2008, 01:29
Аватар для De-visible
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
Lightbulb TICQClient Проблема при рассылке! [DELPHI]
Создал Массив
ICQ:array [0..29] of TICQClient;
Делаю рассылку по диапазону
edit1 - начальный(uin)
edit2 - конечный(uin)
сначала логиню все номера которые есть в LISTBOX1
потом по таймеру (2.5минуты) пытаюсь отослать
Вот код!:
-----------------------
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
text:string;
begin
text:=edit1.Text;
For i:=0 to ListBox1.Items.Count-1 Do
  Begin
  ICQ[i].SendMessage(StrToInt(Text),'Программы на заказ!');
  If Edit1.Text=Edit2.Text Then Timer1.Enabled:=false;
  Text:=IntToStr(StrToInt(Text)+1);
  end;
end;
И рассылка не происходит!
В чем может быть проблема???
Последний раз редактировалось De-visible; 21.03.2008 в 01:32.. Причина: код в теги записать забыл
 

  #2  
Старый 21.03.2008, 01:51
Аватар для Jes
Jes
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897

Репутация: 1462
По умолчанию
а клиенты все нормально логинятся ?

Ps : может пригодиться,
TICQClient - исправления, дополнения....
Какер.ру "Тётя ася"
 

  #3  
Старый 21.03.2008, 01:54
Аватар для De-visible
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
А вот как это просмотреть кто из них залогинился а кто нет!?
Никак не получается!
 

  #4  
Старый 21.03.2008, 01:58
Аватар для Jes
Jes
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897

Репутация: 1462
По умолчанию
icq.OnLogin
icq.OnConnectionFailed
 

  #5  
Старый 21.03.2008, 02:04
Аватар для De-visible
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
Цитата:
icq.OnLogin
icq.OnConnectionFailed
__________________
Это понятно!
Вот как им пользоваться - вписываю в условие IF then else - не катит как быть?
Как правильно обрабатывать?
 

  #6  
Старый 21.03.2008, 02:10
Аватар для Ergoproxy
Ergoproxy
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
Провел на форуме:
9332138

Репутация: 476
Отправить сообщение для Ergoproxy с помощью ICQ
По умолчанию
if F_Main.ICQCl.LoggedIn = True then
ICQTox_Disconnect else
ICQTox_Login(StrToInt(Edit_Login.Text),Edit_Pass.T ext,0);

Чёто тип такого я сам писал ток давно))
 

  #7  
Старый 21.03.2008, 02:26
Аватар для Ergoproxy
Ergoproxy
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
Провел на форуме:
9332138

Репутация: 476
Отправить сообщение для Ergoproxy с помощью ICQ
По умолчанию
Нашёл весь код вот это работало всё)щяс хз непроверял
 

  #8  
Старый 22.03.2008, 02:45
Аватар для De-visible
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
Вопрос решен!
 

  #9  
Старый 22.03.2008, 13:05
Аватар для Jes
Jes
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897

Репутация: 1462
По умолчанию
Решение в студию?
 

  #10  
Старый 22.03.2008, 20:34
Аватар для De-visible
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
Цитата:
Сообщение от Jes  
Решение в студию?
Конечно Jes:
Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
 nUin: string;
begin
 nUin := Edit1.Text;
 For i := Low(ICQ) to High(ICQ) do
 begin
  if i > High(ICQ) then break;
  if Assigned(ICQ[i]) then
  begin
   if ICQ[i].LoggedIn then
   begin
    ICQ[i].SendMessage(StrToInt(nUin), 'Darova');
    If Edit1.Text=Edit2.Text Then Timer1.Enabled := false;
    nUin := IntToStr(StrToInt(nUin)+1);
   end;
  end;
  Edit1.Text := nUin;
 end;
end;
 
Закрытая тема



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перехват Gsm пакетов SNIFF Сотовый фрикинг 16 27.12.2009 22:25
Как «растянуть» аккумулятор novichok Сотовый фрикинг 4 28.02.2006 22:47
химия своими руками silveran Болталка 43 11.01.2006 22:05
ВАЖНАЯ ПРОБЛЕМА!!! Sn_key Уязвимости 13 08.06.2005 15:50



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ