source: trollforge/unsorted/old-trollforges/old-trollforge/proj/xanga/old/source/Unit1.pas @ 605

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdCookieManager, StrUtils, DB, DBClient, Spin, Contnrs, Unit2;

type
  TfmMain = class(TForm)
    btnInit: TButton;
    mmOutput: TMemo;
    edtLoginName: TEdit;
    edtPassword: TEdit;
    lblName: TLabel;
    lblPass: TLabel;
    seCounter: TSpinEdit;
    edtProxyAdd: TEdit;
    edtProxyPort: TEdit;
    lblProxyAdd: TLabel;
    lblProxyPort: TLabel;
    btnClearData: TButton;
    lstbxIntro: TListBox;
    lstbxBody: TListBox;
    lstbxEnd: TListBox;
    btnIntroLoader: TButton;
    btnBodyLoader: TButton;
    btnEndLoader: TButton;
    odOpener: TOpenDialog;
    procedure btnInitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure btnClearDataClick(Sender: TObject);
    procedure btnIntroLoaderClick(Sender: TObject);
    procedure btnBodyLoaderClick(Sender: TObject);
    procedure btnEndLoaderClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

  SayingBoxes: array[1..3] of TListBox;
  Threadders: TSpamThread;
  ThreadList: TObjectList;

implementation

{$R *.dfm}

procedure TfmMain.btnInitClick(Sender: TObject);
begin
  Threadders := TSpamThread.Create(False);
  ThreadList.Add(Threadders);
  mmOutput.Lines.Add('Creating New Thread...');
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  Randomize;

  ThreadList := TObjectList.Create;

  SayingBoxes[1] := TListBox.Create(Self);
  SayingBoxes[2] := TListBox.Create(Self);
  SayingBoxes[3] := TListBox.Create(Self);

  SayingBoxes[1].Visible := False;
  SayingBoxes[2].Visible := False;
  SayingBoxes[3].Visible := False;

  SayingBoxes[1].Parent := Self;
  SayingBoxes[2].Parent := Self;
  SayingBoxes[3].Parent := Self;

  SayingBoxes[1].Items.Add('hi');
  SayingBoxes[1].Items.Add('whats up');
  SayingBoxes[1].Items.Add('whaddup');
  SayingBoxes[1].Items.Add('sup');
  SayingBoxes[1].Items.Add('hey');
  SayingBoxes[1].Items.Add('supsup');

  SayingBoxes[2].Items.Add('kool site. visit mine when u have a chance.');
  SayingBoxes[2].Items.Add('nice site, i really like it. hit me back.');
  SayingBoxes[2].Items.Add('whats up? just randomly came on your site. awesome!');
  SayingBoxes[2].Items.Add('i really like the layout of your site');
  SayingBoxes[2].Items.Add('wow, you seem like a real interesting person');
  SayingBoxes[2].Items.Add('just randomly going around and commenting ppls xanga''s. hit me back.');

  SayingBoxes[3].Items.Add('anyways, i''m out');
  SayingBoxes[3].Items.Add('byebye.');
  SayingBoxes[3].Items.Add('bye.');
  SayingBoxes[3].Items.Add('pz');
  SayingBoxes[3].Items.Add('peace');
  SayingBoxes[3].Items.Add('l8r');

//  lbUsernames.Items.LoadFromFile('SENT.TXT');
end;

procedure TfmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//  lbUsernames.Items.SaveToFile('SENT.TXT');
end;

procedure TfmMain.btnClearDataClick(Sender: TObject);
begin
  mmOutput.Clear;
end;

procedure TfmMain.btnIntroLoaderClick(Sender: TObject);
begin
  if odOpener.Execute then
    lstbxIntro.Items.LoadFromFile(odOpener.FileName)
end;

procedure TfmMain.btnBodyLoaderClick(Sender: TObject);
begin
  if odOpener.Execute then
    lstbxBody.Items.LoadFromFile(odOpener.FileName)
end;

procedure TfmMain.btnEndLoaderClick(Sender: TObject);
begin
  if odOpener.Execute then
    lstbxEnd.Items.LoadFromFile(odOpener.FileName)
end;

end.