VB访问网页的简单问题。

来源：百度知道 编辑：UC知道 时间：2024/07/08 01:19:13
请问如何用VB获取某网页的HTML源代码？
添加什么控件？什么方法等。谢谢！
谢谢“失恋的小和尚”，但文本框中显示不出中文，而且不能正确地复制粘贴进记事本。劳驾啦！

按钮控件 name="cmdCode"
文本框控件 name="txtUrl"
Microsoft Internet Transfer Control 6.0
默认命名为"Inet1"
Microsoft Rich Textbox Control 6.0
命名为"rtfCode"

Private Sub cmdGetCode_Click()
Dim bCode() As Byte
Dim sTmp As String
Dim i As Integer
On Error Resume Next
bCode = Inet1.OpenURL(txtUrl, 1)
sTmp = ""
For i = 0 To UBound(bCode) - 1
sTmp = sTmp & Chr(bCode(i))

Next i
rtfCode.Text = sTmp
End Sub