16,554
社区成员
发帖
与我相关
我的任务
分享
Dim myWebRequest As WebRequest = WebRequest.Create("http://www.tingbook.com/book/385.html")
'myWebRequest.ContentType = "application/x-www-form-urlencoded"
myWebRequest.Timeout = 5000
Dim _htmlCode As String = ""
Dim _titleCode As String = ""
Try
Dim myWebResponse As WebResponse = myWebRequest.GetResponse
Dim resStream As Stream = myWebResponse.GetResponseStream
Dim sr As StreamReader = New StreamReader(resStream, Encoding.UTF8)
_htmlCode = sr.ReadToEnd
resStream.Close()
sr.Close()
rtxtInfo.Text = _htmlCode 'rtxtInfo 是个文本框
Catch ex As Exception
MsgBox(ex.Message)
End Try