vb.net 读取div html,VB.NET使用WebRequest和WebResponse获得网页源代码

Dim url As String

Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)

url = "http://news.qq.com/a/20080402/000148.htm"

Response.Write(GetHttp(url, "get"))

End Sub

Sub Page_Unload(ByVal Sender As Object, ByVal E As EventArgs)

End Sub

Function GetHttp(ByVal This_Url As String, ByVal PostType As String) As String

'HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持'，也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。

Dim httpReq As System.Net.HttpWebRequest

' HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响'应的 HTTP 独立客户端应用程序。

Dim httpResp As System.Net.HttpWebResponse

Try

If PostType = "POST" Then

Dim TmpUrl() As String = Split(This_Url, "?")

Dim PostStr As String = TmpUrl(TmpUrl.Length - 1)

Dim requestBytes As Byte() = System.Text.Encoding.Default.GetBytes(PostStr)

httpReq = WebRequest.Create(TmpUrl(0))

httpReq.Method = "POST"