Excel VBA WinHttpRequest сохраненные учетные данные

Я написал следующий код, чтобы получить текст innerHTML веб-сайта:

Public Function GetInnerHtmlBody(ByVal Url As String) As HTMLDocument
    Dim ResponseDocument As New HTMLDocument

    Dim MyRequest As New WinHttpRequest
    With MyRequest
        .SetTimeouts 5000, 5000, 5000, 5000
        .SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "<PROXY_SERVER_IP>:<PORT>", "*.domain.com"

        .Open "GET", Url, False

        '// Authentication for the proxy server
        '.SetCredentials "<USERNAME>", "<PASSWORD>", CREDENTIALS_FOR_PROXY

        .Send

        '// Debug
        MsgBox .ResponseText, vbInformation, .StatusText & " - " & .Status

        ResponseDocument.body.innerHTML = .ResponseText
    End With

    Set GetInnerHtmlBody = ResponseDocument
End Function

Как вы можете видеть линию .SetCredentials закомментировано. Эта строка была необходима только один раз для аутентификации на прокси-сервере, но теперь похоже, что учетные данные для входа были сохранены, потому что даже если я исключаю строку, код успешно извлекает HTML-код данного веб-сайта.

Я перезагружаю свой компьютер и очищаю весь кеш IE, но код все еще работает.

  1. Мой вопрос сейчас где Credentials спасен? Coockie?

  2. Есть ли способ, которым HttpRequest использует настройки прокси IE? -> Нет необходимости спрашивать имя пользователя и пароль.

0 ответов

Другие вопросы по тегам