Авторизация на yandex.money. Вопрос.

[webber9989]

procedure TForm1.Button1Click(Sender: TObject);
var
  s, idkey: string;
  i : Integer;
  i2 : Integer;
  sl : TStringList;

begin

  IdHTTP1.AllowCookies := True;
  IdHTTP1.HandleRedirects := True;
  s := IdHTTP1.Get('https://passport.yandex.ru/passport?mode=auth&retpath=https://money.yandex.ru');
  i := PosEx('idkey',s);
  i := PosEx('value',s,i);
  i := PosEx('"',s,i)+1;
  idkey := Copy(s,i,PosEx('"',s,i)-i);

  Memo2.Text:= idkey;

  sl := TStringList.Create;
  sl.Add('retpath=https://money.yandex.ru');
  sl.Add('idkey='+idkey);
  sl.Add('timestamp=');
  sl.Add('login='+Edit1.Text);
  sl.Add('passwd='+Edit2.Text);
  sl.Add('twoweeks=yes');
  Memo3.Text:= IdHTTP1.Post('https://passport.yandex.ru/passport?mode=auth',sl);

  ->>>> Memo3.Text:= IdHTTP1.Get('http://mail.yandex.ru');
  ->>>> Memo1.Text:= IdHTTP1.Get('https://money.yandex.ru');

end;

Прохожу авторизацию успешно, затем перехожу на mail.yandex.ru и вывожу код в Memo3.Text - всё выводится успешно и авторизация держится.

А вот у money.yandex.ru авторизации нету ((

С чем это может быть связано? Работал на разных протоколах http(s), но результат нулевой.

[spamer]

А у Яндекса вон для ЯДенег API даже есть ==> тут.
Кстати, там используется OAuth для авторизации, посему возможно и не работает ваш код...

[webber9989]

У меня цель написать чекер, API не катит((

[record222]

Чекер чего почты или ЯД Моней?

[webber9989]

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