1,453
社区成员
发帖
与我相关
我的任务
分享发送部分
Private Sub cmdSendData_Click()
'SendArr为已附值的二进制字节数组
sckServer.SendData SendArr
End Sub
接收部分
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim ReceiveArr() As Byte
redim ReceiveArr(bytesTotal-1)
sckClient.GetData ReceiveArr,vbByte + vbArray
End Sub