mail mail
Нужен макрос для Excel?
Сделайте заказ прямо сейчас!
Ищете готовое решение?
Выбирайте и покупайте!
У вас есть интернет-магазин?
Настроим парсер под любой сайт!

Проверка доступности прокси сервера макросом VBA

Этот код проверяет заданного доступность прокси сервера при помощи функции 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

Комментарии

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".

Спасибо большое!
Нужно заменить "<" на vbLf
добавить DoEvents, чтоб остановить можно было.

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  ____    _       _      _                ____ 
| _ \ | |__ | | __ | |__ __ _ / ___|
| |_) | | '_ \ | |/ / | '_ \ / _` | | |
| __/ | | | | | < | | | | | (_| | | |___
|_| |_| |_| |_|\_\ |_| |_| \__, | \____|
|_|
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.