訪問網頁http://www.darkinblack.com/11.html，內容正常顯示為
Kyyhkysm?ki 3 B 20
但我用vb 去獲取網頁內容，卻顯示成
Kyyhkysm?ki 3 B 20
這是為什么呢？ 編碼問題么？需要怎么轉換呢？ 謝謝
Kyyhkysm?ki 3 B 20
Kyyhkysm?ki 3 B 20
我的代碼如下
Public Function getHtmlStr(strUrl As String) As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", strUrl, False
On Error GoTo Err_net
XmlHttp.Send
getHtmlStr = BytesToBstr(XmlHttp.responseBody, "utf-8")
Set XmlHttp = Nothing
Err_net:
End Function
Private Function BytesToBstr(strBody, codeBase) As String
Dim objStream As Object
Set objStream = CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
objStream.Write strBody
objStream.position = 0
objStream.Type = 2
objStream.Charset = codeBase
BytesToBstr = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function
Private Sub Form_Load()
Debug.Print getHtmlStr("http://www.darkinblack.com/11.html")
End Sub
uj5u.com熱心網友回復：
有沒有人在線啊，幫我看看了，謝謝uj5u.com熱心網友回復：
跟代碼沒關系，是顯示字庫的問題。要根據網頁代碼中字符集編碼來調整所用的字體庫。uj5u.com熱心網友回復：
需要怎么調整呢？windows 系統需要安裝什么么？
uj5u.com熱心網友回復：
不行的話就還是用瀏覽器控制元件來顯示這些文字吧：）另外之前論壇中討論過的unicode相關的帖子中，有提到控制元件和字體的，不妨搜索出來參考一下。
uj5u.com熱心網友回復：
不太懂。。。搞不定uj5u.com熱心網友回復：
特殊字符使用普通文本框是顯示不了的.試試使用RichTextBox,它應該能顯示更多的字符.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/128864.html
標籤：網絡編程
下一篇：系統時間轉換UTC時間