авторизация в яндексе

[DeDoK]

Прошу помочь авторизоватся в яндекс почте, хочу свой почтовик
пробовал и через IdHTTP и через POP3 и через SMTP
результата ноль. через бразуер заходит. покурил мануалы - сказано обрабатывать событие OnConnect в POP3 и SMTP
обновил indy с блога Квэнди, но такого события в компонентах не нашел
через HTTP пробовал, начал снифферить что же шлет браузер - к моему удивлению Post запроса нет, только Get и все. никаких параметров и так далее.

Если кто сталкивался - прошу помочь

[kangreon]

Пост запрос не виден т.к. авторизация идет через SSL.

Вот пример авторизации через PDA версию сайта

procedure TForm1.Button1Click(Sender: TObject);
var
  s, idkey : string;
  i : Integer;
  sl : TStringList;
begin
  http := TIdHTTP.Create;
  http.AllowCookies := True;
  http.HandleRedirects := True;
  s := http.Get('http://pda-passport.yandex.ru/passport?mode=loginform&retpath=http://mail.yandex.ru/pda/');
  i := PosEx('idkey',s);
  i := PosEx('value',s,i);
  i := PosEx('"',s,i)+1;
  idkey := Copy(s,i,PosEx('"',s,i)-i);
  sl := TStringList.Create;
  sl.Add('retpath=http://mail.yandex.ru/pda/');
  sl.Add('idkey='+idkey);
  sl.Add('timestamp=');
  sl.Add('login=kangreonpr');
  sl.Add('passwd=78941583dima');
  sl.Add('twoweeks=yes');
  http.Post('http://pda-passport.yandex.ru/passport?mode=auth',sl);
  http.Get('http://mail.yandex.by');
end;

Вот только очень много редиректов получается...

[DeDoK]

PosEx

что за функция?

разобрался, а как быть если там капча?
вот столкнулся, с таким(
может быть все таки pop3 проще?

[Tronix]

[QUOTE=kangreon;646384]

  sl.Add('login=kangreonpr');
  sl.Add('passwd=78941583dima');

ыыыы?