![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Помогте пройти авторизацию на юкоз форуме
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;ЧТо в запросе не верно? Логин и пароль которые в этом коде валидны (специально создал) |