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

名前

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

本文 テキストで読み込んでも、バイナリで読みこんでもうまくいかないんですよね？？ 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