winsock如何接收二进制数据.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你可以使用Winsock控件这么做： 
     Private Sub TCP1_DataArrival(Index As Integer, ByVal bytesTotal As Long) 
     Dim vta 
     Dim bt() As Byte 
     TCP1(Index).GetData vta, vbArray + vbByte 
     bt = vta 
     ... 
     End Sub 
<END>