ResponseTextの値の文字化け (ID:101852)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも参考にさせていただいております。 htaのコーディングをおこなっております。MSXML2で別の端末にあるcgiプログラムにPOSTでデータを送信し、ResponseTextで実行結果(CGIが吐く登録完了画面)を取得していますが、どうにも文字化けが解消されません。 Set objXMLHTTP=CreateObject("MSXML2.XMLHTTP") objXMLHTTP.open "POST", strURL, False objXMLHTTP.Send strPutString strResult=objXMLHTTP.ResponseText Wiresharkで見たところ、strResultにはutf-8のデータが入っているようです。「あいうえお」と設定した<TITLE>部分に、「\202\240\202\242\202\244\202\246\202\250」と入っています。 htaファイルはshift_jisでコーディングしており、ResponseTextの値も同様にしたいと思います。ADODB.StreamでCharset=shift_jisとするのではだめなようです。 Set hoge=CreateObject("ADODB.Stream") hoge.Type=2 hoge.Charset="shift_jis" hoge.Open hoge.WriteText strResult hoge.Position=0 hoge.Type=1 hoge.Position = 3 strResult=hoge.Read() hoge.Close Set hoge=Nothing よろしくお願いします。