'使用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