Этот код проверяет заданного доступность прокси сервера при помощи функции CheckProxyServer:
Sub ПримерПроверкиПроксиСервера() myProxy$ = "212.45.5.172:3128" If CheckProxyServer(myProxy$) Then MsgBox "Прокси сервер с адресом " & myProxy$ & " доступен!", vbInformation Else MsgBox "Прокси сервер с адресом " & myProxy$ & " недоступен!", vbExclamation End If End Sub
Прокси-сервер (Proxy Server) позволяет скрыть ваш IP адрес, что позволяет вам выполнять запросы к одному и тому же серверу как-бы с разных компьютеров.
Это может быть полезно при выполнении многократных запросов к серверам типа Яндекс и Google,
которые блокируют автоматические запросы от программы по истечении некоторого времени.
Загрузить список прокси-серверов вам поможет этот код: http://excelvba.ru/code/ProxyServersList