Суббота, 28.11.2020, 11:34 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » SMS Floode (TICQClient)
SMS Floode
alex0097Дата: Пятница, 19.10.2012, 22:48 | Сообщение # 1
Частый гость
Зарегистрирован: 11.07.2010
Группа: Пользователи
Сообщений: 51
Статус: Offline
Дело в том что не пашет. Возможно старый TICQClient. Кто что скажет по этому поводу?
Стоит TICQClient 1.34.1

Code
unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ICQClient, StdCtrls;

type
    TForm1 = class(TForm)
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Button1: TButton;
      ICQClient1: TICQClient;
      procedure Button1Click(Sender: TObject);
      procedure ICQClient1Login(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    ICQClient1.UIN := 99999999; // где XXXXXXXXX - номер зарегистрированного ICQ-аккаунта
    ICQClient1.Password := '9999999'; // где pwd - пароль зарегистрированного ICQ-аккаунта
    ICQClient1.Login(); // авторизируемся <img src="http://s5.ucoz.net/sm/23/smile.gif" border="0" align="absmiddle" alt="smile" />
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
var
    I: Integer;
begin
    for I := 0 to 20 do
    begin
      ICQClient1.SendSMS(Edit1.Text , '(' + Edit2.Text + ' , ICQ) ' + Edit3.Text);
    end;
end;

end.


Сообщение отредактировал alex0097 - Пятница, 19.10.2012, 22:48
 
alex0097Дата: Пятница, 19.10.2012, 22:57 | Сообщение # 2
Частый гость
Зарегистрирован: 11.07.2010
Группа: Пользователи
Сообщений: 51
Статус: Offline
Пробоал так же на TICQClient 1.35

В чем может быть ошибка?


Сообщение отредактировал alex0097 - Пятница, 19.10.2012, 23:10
 
dolphinДата: Суббота, 20.10.2012, 14:11 | Сообщение # 3
Администратор
Сообщений: 906
Статус: Offline
Эта процедура не работает уже с 2002 года вроде бы, а всё ещё остаётся в клиенте. Зато в Mail клиенте работает, перебирайся на него http://delfcode.ru/forum/18-409-1.
 
delphicode » Delphi » Вопросы по Delphi » SMS Floode (TICQClient)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2020 Хостинг от uCoz