Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.webxml.com.cn/WebServices/WeatherWebService.asmx/getWeatherbyCityName?theCityName=59316")

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

rsps = Nothing

rqst = Nothing

Dim reader As New System.IO.StreamReader(stm)

Dim strXML As String = reader.ReadToEnd

stm.Dispose()