unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, StdCtrls, ComCtrls, IdAntiFreezeBase, IdAntiFreeze, ShellAPI,
sSkinManager, sPageControl, acProgressBar, sCalculator, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
IdHTTP1: TIdHTTP;
IdCookieManager1: TIdCookieManager;
Edit3: TEdit;
Label3: TLabel;
Label4: TLabel;
Button2: TButton;
Button3: TButton;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Button4: TButton;
Label6: TLabel;
Edit6: TEdit;
Button5: TButton;
Label7: TLabel;
Label8: TLabel;
Edit7: TEdit;
Button6: TButton;
Button7: TButton;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
IdAntiFreeze1: TIdAntiFreeze;
sSkinManager1: TsSkinManager;
sPageControl1: TsPageControl;
sTabSheet1: TsTabSheet;
sTabSheet2: TsTabSheet;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button10Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=93');
list.Add('amount=' + Edit11.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button11Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=64');
list.Add('amount=' + Edit12.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button12Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=65');
list.Add('amount=' + Edit13.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button13Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=66');
list.Add('amount=' + Edit14.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button14Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=67');
list.Add('amount=' + Edit15.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button15Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=68');
list.Add('amount=' + Edit16.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button16Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=69');
list.Add('amount=' + Edit17.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button17Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=70');
list.Add('amount=' + Edit18.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button18Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=71');
list.Add('amount=' + Edit19.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
data: TStringList;
html, s1, s2, s3, s4: string;
list: TStringList;
begin
list := TStringList.Create();
try
list.Add('loginForm_default_username=' + Edit1.Text);
list.Add('loginForm_default_password=' + Edit2.Text);
s1 := IdHTTP1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0', list);
s2 := Copy(s1, Pos('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/GameAPI.php?req=', s1), length(s1));
Delete(s2, Pos('&ref_pid', s2) - 14, length(s2));
s3 := IdHTTP1.Get(s2);
except
end;
if Pos('dosid', s3) <> 0 then
Label4.Caption := 'Зашли'
else
Label4.Caption := 'НЕ зашли';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If Edit2.PasswordChar = #0 then
Edit2.PasswordChar := '*'
else
Edit2.PasswordChar := #0;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
list: TStringList;
s1, s2, s3: string;
begin
list := TStringList.Create();
try
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=93');
list.Add('amount=' + Edit4.Text);
list.Add('x=63');
list.Add('y=13');
s1 := IdHTTP1.post('http://' + Edit3.Text +
'.darkorbit.bigpoint.com/indexInternal.es', list);
except
end;
if Pos('infoPopup', s1) <> 0 then
ShowMessage('Ставка сделана')
else
ShowMessage('Ошибка');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sPageControl1.Pages[1].TabVisible := true;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form2.show;
end;
end.