2012-03-13 23 views
0

VB/VBA/VB.netのInternetExplorer.Applicationからレスポンスヘッダーにアクセスすることは可能ですか?InternetExplorer.Applicationからクッキーにアクセスする方法

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

このコードを入力すると、ヘッダー、具体的にはCookieがどのように取得されますか。

これは、認証のためにCookieが必要なサーバーにMSXML2.ServerXMLHTTPを使用してWebサービス呼び出しを行う場合に非常に便利です。 Cookieを取得すると、後続のWebサービス呼び出しのヘッダーに渡すことができます。 64ビットで動作するように受け入れられて答えを

答えて

0
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 
+0

限り、そうでないと"HTTPOnly" cookie –

+0

Excel 2007でコンパイルエラーが発生しました。 "このプロジェクトのコードは、64ビットシステム用に更新する必要があります" –

+1

kernel32をkernel64に変更する可能性がありますか?ちょうど推測... – ltfishie

関連する問題