[The Shadow]

Как авторизоваться на сайте работающем в системе ucoz

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var Header: TIdMultiPartFormDataStream; begin Header:=TIdMultiPartFormDataStream.Create; Header.AddFormField('user', 'Айдар'); Header.AddFormField('password', '------'); Header.AddFormField('rem', '1');//скрытое поле Header.AddFormField('a', '0');//скрытое поле Header.AddFormField('s', '0');//скрытое поле Header.AddFormField('c', '0'); //Header.AddFormField('sbm', 'Вход'); Memo1.Lines.Text:=IdHTTP1.Post('http://aidar.3dn.ru/index/', Header); Header.Free;

В Memo выводится код главной страницы сайта, но я не авторизован. Что не так?

[PESTS]

Сообщение от The Shadow

Как авторизоваться на сайте работающем в системе ucoz

Код:

В Memo выводится код главной страницы сайта, но я не авторизован. Что не так?

Нахер ты вот это вписал?!

Код:

1 2 3 4 5

Header.AddFormField('rem', '1');//скрытое поле Header.AddFormField('a', '0');//скрытое поле Header.AddFormField('s', '0');//скрытое поле Header.AddFormField('c', '0'); //Header.AddFormField('sbm', 'Вход');

По моему надо было так

Код:

1 2 3 4

Header:=TIdMultiPartFormDataStream.Create; Header.AddFormField('user', 'Айдар'); Header.AddFormField('password', '------'); Memo1.Lines.Text:=IdHTTP1.Post('http://aidar.3dn.ru/index/', Header);

И вообще для авторизации на укозе нужно вроде еще контрольный цифры вводить

[The Shadow]

Нет. Цифры не надо.
А ввел я потому что они есть на странице, просто скрытые.
Все равно не авторизовался.

[PESTS]

Тогда пробуй так

var s:string;
begin
s:='sbm=true&user=Айдар&password=*******';
Memo1.Lines.Text:=IdHTTP1.Post('http://aidar.3dn.ru/index/',s);

[The Shadow]

Это же не GET запрос.

[PESTS]

Ппц, попута)
Ты попробуй укажи там что была нажата клавиша отправить smb=true

[treiv]

Напишите пожалуйcта подробнее как авторизоваться на сайте зарегистрированый в системе uCoz