Форум АНТИЧАТ - Залогиниться на сайте

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Залогиниться на сайте (https://forum.antichat.xyz/showthread.php?t=170674)

Залогиниться на сайте

Как программно на Delphi залогиниться на сайте с движком vBulletin?

Пробовал таким способом:

Код:

procedure TForm1.Button1Click(Sender: TObject);

var

  LoginInfo: TStringList;

  Response: TStringStream;

  STR:string;

BEGIN

try

    LoginInfo := TStringList.Create;

    Response := TStringStream.Create('');

    LoginInfo.Add('vb_login_username='+Edit1.Text);

    LoginInfo.Add('vb_login_password='+Edit2.Text);

    IdHTTP1.Post('http://site/login.php',LoginInfo,Response);

    str:=IdHTTP1.Get('http://site/');

    Memo1.Lines.Add(str);

  finally

    begin

      Response.Free;

      LoginInfo.Free;

    end;

  end;

end;

Но постоянно вылетает сообщение HTTP/1.1 301 Moved Permanently или HTTP/1.1 302 Found..

Цитата:

Сообщение от Raiz

Как программно на Delphi залогиниться на сайте с движком vBulletin?

Но постоянно вылетает сообщение HTTP/1.1 301 Moved Permanently или HTTP/1.1 302 Found..

Уже не помню как в компоненте называется свойство.
Связанное с Redirect, MaxRedirect и т.п.
Поставь значение True.

UPD:
IdHTTP.HandleRedirects:=true;

Большое спасибо, помогло!