Javascript, проверка занятости логина на странице.

[webber9989]

Доброго времени суток.
Есть сайт _http://pw.mail.ru/account.php
Там в поле "Введите ваш 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;

[webber9989]

Сообщение от 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;

Спасибо большое!

[cjtri-ton]

поясните, почему ищем строку '"valid":"1"'? Смотрю исходный код страницы и ее там не нахожу.
Я пытаюсь сделать проверку занятости почты на мамбе, но пока ничего не получается. Вот код:

var params:tstringlist; s:string;

begin
params:=TStringList.Create;
params.Add('name=');
params.Add('email='+DataModule1.Tab leUserEmail.Text);
params.Add('location=3159_3952_3963 _0');
params.Add('birthday=1');
params.Add('birthmonth=01');
params.Add('birthyear=1994');
params.Add('gender=');

Memo1.Lines.Clear;
try
IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; Edition Next; ru) Presto/2.9.181 Version/12.00';
Idhttp1.Request.Referer:='Referer=h ttp://mamba.ru/my/reg.phtml';
s:=Idhttp1.Post('http://mamba.ru/my/reg.phtml?XForm=Reg',params);
Memo1.Lines.Text:=s;
if Pos('"valid":"1"', s) <>0 then begin
ShowMessage('Не Зарегистрирован на mambe!');
Label1.Caption:='Не Зарегистрирован на mambe!';
end else begin
Label1.Caption:=DataModule1.tableUs erEmail.text+' Зарегистрирован на mambe!';
end;
finally
params.free;
end;