用WebRequest类和WebResponse类获取网页源代码
Try
Dim request As WebRequest = WebRequest.Create("http://www.21cn.com")
Dim response As WebResponse = request.GetResponse()
Dim stream As Stream = response.GetResponseStream()
Dim sr As StreamReader = New StreamReader(stream, Encoding.GetEncoding("gb2312"))
txtContent.Text = sr.ReadToEnd
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try