Авторизация и выполнение действий.

[Alter]

HTTPFox - дополнение для фаерфокс

[Rock'n'rolla]

Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var params,data,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
data:=TStringList.Create;
try
params.Add('Login=tanya70650');
params.Add('Domain=mail.ru');
params.Add('Password=tz1ls9dj');
responseres.Text:=ht1.Post('http://win.mail.ru/cgi-bin/auth',params);
data.Add('authaddans=action');
data.Add('qid=35264614');
data.Add('ch=2497512cd0984a350abca48d8eea47ac');
data.Add('Body=Privet');
data.Add('source=');
data.Add('watch=1');
responseres.Text:=ht1.Post('http://otvet.mail.ru/question/35264614/?begin_reply=1',data);
if Pos('Privet',responseres.Text)>0 then
ShowMessage('Gud!');
finally
params.free;
responseres.free;
end;
end;

Что в нем не верно?

[orkus]

А ты у верен что параметры всё статические ? иногда есть и динамические в ответ на 1 ПОСТ что приходит ?

Еще в запросе
IdHTTP1.Request.Referer
IdHTTP1.Request.Host
и тд надо заполнять

[Пепел Феникса]

IdHTTP1.Request.Host

параметр host обязателен для HTTP.
он есть всегда.
otvet.mail.ru вот хост последнего кода.