Скажите где моя ошибка, никак нимагу авторизироваться
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, ImgList, PngImageList,
IdCookieManager;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
Bevel1: TBevel;
PngImageList1: TPngImageList;
IdHTTP1: TIdHTTP;
IdCookieManager1: TIdCookieManager;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
t: string;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
s,sres:string;
Captcha:TMemoryStream;
begin
s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
sres:=copy(s,pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48,length(s)-pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48);
sres:=copy(sres,2,pos('/>',sres));
sres:=copy(sres,1,length(sres)-4);
t:=(sres);
sres:=copy(s,pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50,length(s)-pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50);
sres:=copy(sres,2,pos('" border',sres));
sres:=copy(sres,1,length(sres)-2);
captcha:=TMemoryStream.Create;
idhttp1.Get('http://www.cproxy.com/'+sres,captcha);
captcha.SaveToFile('captcha.png');
Image1.Picture.LoadFromFile('captcha.png');
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
Var
tr : TstringList;
begin
tr:=TstringList.Create;
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$hidReg='+t);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegEmail='+Edit1.Text);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegPol='+Edit2.Text);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$btnRegSubmit=Sign Up');
idHTTP1.Post('http://www.cproxy.com/Default.aspx?pg=13&lg=3',tr);
end;
end.