vb 中文乱码

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:34:53
我用VB编程获取网页的源文件，对于网站的编码机制为GB2312格式的网站都没有问题，可是对于编码机制为UTF-8的网站，获得到的源文件中的中文都成了乱码，请求解决方案，最好是代码形式的，能有相应注释最好~
另外，获取代码为“getHTTPPage ("http://www.wztf121.com/Typhoon.aspx?id=200822")”所列网址即为有问题的网站。

需要对下载下来的网页进行编码转换，将UTF-8转成Unicode

新建一模块名为Module_UTF8：

Option Explicit

Public m_bIsNt As Boolean

Public Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Public Const CP_UTF8 = 65001

'Purpose:Convert Utf8 to Unicode
Public Function UTF8_Decode(B