[grib_aga]

PhoeniX, NumLock, поправил код, не работает.

Код:

    idHttp1 := TIdHTTP.Create(Self);
    CM := TidCookieManager.Create(idHttp1);
    idHttp1.CookieManager := CM;

  idhttp1.HandleRedirects:=true;
  idHttp1.AllowCookies:=true;
  IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; MRA 5.10 (build 5339)) Presto/2.12.388 Version/12.11';
  IdHTTP1.Request.Host:='excode.ru';
  IdHTTP1.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
  IdHTTP1.Request.AcceptLanguage:= 'ru-RU,ru;q=0.9,en;q=0.8';
  IdHTTP1.Request.AcceptEncoding:='gzip, deflate';
  IdHttp1.Request.Referer:='http://excode.ru/';
  IdHTTP1.Request.Connection:= 'Keep-Alive';
  IdHTTP1.Request.ContentLength:=42;
  IdHttp1.Request.ContentType:='application/x-www-form-urlencoded';


  Data:=TstringList.Create;
  Data.Add('actions=add');
  Data.Add('logines=wormix');
  Data.Add('passwdr=wormix1');
  StrPage:=idhttp1.Get('http://excode.ru/');
  StrPage:=idhttp1.Post('http://excode.ru/aut.php', Data);
    if Pos('accaunt', StrPage)<>0 then
      Label3.Caption:='Good'
    else Label3.Caption:='Bad';
 Data.Free;
 CM.Free;
 idHttp1.Free;

Вообще в оригинале передаётся ещё строка наподобе этой, каждый раз разная:

Код:

Cookie: n2date=1355926357; md=0; nexdate=1355926344; auth=0; __utma=91456206.326904374.1355912958.1355927014.1355940739.5; __utmb=91456206.5.10.1355940739; __utmc=91456206; __utmz=91456206.1355912959.1.1.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=(not%20provided)

У меня в программе она, конечно же, не передатёся, хотя КукиМенеджер вкл. Объясните.

Если пробывать передавать так, то тоже бэд:

Код:

idHttp1.Request.CustomHeaders.Add(Cookie: бла-бла-бла)