Как проверить есть ли интернет?

Денис

Гость

11.07.2011 17:20:01

Доброго времени суток, уважаемые!

Не могу решить один вопрос: как программно проверить есть ли интернет?

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

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

Вот как можно проверить есть интернет или нету?

...была мысля на хостинге положить какой-нить файлик и программно к нему долбиться - если доступен, то есть инет.. но как это реализовать?

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 11.07.2011 17:40:20 > когда интернета нет - макрос вываливается с ошибкой Так сделайте обработку ошибки. On Error Goto... Или On Error Resume Next и работать с объектом Err.

Денис

Гость

11.07.2011 18:49:19

{quote}{login=Казанский}{date=11.07.2011 05:40}{thema=}{post}> когда интернета нет - макрос вываливается с ошибкой

Так сделайте обработку ошибки. On Error Goto...
Или On Error Resume Next и работать с объектом Err.{/post}{/quote}

Хм.... как вариант. Спасибо за мыслю. Неподумал..

Но все-таки хотелось понять, есть ли способы проверить?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 11.07.2011 22:25:23 Дим, а у меня при подключенном - 81, при отключенном 18. Я сам - дурнее всякого примера! ...

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

11.07.2011 22:37:38

А я так проверяю:

Function InternetConnectionAvailable() As Boolean
' возвращает TRUE, если доступно соединение с Интернетом (пингуются несколько хостов)
InternetConnectionAvailable = False
If PingB("93.158.134.11") Then InternetConnectionAvailable = True: Exit Function ' yandex.ru
If PingB("213.180.204.8") Then InternetConnectionAvailable = True: Exit Function ' www.ya.ru
If PingB("194.67.57.26") Then InternetConnectionAvailable = True: Exit Function ' www.mail.ru
If PingB("81.19.70.1") Then InternetConnectionAvailable = True: Exit Function ' www.rambler.ru
End Function

Но это требует дополнительных функций пинга.

ИМХО, самый простой способ - выполнить запрос к любой веб-службе Google (запросить какой-нибудь там XML)
Крайне маловероятно, что этот способ даст сбой.

PS: Excel может не получить доступ в инет по множеству причин:
http://excelvba.ru/articles/DeliveryWithMacro

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#6 11.07.2011 22:37:42 Здесь справка по функции: http://sources.ru/vb/network/internetgetconnectedstate.shtml Я сам - дурнее всякого примера! ...

Alex_ST Пользователь Сообщений: 2774 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри	#7 11.07.2011 22:39:07 У меня подключен по WiFi - 82 С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)

Igor67 Пользователь Сообщений: 3785 Регистрация: 21.12.2012	#8 11.07.2011 23:20:13 По LAN '16 - отключен '18 - подключен Как Дмитрий и писал.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#9 11.07.2011 23:45:10 У меня к роутеру по LAN: подключено - 18.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#10 12.07.2011 08:57:42 У меня к роутеру по LAN через свич, комп как шлюз для другого: подключено - 81. Я сам - дурнее всякого примера! ...

Alex_ST Пользователь Сообщений: 2774 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри	#11 12.07.2011 09:27:04 Сейчас проверил на работе: кастрированное файерволлами и проксями подключение по LAN - 86 С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)

Читают тему