Регистрация ICQ на офф сайте

[W0LF]

Хоть убей... у меня не выходит... POST возвращает страницу icq.com/register/index.php на которой перед вводимыми данными оишбка:

Your question must contain 8-60 characters.\r\nIt may include letters, numbers, spaces, and punctuation marks.

POST:

begin
  params := TStringList.Create;
  responseres := TStringList.Create;
  params.add('service=30');
  params.add('icq_ln=' + icq_ln);
  params.Add('nickname=GDStaff');
  params.Add('fname=');
  params.Add('lname=');
  params.Add('email=gd_staff@bk.ru');
  params.Add('gender=0');
  params.Add('age=17');
  params.Add('password=12345678');
  params.Add('password_confirm=12345678');
  params.Add('qa1=custom');
  params.Add('userq1=Whera are you?');
  params.Add('answer1=I tupiTSa xD');
  params.Add('gnm=' + gnm);
  params.Add('word=' + Edit1.Text);
  Memo2.text := params.text;
  responseres.Text := idhttp1.Post('https://icq.com/register/index.php', params);
  Memo1.text := responseres.text;

if Pos('Congratulations!', responseres.Text) > 0 then
    Memo2.Lines.Add('ЗАРЕГАН!') else Memo2.Lines.Add('Увы.... x(');

Если выбрать qa1 из стандартных... Выбивает ошибку, что-то типа "HTTP 1/1 Found" и прога закрываеться... А при custom чото не пашет x(

[Voody]

сделал, всё работает. (Delphi 2010, Indy 10.5.5 //тут главное версия Indy. версии 10.2 работать с icq.com не будут)
пошагово:

итак, жмем первую кнопку:

создаем IdHTTP, CookieManager, IdSSLIOHandlerSocketOpenSSL;
HandleRedirects:=true;
Заполняем заголовки IdHTTP (Host, UserAgent, ContentType, AcceptLanguage, AcceptEncoding, Referer)
делаем GET-запрос на 'https://www.icq.com/register/';
парсируем страницу и находим ссылку на капчу (вида '/img/aa_img.php?gnm=9D9B902B5077DA1DAC9856A87ED45539A47C91743F4CFA7671863C66ABC25EDA')
загружаем капчу на диск по ссылке 'https://www.icq.com'+предыдущая ссылка;
выводим ее на форму из файла
тут же парсируем страницу на переменные icq_ln и gnm

вводим в Edit цифры с картинки
Жмем вторую кнопку:

Создаем Data (TStringList)
заполняем:
service=30
icq_ln={спарсеное значение}
nickname={ваше}
password={ваш}
password_confirm={ваш}
email={ваш}
qa1={ваш} //можно брать стандартные, можно вписать любой
answer1={ваш}
gnm={спарсеное значение}
word={цифры из Edit}

Отправляем запрос на 'https://www.icq.com/register/index.php'

Всё, в полученной в результате запроса страницы содержится ваш номер

[W0LF]

Indy вчера обновил на 10.5.5, только не понял...

Что надо вписать в заголовки эти?

[W0LF]

Можете кто-то выложить рабочий пример {или кинуть в личку} ?

[Voody]

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

Что надо вписать в заголовки эти?

заголовки - это имитация браузера.
например:

IdHTTP.Request.Host:='icq.com';
IdHTTP.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.00';
IdHTTP.Request.Referer:='http://www.icq.com';
IdHTTP.Request.ContentType:='application/x-www-form-urlencoded';
IdHTTP.Request.AcceptLanguage:='ru, ru-RU; q=0.9, en; q=0.8';
IdHTTP.Request.AcceptEncoding:='deflate, gzip, x-gzip, identity, *;q=0';

[Mickset]

А можна полный робочий код ?

[Voody]

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

А можна полный робочий код ?

а что там непонятно?
GET-запрос,
поиск текста в строке,
загрузка изображения,
POST-запрос

всё предельно просто и по отдельности расписано везде, где только можно, ничего сверхъестественного здесь нет

[Lime]

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

А можна полный робочий код ?

Я тут состряпал на скорую руку

Надеюсь вы не будете злоупотреблять))

[TwiX]

Connection timed out...
Как и на моём старом реггере =\

[Lime]

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

Connection timed out...
Как и на моём старом реггере =\

У меня всё отлично работает , D2009 indy 10.5.5

Прикреплю скомпилированную версию

PS: Можно ещё на форму кинуть IDAntiFreeze