Авторизация на zaycev.net

[Orionic]

Здравствуйте, нужно помощь, нужно залогиниться на зайцеве, но тут возникает проблема.

Data : TStringList;
begin
Data:=Tstringlist.Create;
Data.Add('j_username=Логин');
Data.Add('j_password=Пасс');
Data.Add('rememberMe');
mmo1.text:=IdThhp1.Post('http://zaycev.net/auth/signin.php', Data);

При таком виде, в мемо мы получим такую вот страницу:
http://pastebin.com/xUKPe4Ts

Есть у кого какие варианты?

У нас принято оформлять код специальным тегом. Кнопка #. Модератор

[grafgrial]

JSESSIONID
сначала отправь в cookie

[Orionic]

procedure TForm1.ButtonClick(Sender: TObject);
var Data : TStringList;
CookMan: TidCookieManager;
begin
 CookMan:=TidCookieManager.Create(idhtp1);
 Data:=Tstringlist.Create;
 CookMan.AddCookie('JSESSIONID', '7mnDNBXSbhdMj913kCQm.1');
 idhtp1.CookieManager := CookMan;
 Data.Add('j_username=Логин');
 Data.Add('j_password=Пасс');
 Data.Add('rememberMe');
 mmo1.text:=idhtp1.Post('http://zaycev.net/auth/signin.php', Data);
end;

Так? если да, то тоже самое

[grafgrial]

ну сначала надо получить его а потом использовать, он же меняется...

И еще если отправляешь "rememberMe" то строка такого рода 'rememberMe=on', а иначе вообще убери его из запроса

[Orionic]

блин, никогда не работал с куками, мб подскажете как всё правильно сделать? Буду благодарен.

[kangreon]

После пост запроса просто загрузите еще одну страницу и все должно получиться.

procedure TForm2.FormCreate(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  sl: TStringList;
  un, pw, s: string;
begin
  un := 'kangreon';
  pw := '';

  IdHTTP := TIdHTTP.Create;
  IdHTTP.HandleRedirects := True;
  IdHTTP.Request.UserAgent :=
    'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.50';
  sl := TStringList.Create;
  sl.Add('j_username=' + un);
  sl.Add('j_password=' + pw);
  IdHTTP.Post('http://www.zaycev.net/auth/signin.php', sl);
  sl.Free;
  //IdHTTP.Request.Referer := '';
  s := IdHTTP.Get('http://www.zaycev.net/');

  IdHTTP.Free;

  if Pos('auth/logout.php', s) = 0 then
    ShowMessage('Ошибка авторизации')
  else
    ShowMessage('Вход выполнен');
end;

[Orionic]

Спасибо вам как я до этого не додумался