telnet или whois в VBA как? - Microsoft Office Excel

hardstep · 27.09.2010, 15:12

здравствуйте.
задача: из excel узнать занят ли домен и очень желатально немного инфы о домене(дата регистрации, срок, до которого он оплачен, и контактный email).
пока вижу два возможных варианта решения задачи:
1. есть ли в VBA возможность напрямую спросить whois сервер? если есть то как? как получить текст ответа от него?
2. whois сервера отвечают по telnet'у на 43 порту. через shell могу подконнектится к серву

Код:

v_Request = "cmd.exe /k telnet " & v_whois_serv_addr & " "
TelnetIp = Shell(v_Request, 3)

но далее ничего сделать не получается.

ЗЫ: делаю это не для спама или прочих шалостей. надо подобрать домен.

EducatedFool · 27.09.2010, 15:22

1) можно и по телнету средствами VBA. не пробовал - но если у вас вручную через telnet удаётся получить эти данные, то и макросом можно

Как работать с TELNET из VBA - написано в статье Работа из VBA Excel с оборудованием через Telnet

2) можно скачивать веб-страницу с адресом типа такого: http://nic.ru/whois/?query=ExcelVBA.ru
а потом анализировать ответ

3) можно программно создавать веб-запрос к адресу типа http://nic.ru/whois/?query=ExcelVBA.ru
и обрабатывать выведенные на лист данные
Вот результат такого запроса в файле Excel:

Выбирайте любой способ - а с кодом мы попробуем помочь.

PS: Пример программного создания веб-запросов с разными параметрами можно найти здесь: http://programmersforum.ru/showpost....57&postcount=8
(там вам только адрес сайта поменять - да выбрать, из каких ячеек выдирать данные. Лист, куда выводятся данные запроса, скрыт)

hardstep · 27.09.2010, 19:38

1) в том то и дело, что дальше коннекта по телнету ничего сделать не получается.
2 и 3) обрабатывать web-запрос гораздо проще, чем целую страницу. пока состряпал такое решение
я думал, что есть какое-то более изящное решение. но и за это отправил спасибо на счет.
минус такого решения в том, что оно применимо только к веб-интерфейсу whois сервиса, и только того, который может принять проверяемый домен в адресной строке.
может быть можно как-то напрямую обратиться к whois серверу?

27.09.2010, 15:12	#1
hardstep Новичок Джуниор Регистрация: 27.09.2010 Сообщений: 2	telnet или whois в VBA как? здравствуйте. задача: из excel узнать занят ли домен и очень желатально немного инфы о домене(дата регистрации, срок, до которого он оплачен, и контактный email). пока вижу два возможных варианта решения задачи: 1. есть ли в VBA возможность напрямую спросить whois сервер? если есть то как? как получить текст ответа от него? 2. whois сервера отвечают по telnet'у на 43 порту. через shell могу подконнектится к серву Код: `v_Request = "cmd.exe /k telnet " & v_whois_serv_addr & " " TelnetIp = Shell(v_Request, 3)` но далее ничего сделать не получается. ЗЫ: делаю это не для спама или прочих шалостей. надо подобрать домен.

27.09.2010, 15:22	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	1) можно и по телнету средствами VBA. не пробовал - но если у вас вручную через telnet удаётся получить эти данные, то и макросом можно Как работать с TELNET из VBA - написано в статье Работа из VBA Excel с оборудованием через Telnet 2) можно скачивать веб-страницу с адресом типа такого: http://nic.ru/whois/?query=ExcelVBA.ru а потом анализировать ответ 3) можно программно создавать веб-запрос к адресу типа http://nic.ru/whois/?query=ExcelVBA.ru и обрабатывать выведенные на лист данные Вот результат такого запроса в файле Excel: Выбирайте любой способ - а с кодом мы попробуем помочь. PS: Пример программного создания веб-запросов с разными параметрами можно найти здесь: http://programmersforum.ru/showpost....57&postcount=8 (там вам только адрес сайта поменять - да выбрать, из каких ячеек выдирать данные. Лист, куда выводятся данные запроса, скрыт) __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 15.11.2011 в 00:24.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как настроить Редактор VBA или Word?	Мультипликатор	Microsoft Office Word	5	12.07.2010 19:09
как копировать группу строк из одного листа Excel в другой на VBA или Делфи	S_Yevgeniy	Помощь студентам	1	26.04.2010 11:07
Как обратиться к ячейке используя присвоенные имена к столбцу или строчке в коде VBA?	Neo007	Microsoft Office Excel	6	22.01.2009 12:28
Whois...	Roof	Работа с сетью в Delphi	4	07.08.2007 14:46

27.09.2010, 19:38	#3
hardstep Новичок Джуниор Регистрация: 27.09.2010 Сообщений: 2	1) в том то и дело, что дальше коннекта по телнету ничего сделать не получается. 2 и 3) обрабатывать web-запрос гораздо проще, чем целую страницу. пока состряпал такое решение я думал, что есть какое-то более изящное решение. но и за это отправил спасибо на счет. минус такого решения в том, что оно применимо только к веб-интерфейсу whois сервиса, и только того, который может принять проверяемый домен в адресной строке. может быть можно как-то напрямую обратиться к whois серверу?