タイトル : Re^4: IE8環境でのMSXML2.XMLHTTP30挙動 投稿日 : 2010/11/23(Tue) 08:29 投稿者 : IMA
魔界の仮面弁士さん、またお世話になりました。 > 初回接続時のレスポンスに Set-Cookie ヘッダーがあるのなら、 > 認証時のリクエストにその Cookie を付与しておけば解決しませんか? 花ちゃんさんに言われ、魔界の仮面弁士さんにも利用可能性をコメント戴くと 再度試してみなくては!という気になります。(汗 結果ですが、上手く行きました。 接続完了後も、認証が生きており希望のURLのソースhtmlを上手く早く 取得可能になりました。 具体的には、当該HPがSHIFT-JISの為か、PostDataは文字列ではダメで バイト配列にする必要があったようです。 http://d.hatena.ne.jp/juku-cho/20090429/1240971645 http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200501/200501_05010059.html 以下、参考情報として概要を記載しておきます。 ・・・文字は適当に置き換えて下さい Dim sPostData As String, sURL As String Dim oHttp As New MSXML2.XMLHTTP Dim bPostData() As Byte sURL = "https://www.hoge・・・・" sPostData = "id=guest&pw=guest・・・" bPostData = StrConv(sPostData, vbFromUnicode) oHttp.Open "post", sURL, False oHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" oHttp.setRequestHeader "Cookie", "・・・・" oHttp.send bPostData 'Debug.Print oHttp.getAllResponseHeaders 'Debug.Print oHttp.responseText 今回もまた、勉強させていただきました。 (getAllResponseHeaders、setRequestHeader・・・) どうも有り難うございました。 |