inetを使ってHTMLソースの取得 (ID:120601)

名前

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

本文 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