Как я могу получить доступ к cookie из InternetExplorer.Application

Question

Можно ли получить доступ к заголовку ответа из InternetExplorer.Application в VB / VBA / VB.net?

myIE = CreateObject("InternetExplorer.Application")
    .Visible = False
    .Navigate "http://someserver/resources/postrequest"

Дайте этот код, как бы я взял заголовок или, более конкретно, cookie.

Это очень полезно для выполнения вызовов веб-службы с использованием MSXML2.ServerXMLHTTP на серверах, для которых требуется cookie для проверки подлинности. После получения файла cookie его можно передать в заголовок для последующих вызовов веб-службы.

Answer 1

Private Declare Sub Sleep Lib "kernel32" _
    (ByVal dwMilliseconds As Long)

Private Function getCookie()
    Dim myIe As Object
    Set myIe = CreateObject("InternetExplorer.Application")
    myIe.Visible = False
    myIe.Navigate "http://someurl"
    Do While myIe.Busy
        Sleep 20
    Loop
    getCookie= myIe.Document.cookie
End Function

---

Чтобы это работало в 64-битной среде, необходимо добавить ключевое слово PtrSafe в определение Sleep:

Private Declare PtrSafe Sub Sleep Lib "kernel32" _
    (ByVal dwMilliseconds As Long)