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

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Июл

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

Posted by Chas under Пост-обзор

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

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;