vb发html邮件乱码,用VB中inet控件发送post表单到utf-8的网页里，生成的网页是乱码啊，怎么办！...

困困龙龙

于 2021-06-26 17:16:04 发布

阅读量262

点赞数

文章标签： vb发html邮件乱码

本文介绍了一个使用 VB.NET 实现的字符串到 UTF-8 字节序列的编码转换函数。通过调用 Windows API 函数 WideCharToMultiByte 和 MultiByteToWideChar 来完成从 Unicode 到 UTF-8 的转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Code Snippet

Private Const CP_ACP = 0 ' default to ANSI code page

Private Const CP_UTF8 = 65001 ' default to UTF-8 code page

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

Public Function EncodeToBytes(ByVal sData As String) As Byte() ' Note: Len(sData) > 0

Dim aRetn() As Byte

Dim nSize As Long

nSize = WideCharToMultiByte(CP_UTF8, 0, StrPtr(sData), -1, 0, 0, 0, 0)

ReDim aRetn(0 To nSize - 1) As Byte

WideCharToMultiByte CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize, 0, 0

EncodeToBytes = aRetn

End Function