Авторизация в phpBB3

[grafgrial]

Появилась необходимость авторизироваться в phpbb3 версии
только вот в чем проблема
при передаче на адрес "http://**.ru/ucp.php?mode=login"
передается

username=********
password=********
sid=080fe09cd4e9548ed80af48f80f6bc88
redirect=index.php
login=%D0%92%D1%85%D0%BE%D0%B4

так вот sid берется из куки страницы http://**.ru/ucp.php?mode=login а как его передать в запросе авторизации?

[p51x]

включить куки
обратиться к http://**.ru/ucp.php?mode=login
авторизоваться

т.е. сделать так, как делает браузер

[grafgrial]

кукименеджер подключил,
пробывал сначала get запрос дать т.е сначала зайти на сайта потом post делать так же (скорее всего при post запросе этот sid меняется)

[webber9989]

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

кукименеджер подключил,
пробывал сначала get запрос дать т.е сначала зайти на сайта потом post делать так же (скорее всего при post запросе этот sid меняется)

ты сделал get запрос, спарсил sid и подставил его в пост запрос. всё. он не может при пост запросе менятся, тогда и на сайте невозможно было бы авторизоваться.

[grafgrial]

сколько раз писал авторизацию а переменную забыл объявить )))

[just4smth]

Чтобы тему новую не создавать спрошу тут.
Подскажите, где в этом коде ошибки, ни как не удаётся авторизироваться в phpBB3.

procedure TNewThread.Execute;
var
    CM                        : TidCookieManager;
    Data                      : TStringList;
    Page,Link,Login,Adres,SID : string;
begin
  Page := '';
  Form1.Label1.Caption := '';
  Adres := Form1.Edit1.Text;

  //phpBB
  if Form1.ComboBox1.Text = 'phpBB' then
  begin
    CM:=TidCookieManager.Create;
    Form1.IdHTTP1.AllowCookies    := true;
    Form1.IdHTTP1.CookieManager   := CM;
    Form1.IdHTTP1.HandleRedirects := true;

    Form1.IdHTTP1.Request.UserAgent          := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.52';
    Form1.IdHTTP1.Request.Connection         := 'Keep-Alive';
    Form1.IdHTTP1.Request.Host               := Adres;
    Form1.IdHTTP1.Request.Accept             := 'text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
    Form1.IdHTTP1.Request.AcceptLanguage     := 'ru-RU,ru;q=0.9,en;q=0.8';
    Form1.IdHTTP1.Request.AcceptCharSet      := 'windows-1251,utf-8;q=0.7,*;q=0.7';
    Form1.IdHTTP1.Request.Referer            := Adres+'/ucp.php?mode=login';


    Page := Form1.IdHTTP1.Get(Adres+'/ucp.php?mode=login');
    SID  := (Pars('name="sid" value="',Page,'"'));
    Link := Adres+'/ucp.php?mode=login';
    Data := TStringList.Create;
      Data.Add('username='+Form1.Edit3.Text);
      Data.Add('password='+Form1.Edit4.Text);
      Data.Add('sid='+SID);
      Data.Add('redirect=index.php');
      Data.Add('login=Вход');
    Login := Form1.idhttp1.Post(Link,Data);
    if pos('logout',Form1.idhttp1.Get(Adres+'/')) <> 0 then
       Form1.Label1.Caption := 'ONLINE'
     else
       Form1.Label1.Caption := 'OFFLINE';
     Data.Free;
     CM.Free;
  end;

end;