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, но код все еще работает.
Мой вопрос сейчас где
Credentials
спасен? Coockie?Есть ли способ, которым HttpRequest использует настройки прокси IE? -> Нет необходимости спрашивать имя пользователя и пароль.