winsock传汉字正常 传字母成乱码

Question

  如题 是怎么回事啊？
接收命令的代码：
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim datas As String
Wk.GetData datas
MsgBox datas
。。后面的代码没发出来。
发送代码：
Private Sub Command1_Click()
F1.serversk(i).SendData text1.text
MsgBox txt1
End Sub上面的收发消息代码 是哪错了？为什么发英文就会变成乱码？而发汉字就正常显示？请各位帮忙

Answer 1

我还没用过这东东。
楼主试一下这个代码行不：
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
    Dim datas As String
    Dim arrBuffer() As Byte
    
    ReDim arrBuffer(bytesTotal)
    'Wk.GetData datas
    Wk.GetData arrBuffer
    dataa = StrConv(arrBuffer, vbUnicode)
    MsgBox datas
    ..........................
    .....................
    
End Sub

Answer 2

上面的 dataa 应为 datas .......^_^