Реггер на nextmail.ru

[Luke]

Доброе время суток.
Пишу реггер для nextmail.ru с автораспознаванием капчи.

procedure TfMain.btnStartClick(Sender: TObject);
var
  Data: TIdMultiPartFormDataStream;
  CCode, CID, CKey: String;
  htm: string;
  i, flag: DWORD;
  req: TStringList;
  CM : TIdCookieManager;
  mem: TMemoryStream;
begin
  CM := TidCookieManager.Create(HTTP);
  http.AllowCookies := true;
  http.CookieManager := CM;
  
  http.Get('http://www.nextmail.ru');
  Data := TIdMultiPartFormDataStream.Create;
  Data.AddFormField('name', '');
  Data.AddFormField('domain', 'nextmail.ru');
  Data.AddFormField('x', '60');
  Data.AddFormField('y', '14');
  http.Request.ContentType := 'text/html';
  http.Request.Accept := 'text/html';
  mem := TMemoryStream.Create;
  //Выдергиваем ссылку на капчу
  log.Lines.Text := http.Post('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.', Data);
  CCode := copy(log.Lines.Text, pos('/au/code.phtml?u=', log.Lines.Text) + 17, 13);
  http.Request.ContentType := '*/*';
  http.Request.Accept := 'image/jpeg';
  http.Get('http://nextmail.ru/au/code.phtml?u=' + CCode, mem);
  mem.SaveToFile('captcha.jpeg');
  mem.Destroy;
  //Тут распознается ключ капчи, без ошибок 100%, распознавание происходит из сохраненного файла
  CKey := GetKey();
  Data.Destroy;
  req := TStringList.Create;
  http.Request.Accept := 'text/html';
  req.Add('todo=obliginfo');
  req.Add('name=bdfygsdbdhfdbtr1132');
  req.Add('domain=nextmail.ru');
  req.Add('password=qwerty132');
  req.Add('pwdconf=qwerty132');
  req.Add('fullname=dfjksgfk');
  req.Add('sex=Male');
  req.Add('bday=2009-08-05');
  req.Add('regcode=' + CKey);
  req.Add('agreed=yes');
  req.Add('question=');
  req.Add('manualquest=');
  req.Add('answer=');
  req.Add('email=');
  req.Add('timezone=3');
  req.Add('antibot=6238');
  Log.lines.text := http.Post('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.nextmail_oru', req);
end;

Прочитал все темы данной тематики, не помогло.
Прошу посоветовать, как быть=)

[AquaKlaster]

Я тож пробывал писать, сразу скажу там проблемы с Java Skripts

[Пепел Феникса]

сниферим все запросы браузера и не паримся со скриптами.

[Luke]

Пепел Феникса, снифал, вроде шлю теже... Но что то не так...

AquaKlaster, написал?=)

[AquaKlaster]

Пепел Феникса, тоесть повторить всё что отправляетъ\гетит браузер?

[Пепел Феникса]

ну не все...но параметры запроса нам точно нужны(не все из них еще постоянны)

куки менагер есть и подключен??

[AquaKlaster]

Пепел Феникса, я когда присал такуой регер то всё парсил но в ответ пост запроса пришла ошибка "Включите Java Skripts "

[Пепел Феникса]

значит некоторые поля(под запросы) нужно копировать

[Luke]

Сообщение от Пепел Феникса

куки менагер есть и подключен??

CM := TidCookieManager.Create(HTTP);
  http.AllowCookies := true;
  http.CookieManager := CM;

Все есть=)

[AquaKlaster]

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

AquaKlaster, написал?=)

К сожилению помешали скрипты эти(((