
Dim s As String = "abc"
'Dim EE As System.Text.Encoding = System.Text.Encoding.Unicode
Dim EE As System.Text.Encoding = System.Text.Encoding.ASCII
Dim B() As Byte = EE.GetBytes(s)试试这个
VB本身就是用Unicode来编码字符串的,也就是说用ASC函数或ASCW函数获取的ASCII码就是Unicode码,不需要转换!

Dim s As String = "abc"
'Dim EE As System.Text.Encoding = System.Text.Encoding.Unicode
Dim EE As System.Text.Encoding = System.Text.Encoding.ASCII
Dim B() As Byte = EE.GetBytes(s)试试这个
VB本身就是用Unicode来编码字符串的,也就是说用ASC函数或ASCW函数获取的ASCII码就是Unicode码,不需要转换!