Подскажите что не так...

[SynonymMixer]

Начал писать реггер для Lopas.Ru, но вот что-то не получается, может кто то подскажет что не так, и какую какую литература почитать на тему Post и Get запросов...

unit Lopas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,PNGImage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls, ExtCtrls, IdCookieManager, IdCookie;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Edit4: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
captcha:TMemoryStream;
Data:TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Data:=TStringList.Create;
Data.Add('username='+Edit1.Text);
Data.Add('password='+Edit2.Text);
Data.Add('password2='+Edit2.Text);
Data.Add('email='+Edit3.Text);
Data.Add('security_code='+Edit4.Text);
Data.Add('agree=1');
Data.Add('Submit=Регистрация');
idhttp1.Request.Referer:='http://lopas.ru/signup.php';
Memo2.Text:=idhttp1.Post('http://www.lopas.ru/signup.php',data);
Data.Free;
MessageDlg('!!!',mtinformation,[mbOK],0);
Memo1.Lines.add(Edit1.Text);
Memo1.Lines.add(Edit2.Text);
Memo1.Lines.add(Edit3.Text);
Memo1.Lines.SaveToFile('acc.txt');
Memo2.Lines.SaveToFile('post.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
var CM : TIdCookieManager;
begin
CM := TidCookieManager.Create(IdHTTP1);
IdHTTP1.AllowCookies := True;
IdHTTP1.CookieManager := CM;
IdHTTP1.HandleRedirects := True;
captcha:=TMemoryStream.Create;
idhttp1.Get('http://lopas.ru/signup.php');
idhttp1.Get('http://lopas.ru/seccode.php',captcha);
captcha.SaveToFile('captcha.png');
Image1.Picture.LoadFromFile('captcha.png');

end;

end.

[Dj_smart]

Ну, idHttp1.Post это функция, ну и посмотрите что вам выдал сервер.
Да и как оформлять post-запросы следует почитать...

[Denager]

А про cookies не забываешь?

[SynonymMixer]

Я же подключил IdCookieManager, IdCookie...
Выложил полный код в первом посте

[Denager]

Сорь, не заметил.
Сейчас набросал, посмотрел что шлет браузер и твоя программа, итого:

По нажатию на кнопку, перед строкой

Memo2.Text:=idhttp1.Post('http://www.lopas.ru/signup.php',data);

Необходимо прописать

idhttp1.Request.Referer:='http://lopas.ru/signup.php';

Поэтому у тебя в программе и появлялась капча "следующей" новой регистрации, т.к. серверу не передавалась эта строка реферра

И где

Data.Add('checkbox=1');

Должно быть
Data.Add('agree=1');

И все прекрасно у меня зарегалось

[SynonymMixer]

Спасибо.

[SynonymMixer]

Denager, не подскажешь в чём тут может быть проблема?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, ExtCtrls, Jpeg, IdCookieManager, IdCookie;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Button2: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Image1: TImage;
    Button3: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
Data: TStringList;
s,s2:String;
kod:TMemoryStream;
jpeg: TJPEGImage;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Data:=TStringList.Create;
idhttp1.Get('http://id.rambler.ru/script/newuser.cgi');
Data.Add('back=''');
Data.Add('step=one');
Data.Add('login='+Edit1.Text);
Data.Add('firstname='+Edit2.Text);
Data.Add('lastname='+Edit3.Text);
Data.Add('submit=  Продолжить  ');
s:=idhttp1.Post('http://id.rambler.ru/script/newuser.cgi',data);
Data.Free;
Memo1.Text:=s;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit4.Text:=copy(s,pos('name="number" value=',s)+21,32);
kod:=TMemoryStream.Create;

end;

procedure TForm1.Button3Click(Sender: TObject);


begin


Data:=TStringList.Create;
Data.Add('back=''');
Data.Add('step=one');

Data.Add('login='+Edit1.Text);
Data.Add('domain=rambler.ru');
Data.Add('firstname='+Edit2.Text);
Data.Add('lastname='+Edit3.Text);

Data.Add('password='+Edit5.Text);
Data.Add('password2='+Edit5.Text);
Data.Add('question=Девичья фамилия матери');
Data.Add('answer='+Edit6.Text);
Data.Add('icq_mode=getnew');
Data.Add('gender=gender_1');
Data.Add('news=1');
Data.Add('number='+Edit4.Text);
Data.Add('hash='+Edit7.Text);
Data.Add('submit=Зарегистрировать имя');
s2:=idhttp1.Post('http://id.rambler.ru/script/newuser.cgi',data);

Memo1.Text:=s2;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
kod.SaveToFile('C:\kod.jpg');
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100;
jpeg.LoadFromFile('C:\kod.jpg');
Image1.Picture.Bitmap.Assign(Jpeg);
finally
jpeg.Free;
end;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
idhttp1.Get('http://id.rambler.ru/captcha/'+Edit4.Text+'.jpg',kod);

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Memo1.Text:='';
end;

end.

[Denager]

SynonymMixer, а в этом коде что не так?
Ставь снифер и смотри, что шлет браузер и что получается у тебя, и формируй запросы 1:1

[SynonymMixer]

Сообщение от Denager

SynonymMixer, а в этом коде что не так?
Ставь снифер и смотри, что шлет браузер и что получается у тебя, и формируй запросы 1:1

Вот задался сегодня вопросом какой снифер поставить, посмотрел нечего нормального не нашел. Может быть поделитесь секретом какой снифер лучше использовать =)

[Denager]

CommView
Ethreal