圣光

摘要： 这个问题困惑我很久了,以前总是要让用户自己根据网页编码来选择UTF-8还是GB2312 。今天遇到一个读取文件乱码,突然想起了以前用XMLHTTP获取网页源代码乱码问题,嘿嘿~一同解决了。 跟大家分享一下吧!主要是对编码的判断,然后进行相对应的转换即可。代码如下：Option ExplicitPrivate Sub Form_Load() '测试 Text1.Text = GetHtml("http://www.NewXing.com")End SubPublic Function GetHtml(url As String) Dim xmlHttp As Obje 阅读全文