Winsock1.GetData接收数据问题
方法1
Dim sTemp1 As String
Winsock1.GetData sTemp1 '接收数据 放入 sTemp1 内 一次最多1024节字?
Text1.Text = sTemp1 '显示为乱码
方法2
Dim bb(1 To 200) As Byte
Dim ti As Integer
Winsock1.GetData bb()
For ti = 0 To 200
Print bb(ti) '全部显示为0
Next ti
有什么办法可以解决？
[解决办法]
Dim bb() As Byte
Dim ti As Long
ReDim bb(bytesTotal-1)
Winsock1.GetData bb
For ti = 0 To bytesTotal-1
debug.Print right("0"+Hex(bb(ti)),2);" ";
Next ti
debug.print
