用以下代码获得网页内容报错:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sResult As String
Dim objResponse As WebResponse
Dim objRequest As WebRequest = HttpWebRequest.Create("http://www.sczh.com/sczh/article.asp?page=1&cat_id=&select=内容&keyword=风")
With objRequest
.Method = "Get"
.Timeout = 120000
Try
objResponse = .GetResponse
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
End With
Dim sr As New StreamReader(objResponse.GetResponseStream, System.Text.Encoding.Default)
sResult = sr.ReadToEnd
TextBox1.Text = sResult
End Sub
怎么办??
