Question

VB6中文关于WinSock获取数据 中文乱码，字母和数字就能正确显示

大哥大姐们请帮忙，小弟研究VB时间不多，迷糊中。谢谢老 首先:
这种不行，不能显示
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dd As String
Winsock1.GetData dd
Text1.Text = dd
End Sub下面这种：
显示时中文乱码，字母和数字可以正确显示
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strGetData() As Byte
Winsock1.GetData strGetData, vbArray + vbByte

For j = 0 To UBound(strGetData)
Text1.Text = Text1.Text & Chr(strGetData(j))
Next
End Sub
大哥大姐们请帮忙，小弟研究VB时间不多，迷糊中。谢谢老

Answer 1

不知道你是不是抓取网页的时候遇到的乱码，如果是，下面提供我的解决方法，如果不是，我就帮不了你哈：（用MultiByteToWideChar） 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 GetTickCount Lib "kernel32" () As Long Private Sub YuZhe_WinSocket_DataArrival(ByVal bytesTotal As Long)
Dim strmyfile As String Dim SocketPageUrlCode As Long
Dim myfile() As Byte
YuZhe_WinSocket.GetData myfile, vbArray + vbByte, bytesTotal
strmyfile = YuZhe_WinSocket_Decode(myfile, 65001) ‘65001即为utf-8页面编码，gb2312--936
SocketPageData = SocketPageData & strmyfile
End Sub Private Function YuZhe_WinSocket_Decode(bUTF8() As Byte, iCodeID As Long) As String '二进制解析为UTF8
Dim lRet As Long
Dim lLen As Long
Dim lBufferSize As Long
Dim sBuffer As String
Dim bBuffer() As Byte
lLen = UBound(bUTF8) + 1
If lLen = 0 Then Exit Function
lBufferSize = lLen * 2
sBuffer = String$(lBufferSize, Chr(0))
lRet = MultiByteToWideChar(iCodeID, 0, VarPtr(bUTF8(0)), lLen, StrPtr(sBuffer), lBufferSize)
If lRet <> 0 Then
sBuffer = Mid(sBuffer, 1, lRet)
End If
YuZhe_WinSocket_Decode = sBuffer
End Function

Answer 2

试试这个Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim bb(1 To bytesTotal) As Byte Dim DD As String Winsock1.GetData bb() DD = StrConv(bb(), vbFromUnicode)End Sub