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

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Июл

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

Posted by Chas under Пост-обзор

Есть сайт. Там в поле «Введите ваш 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;