Dim errorMsg As String

Dim URL As String

URL = "http://www.cndev.org"

errorMsg = ""

Try


Dim wReq As System.Net.WebRequest
Dim wResp As System.Net.WebResponse

wReq = System.Net.WebRequest.Create(URL)

wResp = wReq.GetResponse()
Dim reader As System.IO.StreamReader = New System.IO.StreamReader(wResp.GetResponseStream, System.Text.Encoding.Default)
Dim writer As System.IO.StreamWriter = New System.IO.StreamWriter("F:\a.htm", False, System.Text.Encoding.GetEncoding("gb2312"))
'Response.Write(reader.ReadToEnd)
writer.Write(reader.ReadToEnd)
writer.Flush()
writer.Dispose()
reader.Dispose()





Catch ex As Exception

errorMsg = ex.Message


End Try