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

解決

とんまのまんポ 2005-03-31 23:44:30 No: 120601

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

とんまのまんポ 2005-03-31 23:51:36 No: 120602

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

    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

とんまのまんポ 2005-04-01 01:08:13 No: 120603

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