VB用Winsock怎么传输任意格式地文件就像QQ传送文件一样.?

居然说是中毒,我汗...这很明显是编程问题.
首先SendData还是一样的,不过参数得是Byte数组.然后在接收的时候这样做:
...
Dim barr() As Byte
Winsock1.GetData barr(), vbArray + vbByte
然后用Put语句存入,结束

中毒了吧 赶紧杀毒

把扩展名先删了，发过去后再添加扩展名