Этот код проверяет заданного доступность прокси сервера при помощи функции 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 Код функции CheckProxyServer: Function CheckProxyServer(ByVal Proxy$) As Boolean ' функция проверяет работоспособность прокси сервера Proxy$, ' выполняя запрос IP на сайте internet.yandex.ru ' Если Яндекс возвращает IP адрес прокси-сервера в течение ' непродолжительного времени, считаем данный прокси-сервер рабочим ' Функция возвращает TRUE, если прокси сервер рабочий On Error Resume Next: Err.Clear With CreateObject("MSXML2.ServerXMLHTTP.6.0") .setProxy 2, Proxy$ .Open "GET", "http://internet.yandex.ru/", False .setTimeouts 10000, 10000, 10000, 10000 .send ("") txt = Split(Split(.responseText, "Мой IP: ")(1), "<")(0) End With CheckProxyServer = (Proxy$ Like txt & ":*") And (Err = 0) End Function
|
|||
Комментарии
Отправить комментарий