HttpWebRequest + HttpWebResponse Get Web Source 使用方法

 
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