使用HttpWebRequest获得URL的返回值

'使用HttpWebRequest获得URL的返回值

Function GetUrlValue(ByVal Url As String) As String

    Dim HttpWebRequest As System.Net.WebRequest = System.Net.WebRequest.Create(Url)

 

    Dim HttpWebResponse As System.Net.WebResponse = HttpWebRequest.GetResponse()

    Dim HttpStreamReader As New System.IO.StreamReader(HttpWebResponse.GetResponseStream(), System.Text.Encoding.GetEncoding("GB2312"))

 

    Return HttpStreamReader.ReadToEnd

End Function