inetを使ってHTMLソースの取得

解決

---

VB6とwin2000で開発しています。
Inetを使ってHTMLソース取得は出来たのですが、
文字コードを変換する事がうまくいきません。
過去ログを調べて下記のようにやってみたのですがうまくいきません。
EUCからのコンバートは出来ないのでしょうか？いかがなものでしょうか？

    Dim Stm As ADODB.Stream
    
    Set Stm = New ADODB.Stream
    Stm.Open
    Stm.Type = adTypeBinary
    Stm.Write Inet1.OpenURL("http://www.yahoo.co.jp", 1)

    Stm.Position = 0
    Stm.Type = adTypeText
    Stm.Charset = "Shift_JIS"
    
    Text1.Text = Stm.ReadText()
    Stm.Close
    Set Stm = Nothing

編集 削除

---

テキストで読み込んでも、バイナリで読みこんでもうまくいかないんですよね？？

    Dim Stm As ADODB.Stream
    
    Set Stm = New ADODB.Stream
    Stm.Open
    Stm.Type = adTypeText
    Stm.Charset = "EUC-JP"
    Stm.WriteText Inet1.OpenURL("http://www.yahoo.co.jp", 0)

    Stm.Position = 0
    Stm.Type = adTypeText
    Stm.Charset = "Shift_JIS"
    
    Text1.Text = Stm.ReadText()
    Stm.Close
    Set Stm = Nothing

編集 削除

---

すいません。過去ログをよく調べたら出来ました。ありがと。。。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。