编码问题

1.utf8转改变312

       Dim utfinfo As String = Trim(WebBrowser1.DocumentText)
        Dim gb2312info As String = String.Empty

        Dim utf8 As Encoding = Encoding.UTF8
        Dim gb2312 As Encoding = Encoding.GetEncoding("gb2312")

        ' Convert the string into a byte[].
        Dim unicodeBytes As Byte() = utf8.GetBytes(utfinfo)
        ' Perform the conversion from one encoding to the other.
        Dim asciiBytes As Byte() = Encoding.Convert(utf8, gb2312, unicodeBytes)

        ' Convert the new byte[] into a char[] and then into a string.
        ' This is a slightly different approach to converting to illustrate
        ' the use of GetCharCount/GetChars.
        Dim asciiChars As Char() = New Char(gb2312.GetCharCount(asciiBytes, 0, asciiBytes.Length) - 1) {}
        gb2312.GetChars(asciiBytes, 0, asciiBytes.Length, asciiChars, 0)
        gb2312info = New String(asciiChars)
原帖地址忘了

 

2.WebBrowser中解决中文乱码

        Dim getReader As New System.IO.StreamReader(WebBrowser1.DocumentStream, System.Text.Encoding.GetEncoding("gb2312"))
        Dim gethtml As String = getReader.ReadToEnd()

原帖地址：http://www.cnblogs.com/antsoftcn/archive/2006/12/27/604746.html