VB 获取网页源码后乱码问题

概述utf-8 编码问题 用我这个试试 Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")Dim ObjXMLOn Error Resume NextSet ObjXML = CreateObject("Microsoft.XMLHTTP")With ObjXML.Open "Get", URL, Fa utf-8 编码问题
用我这个试试

Public Function Getbody(ByVal URL$,Optional ByVal Coding$ = "GB2312")Dim ObjXMLOn Error Resume NextSet ObjXML = CreateObject("Microsoft.XMLhttp")With ObjXML.Open "Get",URL,False,"","".setRequestheader "If-ModifIEd-Since","0".SendGetbody = .responseBodyEnd WithGetbody = BytesToBstr(Getbody,Coding)Set ObjXML = nothingEnd FunctionPublic Function BytesToBstr(strBody,CodeBase)Dim ObJstreamSet ObJstream = CreateObject("Adodb.Stream")With ObJstream.Type = 1.Mode = 3.Open.Write strBody.position = 0.Type = 2.Charset = CodeBaseBytesToBstr = .ReadText.CloseEnd WithSet ObJstream = nothingEnd Function

注意第一行代码中Coding$ = "GB2312" 表示获取的网页内容为GB2312编码格式，如果出现乱码，那么就换成Coding$ = "utf-8"
返回值为：

a = Getbody("http://www.baidu.com")

也有人说

strconv( .responseBody,vbUnicode) 就可以了

总结

以上是内存溢出为你收集整理的VB 获取网页源码后乱码问题全部内容，希望文章能够帮你解决VB 获取网页源码后乱码问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。