利用Winsock控件实现局域网通信(二)(2) 远程机收到这个数组之后，再以二进制文件的方式打开一个新目标文件，将数组内容写入这个新打开的文件，如果是bmp图片就将其放入picture图片框中，如果是wav文件，就播放。这样，局域网中的两个人就可以通过语言、图片、文字来交流了。 远程机代码如下：
Private sub sckconnect_DataArrival(byval bytestotal as long)
dim receivefile(1 to bytestotal)as byte
sckconnect.GetData receivefile,vbarray+vbbyte
'告诉Winsock控件收到的是字节数组类型的数据
open "c:\temp\文件名" for binary as #1
for I=1 to bytestotal
put #1,,remotearray(I)
next I
clost #1
end sub
