运用.net中的socket实现文件传输
　　socket是套接字，使用它我们可以很方便的实现网络的数据传输。在.net中提供了socket类来帮助开发者调用socket的使用，从而避免了调用socket的动态库来实现socket的麻烦。下面我们就来看一个简单的例子，从这个简单的例子来看看.net中的socket类实现socket是多么的方便。
　　编程思路：在这个简单的例子中我们将通过socket来实现文件的网络传输和接收功能。要实现这两个功能我们需要通过vs.net建立两个实例来完成。一个发送端，一个接收端。由于文中已经给出了详细的注释这里就不罗嗦了。
　　发送端
　　PublicClassForm1
　　InheritsSystem.Windows.Forms.Form
　　PrivateSubButton1_ClickHandlesButton1.Click
　　DimsendsocketAsNewNet.Sockets.Socket
　　’实例化socket
　　DimipendpiontAsNewNet.IPEndPoint
　　，8888)’建立终结点
　　’OpenFileDialog1.ShowDialog
　　DimfsAsNewIO.FileStream’要传输的文件
　　DimfssizeAsByte
　　DimstrreadAsNewIO.BinaryReader’流处理要传输的文件
　　’fs.Read
　　strread.Read
　　sendsocket.Connect’连接远程计算机
　　sendsocket.Send’发送文件
　　Label1.Text=fs.Length
　　fs.Close
　　sendsocket.Shutdown
　　’关闭发送连接
　　sendsocket.Close’关闭本机socket
　　EndSub
　　EndClass
　　接收端
　　PublicClassForm1
　　InheritsSystem.Windows.Forms.Form
　　DimreceivesocketAsNewNet.Sockets.Socket
　　PrivateSubForm1_LoadHandlesMyBase.Load
　　DimhostipendpiontAsNewNet.IPEndPoint
　　，8888)
　　receivesocket.Bind
　　’建立远程计算机的的socket
　　receivesocket.Listen’监听socket
　　EndSub
　　PrivateSubButton1_ClickHandlesButton1.Click
　　DimrecfsAsNewIO.FileStream
　　’接收数据并将其保存到一个新的文件中
　　DimrecbyteAsByte
　　DimhostsocketAsNet.Sockets.Socket=
　　receivesocket.Accept
　　’同意和发送端计算机建立连接
　　DimnewfilestrAsNewIO.BinaryWriter’流写
　　hostsocket.Receive
　　’recfs.Write
　　newfilestr.Write
　　recfs.Close
　　hostsocket.Shutdown
　　hostsocket.Close
　　EndSub
　　EndClass
　　通过上面的简单语句我们就完成网络文件的发送和接收，但是这里有一点要注意，此代码只可以接受文本文件和图片文件，对于其他文件的发送和接收将导致编码错误，如果你不相信你可以传输一个mp3文件，再在播放器中打开接收到的mp3文件，你会听到只有开头不到2秒的音乐可以播放。如果想解决这个问题你需要使用，net中的tcp/ip类或udp类来实现，当然调用底层的socket动态库也可以解决这个问题。