Проверка занятости логина на странице с помощью indy

Есть сайт. Там в поле «Введите ваш E-mail» проверка на занятость адреса идет на ява скрипте.
Нужен кусочек кода или хотя бы статья или езё что-либо по этому поводу. Нужно В проге получить ответ этот ява скрипта, занят логин или нет.

kangreon:
Получилось вот так. Используйте сниффер.

procedure TForm1.Button1Click(Sender: TObject);

var

  IdHTTP: TIdHTTP;

  sl: TStringList;

  s, email: string;

begin

  email := Edit1.Text;
  IdHTTP := TIdHTTP.Create;

  sl := TStringList.Create;

  sl.Add('do=verifyEmail');

  sl.Add('email=' + email);

  IdHTTP.Request.UserAgent :=

    'Opera/9.80 (Windows NT 5.1; U; Edition Next; ru) Presto/2.9.181 Version/12.00';

  IdHTTP.Request.Referer := 'http://pw.mail.ru/account.php';

  s := IdHTTP.Post('http://pw.mail.ru/ajaxreg.php', sl);
  if Pos('"valid":"1"', s) <> 0 then

    ShowMessage('Email свободен')

  else

    ShowMessage('Email занят');

  sl.Free;

  IdHTTP.Free;

end;

тема на форуме

Последние записи

made in programmersforum 8

Проверка занятости логина на странице с помощью indy

Похожие статьи