tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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・・・)

どうも有り難うございました。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。