HttpWebRequest + HttpWebResponse Get Web Source 使用方法
Default.aspx.vb |
Imports System Imports System.Net Imports System.IO Partial Public Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Response.Write(ExecuteURL("http://www.yahoo.com.hk")) End Sub Public Function ExecuteURL(ByVal Url As String) As String Try Dim Requester As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest) With Requester .ContentType = "text/plain" .Method = "Get" .Timeout = 10000 End With Dim WebResponse As HttpWebResponse = DirectCast(Requester.GetResponse(), HttpWebResponse) If WebResponse.StatusCode = HttpStatusCode.OK Then Dim readStream As New StreamReader( _ WebResponse.GetResponseStream(), _ System.Text.Encoding.GetEncoding("utf-8")) Return readStream.ReadToEnd() End If WebResponse.Close() Catch ex As Exception Throw End Try Return String.Empty End Function End Class |