помогите с Афторизацией на Dle

[lolopo123]

делаю программу важную и мне нужно чтобы через программу авторизировалось на дле я не нуп так сказать ну не новечек в делфи изучяю давно но я делаю все что надо а он не хочет все ровно заходить .....
прошу вас выложите рабочий код или исходник вот сайт на дле [Ссылки могут видеть только зарегистрированные пользователи. ] нужно чтобы на нем входило)

[*xalyava*]

procedure TForm1.Button1Click(Sender: TObject);
var
k:TStringList;
RegExp: TRegExpr;
s1,s:string;
begin
 k:=TStringList.Create;
 RegExp:=TRegExpr.Create;

 try
  k.add('login=submit');
 k.add('login_name='+edit1.Text);
 k.add('login_password='+edit2.Text);
k.add('image.x=0');
k.add('image.y=0');



s1:=idhttp1.Post('http://parfenov.d9x.ru/',k);



RegExp.Expression:= ' <td colspan="3" align="right">(.*?)<strong>(.*?)</strong>';
     if RegExp.Exec(s1)then
    label1.Caption:=(RegExp.Match[1]);
     label2.caption:=(RegExp.Match[2]); // проверяем зашли или нет


 finally
 k.free;
 RegExp.Free;
end;
end;

Вот код

[lolopo123]

да спасибо но нужно в этот код с начало сделать запрос на logout а потом уже выполнять другое
а как у меня тоже не получается....

Добавлено через 4 минуты
кстате очень интересный код мне нравится

[-=Legenda=-]

Жаль нету данных затестить, а дле давно не ставил и непомню начальные админские параметры..

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TStrings;
  Response: TStrings;
begin
  Data := TStringList.Create;
  Response := TStringList.Create;
  try
    Data.Add('login_name='+Edit1.Text);
    Data.Add('login_password='+Edit2.Text);
    Data.Add('login=submit');
    Data.Add('x=0');
    Data.Add('y=0');
    Response.Text := IdHTTP1.Post('http://parfenov.d9x.ru/index.php', Data);
    if Pos('logout', Response.Text) > 0 then
      ShowMessage('Все окей!')
    else
      ShowMessage('Авторизация не удалась!');
  finally
    Data.Free;
  end;
end;

С начальными данными login/pass (admin/admin) работает.

[lolopo123]

Цитата: Сообщение от kostyakostya666 Автор писать не умеет

не понял?!

у меня вот еше какая проблема....
не могу отправить вот этот пост

Цитата: email [email protected] allow_mail 1 fullname Максим land Екатиренбург icq 379586983 altpass password1 password2 allowed_ip image info вот signature submit submit doaction adduserinfo

на хост

Цитата: [Ссылки могут видеть только зарегистрированные пользователи. ]

он якобы отпрваляет но не изменяет можете дать идею....?!
и нужно таким же методом что и выше в коде вывести например имя в лабел....

[*xalyava*]

Цитата: Сообщение от lolopo123 не понял?! у меня вот еше какая проблема.... не могу отправить вот этот пост на хост он якобы отпрваляет но не изменяет можете дать идею....?! и нужно таким же методом что и выше в коде вывести например имя в лабел....

Цитата: Сообщение от lolopo123 не понял?!

ия не понял)) скинь полный код этой процедуры

[doctor_flasher]

Думаю, signature надо парсить со страницы с добавлением поста

[lolopo123]

Цитата: Сообщение от *xalyava* ия не понял)) скинь полный код этой процедуры

нужно сделать так же как ты сделал выше ну отправка пост запроса только чтобы он изменял твои данные и измененные данные выводил или в едит или в лабел.... тоесть редактировал имя например

Добавлено через 1 час 39 минут
все я вкурил свои ошибки нужно просто на каждой фореме типо чето авторизовываться вот я затупок хД