如何实现类似“查看源文件”的功能？？

Question

即：打开网页-〉查看-〉源文件
实现的功能就是，给出URL，就可以看它的源文件
用OpenURL好像不行
对某些网页看不了
求助!

Answer 1

补充:不是看不了,而是打开速度太慢
b() = Inet1.OpenURL(URL.Text, 1)
    
txt = ""
For t = 0 To UBound(b) - 1
   txt = txt + Chr(b(t))
Next

Answer 2

OpenURL的数据类型你怎么用Binary啊？就算用Binary，也不要用Chr来拼合字符串，这样肯定会很慢的Dim b() As Byte
b = Inet1.OpenURL("http://www.guobininstitute.com", 1)
Text1.Text = StrConv(b, vbUnicode)