[pesi]

Ф-Я для поиска сокета, а то IdHTTP его не добавляет придется его найти и вручную добавить

Код:

function GetCookie(S: String): String;
var
  I: Integer;
begin
  Result := '';
  I:= Pos('SEPAPSQE', S);
  if I > 0 then
  begin
    Delete(S, 1, I-1);
    I:= Pos(';', S);
    Result := Copy(S, 1, I);
  end;
end;

Шаг первый

Код:

  S:= IdHTTP1.Get('http://neverlands.ru/'); //гет запрос для получения сокета
  IdHTTP1.CookieManager.AddCookie(GetCookie(IdHTTP1.Response.RawHeaders.Text), 'neverlands.ru');  // добавляем сокет
  IdHTTP1.Request.Referer:= 'http://neverlands.ru/';
  Data:= TStringList.Create;
  Data.Add('player_nick=***'); //указать логин
  Data.Add('=Пароль'); //это не меняем
  Data.Add('player_password=***'); //указать пароль
  S:= IdHTTP1.Post('http://neverlands.ru/game.php', Data);
  Data.Free;

Шаг второй

Код:

  IdHTTP1.Request.Referer:='http://neverlands.ru/swf/flashpass.swf';
  Data:= TStringList.Create;
  Data.Add('flcheck=*****'); //указать второй пароль
  Data.Add('nid=*****'); //указать то что мы искали в ответе, по ходу дела это значение не меняется
  S:= IdHTTP1.Post('http://neverlands.ru/game.php', Data);
  Data.Free;
  S:= IdHTTP1.Get('http://neverlands.ru/main.php');

Вся петрушка в том, что IdHTTP автоматом не добавлял сокет