7,763
社区成员
发帖
与我相关
我的任务
分享
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
Destination As Any, _
Source As Any, _
ByVal Length As Long)
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim lpBuff() As Byte, _
size_buff As Integer
ReDim lpBuff(bytesTotal - 1)
Winsock1.GetData lpBuff, vbByte + vbArray, bytesTotal
CopyMemory size_buff, lpBuff(0), 2
Debug.Print "integer:" & CStr(size_buff)
End Sub