ANTICHAT - Показать сообщение отдельно - Авторизоваться на рамблер

Цитата:

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

aydar, вот попробуй

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
params : tstringlist;
begin
  params := TStringList.Create;
 try
  params.Add('back=http://mail.rambler.ru/mail/startpage');
  params.Add('login=логин');
  params.Add('domain=rambler.ru');
  params.Add('passw=пароль');
  mmo1.Text := IdHTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
  finally
    if Pos('logout',mmo1.Text)>0 then
     ShowMessage('все ок!!!');
    params.Free;

end;
end;

В idhttp - AllowCookie = false.

В роде щас без ошибок, но запускаю проект и он сразу исчезает вот код:

Цитата:

procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login=ëîãèí');
params.Add('domain=rambler.ru');
params.Add('passw=ïàðîëü');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
ShowMessage('все ок');
params.Free;

end;
end;