读取网页源代码到text1怎么写

Question

点击 Command4 读取网页源代码到text1怎么写
如：百度，www.baidu.com

Answer 1

WebBrowser1.Navigate "http://www.baidu.com"
text1= WebBrowser1.Document.body.innerText

Answer 2

上面的不对啊，只输出了搜索设置 | 登录新 闻　网 页　贴 吧　知 道　MP3　图 片　视 频　地 图
输入法手写拼音关闭空间　百科　hao123 | 更多>>
把百度设为主页
加入百度推广 | 搜索风云榜 | 关于百度 | About Baidu
?2010 Baidu 使用百度前必读 京ICP证030173号 没有源文件啊

Answer 3

    Dim h As Object, s As String
    Set h = CreateObject("Microsoft.XMLHTTP")
    h.Open "GET", "http://www.baidu.com", False
    h.Send
    If h.ReadyState = 4 Then s = StrConv(h.Responsebody, vbUnicode)
    Text1.Text = s