下面请求sohu首页是乱码，不知为何？

Question

Dim myuri As New Uri("http://www.sohu.com/")
        If myuri.Scheme = Uri.UriSchemeHttp Then
            Dim request As HttpWebRequest = HttpWebRequest.Create(myuri)
            request.Method = WebRequestMethods.Http.Get
            Dim response As HttpWebResponse = request.GetResponse
            Dim reader As New IO.StreamReader(response.GetResponseStream())
            Panel1.GroupingText = reader.ReadToEnd
            response.Close()
        End If

Answer 1

設置HttpWebRequest的編碼為：GB2312

Answer 2

public bool SaveToFile( string resourceUrl,string destFile )
{
string sourceCode = GetResourceCode( resourceUrl ) ;
if( sourceCode.Length > 0 )
{ byte[]  bytes = Encoding.Default.GetBytes(sourceCode);
//取得的utf-8编码转换成gb2312编码
System.Text.Encoding utf8 = System.Text.Encoding.GetEncoding("utf-8");
System.Text.Encoding gb2312 = System.Text.Encoding.GetEncoding("gb2312");
System.Text.Encoding.Convert(utf8, gb2312, bytes); FileStream fs = new FileStream(destFile, FileMode.Create, FileAccess.Write);
fs.Write(bytes, 0, bytes.Length);
fs.Flush();
fs.Close();
return true ;
}
else
{
return false ;
}
}C#写的,跟VB.net差不多,可以参考下

Answer 3

谢谢两位!这样就行了:            
Dim reader As New IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.Default)