Public Function GetCode(ByVal _URL As String) As String
Try
Dim req As HttpWebRequest = WebRequest.Create(_URL)
Dim res As HttpWebResponse = req.GetResponse()
Dim strm As StreamReader = New StreamReader(res.GetResponseStream(), Encoding.Default)
Return strm.ReadToEnd
Catch ex As Exception
Return ""
End Try
End Function

Dim webclient As New WebClient, s As Strings = Encoding.GetEncoding("网页编码").GetString(webclient.DownloadData(url))