主题：[求助]中文乱码问题

参考

 

dim web = e.Form.Controls("WebBrowser1").basecontrol dim s as io.Stream = web.DocumentStream Dim getReader = new System.IO.StreamReader(s, Encoding.utf8) Dim str = getReader.ReadToEnd() msgbox(str)

请贴出你抓取网页的代码。

Dim url As String = ***
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd   
stm.Dispose()

如

 

Dim url As String = "http://www.baidu.com"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm,encoding.utf8)
Dim str As String = reader.ReadToEnd  
stm.Dispose()
Return(str)

这个我试过了，没有效果，中文还是乱码

 

具体网页地址贴出来测试。