Авторизация на wf.mail.ru

[KoBaL]

Здравствуйте, пытаюсь сделать авторизацию через Indy10

Сделал авторизацию, но либо куки у меня не сохраняются, либо я не знаю что, но в результате авторизации всегда нет, если в http.request.referer добавить их сайт, то возвращается пустая страница


P.S Ещё, почему-то, перестал работать http analyzer v6, просто ничего не видит в браузерах

[KoBaL]

Неужели никто не может помочь?

[fucil]

Странно что у вас Analyzer ничего не показывает! Но у меня вот все порядок вот скрин http://pix.am/LW1D/ юзайте снифер и будет вам счастье. У меня HTTPAnalyzerFull V5

На скрине все POST с параметрами и GET видны !

[KoBaL]

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

Странно что у вас Analyzer ничего не показывает! Но у меня вот все порядок вот скрин http://pix.am/LW1D/ юзайте снифер и будет вам счастье. У меня HTTPAnalyzerFull V5

На скрине все POST с параметрами и GET видны !

Я знаю, что передаётся, просто авторизации у меня как будто нет (при переходе на главную страницу просит опять авторизоваться)

[KoBaL]

Судя по всему, у меня пустые куки, что делать - непонятно

[KoBaL]

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

Здравствуйте, пытаюсь сделать авторизацию через Indy10

Сделал авторизацию, но либо куки у меня не сохраняются, либо я не знаю что, но в результате авторизации всегда нет, если в http.request.referer добавить их сайт, то возвращается пустая страница


P.S Ещё, почему-то, перестал работать http analyzer v6, просто ничего не видит в браузерах

Пробовал и через indy, и через Synapse, буду рад любым работающим примерам или мыслям в нужную сторону

Synapse:

    TStream := TStringStream.Create('');
    TStream.WriteString('name='+ GetText(True, Settings.Separator, LocalString)+'&pass='+GetText(False, Settings.Separator, LocalString)+'op=&form_build_id='+form_build_id+'&form_id='+form_id);
    TStream.Position := 0;
    _http.Document.LoadFromStream(TStream);
    if (_http.HTTPMethod('post', 'http://wf.mail.ru/node')) then
    begin
      TList.LoadFromStream(_http.Document);
      Form2.memo1.Lines.Add(utf8toansi(TList.Text));
      Form2.Memo1.Lines.add('');
      form2.memo1.lines.add(_http.Cookies.Text);
    end;
    TStream.Free;

В Memo1 не заносится абсолютно ничего, если ставить Breakpoint на начало кода, то условия просто не проходят (запросы не отправляются)

[SmoK777]

procedure TForm2.Button1Click(Sender: TObject);
var
idHTTP1:tidHTTP;
data:tstringlist;
s:string;
id:string;
begin
idHTTP1:=TIdHTTP.Create(nil);
idhttp1.AllowCookies := true;
idhttp1.HandleRedirects := true;
idhttp1.Request.Host:=('wf.mail.ru' );
idhttp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.22 (KHTML, like Gecko) Chrome/25.0.1364.172 Safari/537.22';
Idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Idhttp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
Idhttp1.Request.AcceptEncoding:='gz ip, deflate';
idhttp1.Request.Connection:='keep-alive';
idhttp1.Request.Referer:='http://wf.mail.ru/' ;
idhttp1.Request.ContentType:='appli cation/x-www-form-urlencoded';
idhttp1.CookieManager:=idCookieMana ger1;
data:=TStringList.Create;
data.Add('name=');
data.Add('pass=');
data.Add('op=');
data.Add('form_build_id=form-a68ad3bbe965349c215946128d2169a4');
data.Add('op=user_login_block');
S:=idHTTP1.Post('http://wf.mail.ru/node',data);
if pos('выйти',s)<>0 then
Showmessage('Авторизовались') else Showmessage('Не авторизовались');
memo1.Lines.Add(S);
end;

вот пробую этим кодом, выдаёт Для просмотра этой страницы необходима поддержка JavaScript и Cookie.
Как авторизироваться то?

[SmoK777]

ап!!!!!!!!

[eval]

код этот откуда?