Программная авторизация на сайте

[artbotva]

Всем доброго времени суток.
У меня возникли трудности с кодом, вот собственно и он

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

Сайт не мой, выбрал первый попавшийся, из за того что мне показалась авторизация на этом сайте самой стандартной, что бы посмотреть работает ли код вообще...

Ну в общем как я не пытался всегда "Авторизация не удалась!"

Ну сам вопрос - может в этой части кода

LoginData.Add('login_name='+Edit1.Text);
LoginData.Add('login_password='+Edit2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://http://www.ntvplus.ru/login-page.xl',LoginData);

Надо вписать уникальные значения этого сайта.. типа как там написано "логин", или "емайл", или "имя" Ну это моё предположение... в общем помогите разобраться с кодом... Буду очень признателен.

[Delphi_ProGer]

goto
login
password

Вот такие параметры я увидел через сниффер.

[artbotva]

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

Вот такие параметры я увидел через сниффер.

Расскажи куда вставит эти параметры?)

[Delphi_ProGer]

Замени

LoginData.Add('login_name='+Edit1.T ext);
LoginData.Add('login_password='+Edi t2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');

...на

LoginData.Add('goto=/');
LoginData.Add('login='+Edit1.Text);
LoginData.Add('password='+Edit2.Text);

Ну пробуй...

[Человек_Борща]

artbotva, а смысл? Код нужно писать под сайт, особенно часть авторизации.
Каждый сайт индивидуален. Даже джумловские и ворлдпрессовские сайты хоть и стандартизированы в силу обыденности движка, но их админы жаждут вносить кастомные моды, типа своих панелей авторизации и прочее.

Снифер в руки и вперед. Одних параметров мало, может там капризы типа спец. кукисов, которые нужно принять и сохранить или сформировать или отправить,или спец. поля HTTP заголовка, без которых тоже "до свидания", или кодировка страницы или ещё что-то.

Под каждый сайт нужно писать индивид. код, и изучать его надо(сайт).

[artbotva]

Сообщение от Человек_Борща

artbotva, а смысл? Код нужно писать под сайт, особенно часть авторизации.
Каждый сайт индивидуален. Даже джумловские и ворлдпрессовские сайты хоть и стандартизированы в силу обыденности движка, но их админы жаждут вносить кастомные моды, типа своих панелей авторизации и прочее.

Снифер в руки и вперед. Одних параметров мало, может там капризы типа спец. кукисов, которые нужно принять и сохранить или сформировать или отправить,или спец. поля HTTP заголовка, без которых тоже "до свидания", или кодировка страницы или ещё что-то.

Под каждый сайт нужно писать индивид. код, и изучать его надо(сайт).

Дело в том что я буду использовать свой сайт для этой идеи, и постараюсь его подстроить под себя что бы не возникало проблем, со всякими там куками... Ну или по крайней мере постараюсь так сделать...

[artbotva]

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

Замени

...на

LoginData.Add('goto=/');
LoginData.Add('login='+Edit1.Text);
LoginData.Add('password='+Edit2.Text);

Ну пробуй...

Не( ошибка вылазиет вот

[Delphi_ProGer]

Я ничего здесь увидеть не могу
Но кажется, там либо редирект, либо что-нибудь еще...

[kta87]

artbotva, ссылку на сайт бы дали... а то без html кода не увидеть что нужно!

[artbotva]

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

artbotva, ссылку на сайт бы дали... а то без html кода не увидеть что нужно!

А коде же есть сайт... ну вот http://www.ntvplus.ru это чисто для примера взят