'Get the return value of the URL using HTTPWebRequest
Function geturlue (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
