[scroyler]

Помогте пройти авторизацию на юкоз форуме
http://remain.do.am
Деаю так:

Код:

var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('user=test');
params.Add('password=test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=159');
params.Add('_tp_=xml');
responseres.Text:=idhttp1.Post('http://remain.do.am/index/sub/',params);
if Pos('log',responseres.Text)>0 then
ShowMessage('Авторизовались!');
finally
params.free;
responseres.free;
end;
end;

Сниффером ловлю, не верно логин и пароль, но они верны!
ЧТо в запросе не верно?
Логин и пароль которые в этом коде валидны (специально создал)

[NumLock]

Код:

  IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';

?

[scroyler]

неа
не в этом проблема

[scroyler]

Помогите пож.

[ApxaHGe1]

При верном логин/пароле, будет требовать ввесди изображение скартинки... сюда не пробывал думать ?

Код:

var
post:TStringList;
Answer:string;
begin
post:=TstringList.Create;
post.Add('user=test');
post.Add('password=123123123');
post.Add('rem=1');
post.Add('a=2');
post.Add('ajax=1');
post.Add('rnd=159');
post.Add('_tp_=xml');
answer:=Utf8ToAnsi(idhttp1.Post('http://remain.do.am/index/sub/',post));
if Pos('Неправильный логин или пароль',Answer) = 0 then
begin
ShowMessage ('Auth Success');
end
else
begin
ShowMessage ('Wrong user name or password');
end
end;

Можешь проверить на валидных данных

[scroyler]

Не работает (
При любом акке пишет, что верно, даже на невалидном.
При авторизации капча там не выходит

[ApxaHGe1]

Ок, специально для Вас )
логин = where_my_knots@mail.ru
пароль = 123123123
Пробуйте зайти через браузер и программно, и смотри работает или нет, но скорее у Вас руки не работают)

[scroyler]

Проверь сам.
При любых данных пишет что верно! даже при невалидных!