помогите с Афторизацией на 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:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',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 := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', Data);
if Pos('logout', Response.Text) > 0 then
ShowMessage('Все окей!')
else
ShowMessage('Авторизация не удалась!');
finally
Data.Free;
end;
end;



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

[lolopo123]

Автор писать не умеет /problem

не понял?!

у меня вот еше какая проблема....
не могу отправить вот этот пост
email [Ссылки могут видеть только зарегистрированные и активированные пользователи]
allow_mail 1
fullname Максим
land Екатиренбург
icq 379586983
altpass
password1
password2
allowed_ip
image
info вот
signature

submit submit
doaction adduserinfo

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

[*xalyava*]

не понял?!

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

на хост

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

не понял?!

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

[doctor_flasher]

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

[lolopo123]

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

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

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