Ситуация такова:
Есть страница на Hotmail. Страница регистрации. Мне по работе достаточно часто приходится проверять валидность Email адресов на этом сервере. На странице есть поле ввода Email и кнопка проверки валидности введенного адреса. Вручную обрабатывать 100-200 адресов очень долго. Даже на выделенке. Появилось желание написать программу, которая в автоматическом режиме будет вводить в поле Email необходимый адрес, нажимать на кнопку проверки, а потом анализировать ответ.
Как это можно реализовать? С этим вопросом столкнулся достаточно давно, но так и не смог получить нормальный ответ. Может тут кто нибудь поможет? Хотелось бы пример, как это можно сделать.

И, подумывал о telnet подключении на 110 порт (это POP3). Но, похоже, что на Hotmail эта служба в плане безопасности отключена...

Итак, как?

Почитал немного на форуме. Раскрыл исходный код искомой страницы. Вычленил оттуда пару, на мой взгляд, нужных кусков. Вот они. Что с ними можно сделать?

Код

<label for="iEmail" > E-mail address:</label> <input type="text" id="iEmail" name="p4181" value=""  maxlength="64"  onblur="UpdateTOUSig(this,this.form,'iTOUEmailLabel',GEId('iEmailDomain').innerHTML);"  style="ime-mode:disabled" /><p id="iEmailDomain">@hotmail.com</p><br /><p class="cHelp"> The address can contain only letters, numbers, periods (.), hyphens (-), or underscores (_).</p><script type="text/javascript">g_otND.iEmail='e';</script> <img id="iChkAvail" width="0" height="0" border="0" onload="ChkAvailResult()"  onerror="ChkAvailResultErr()" /><div class="cButton" id="iCheckAvalDiv"><input type="button" name="iCheckAval" id="iCheckAval" value="Check Availability" onclick="ChkAvail(this.form.iEmail,this.form);" /></div></td><td class="cInfo"><div ><p>Type the name that you want to appear before the @ symbol (for example, <b>yourname</b>).<br /><br /><a href="javascript:DoHelp('PPCrtEmlAddr','','1033','MSN,1033','','320');" >Get help with this section</a></p></div><div id="iEULink"style=""><p><a href="javascript:DoHelp('PPabtprvrgtsEU','','1033','MSN,1033','','320');"

Как я понимаю, в этом куске описаны поле ввода iEmail и кнопка проверки iCheckAvalDiv. Я прав?
Если кто то действительно заинтересовался данной проблемой, привожу ниже код всей страницы. Простите за отсутствие форматирования, но, видимо на Hotmail не привыкли его делать=) Это первозданный вид.

Почему то не хочет этот код отображаться....прикрепляю к сообщению.

Вот так....жду ответов.

Это сообщение отредактировал(а) splash666 - 2.1.2006, 00:41

Присоединённый файл ( Кол-во скачиваний: 2 )
 opr0056A.txt 26,70 Kb

ИМХО, надо просто корректировать URI.

Что ты подразумеваешь в данном случае под словом "валидность"? Правильность ввода е-мали адреса или существование его на сервере, что?

iddqd,думаешь?? Накладно всё это....если 100 раз подряд корректировать урл, потом открывать его, пусть даже на автомате, после проверять итд....накладно по времени.
Под валидностью понимаю СУЩЕСТВОВАНИЕ этого ящика. На хотмыле они появляются/исчезают ежедневно. А мне статистику вести приходится

Вот тебе запрос, и не нужно грузить страницу.

Код

GET /memberexists.srf Accept: */* User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Cookie: MSPMemberExists=НужныйЕмайл Host: accountservices.passport.net

Где в ответе смотреть думаю сам разберешься.
А вообще уже есть готовый софт, причем несколько вариантов чека хотмайла...

Гм....сеньк...тольк вот вопрос, не мог бы ты объяснить твой код и как его реализовать в дельфи?

Отправляй запрос IdHttp (Indy>idHTTP). Ты забыл в куске html кода взять ещё тэг <form>. В общем делай так:

Код

Var   Post: TStringList; Begin   Post:= TStringList.Create;   Post.Add('[email protected]') // Для этой сторочки <input type="text" id="iEmail" name="p4181" value=""  будет так со следующими делаешь по анологии   try   idHTTP.Post('http://www.hotmail.com/<путь к срипту который надёшь в <form>>', post); finally   Post.Free; End;

Вобщем суть думаю ясна.

Постомтри на странице на hotmail.com всё что между тэгами <form> </form> и персылай значения так как я написал выше.

F1reF0x
Че ты паришься с какими-то тегами?

Код

nit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ScktComp; type   TForm1 = class(TForm)     Button2: TButton;     ClientSocket1: TClientSocket;     procedure ClientSocket1Connect(Sender: TObject;       Socket: TCustomWinSocket);     procedure Button2Click(Sender: TObject);     procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ClientSocket1Connect(Sender: TObject;   Socket: TCustomWinSocket); begin Socket.SendText('GET /memberexists.srf HTTP/1.0'+#13#10+                 'Cookie: [email protected]'+#13#10+                 'Host: accountservices.passport.net'+#13#10+                 #13#10); end; procedure TForm1.Button2Click(Sender: TObject); begin ClientSocket1.Open; end; procedure TForm1.ClientSocket1Read(Sender: TObject;   Socket: TCustomWinSocket); begin //Тут смотри что тебе прислали в Set-Cookie, a именно MSPMemberExists... //MemberExists - пользователь есть. //OtherError - или неразрешенное мыло или недопустимые символы //Ну а если тебе вернули то что ты отсылал, то значит что мыло свободно. ShowMessage(Socket.ReceiveText); end; end.