Как авторизоваться на zaycev.net?

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

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;

тема на форуме

Последние записи

made in programmersforum 8

Как авторизоваться на zaycev.net?

Похожие статьи