用socket實現簡單的文件傳輸

發送耑：
　　'By wgscd
　　Dim sendsocket As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)

　　 '實例化socket
Dim ipendpiont As New Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 8888) '建立終結點
'OpenFileDialog1.ShowDialog()
Dim fs As New IO.FileStream("c:\wgscd.dat", IO.FileMode.OpenOrCreate, IO.FileAccess.Read) '要傳輸的文件
Dim fssize(fs.Length - 1) As Byte
Dim strread As New IO.BinaryReader(fs) '流処理要傳輸的文件
'fs.Read(fssize, 0, fssize.Length - 1)
strread.Read(fssize, 0, fssize.Length - 1)
sendsocket.Connect(ipendpiont) '連接遠程計算機
sendsocket.Send(fssize) '發送文件
Label1.Text = fs.Length()
fs.Close()
sendsocket.Shutdown(Net.Sockets.SocketShutdown.Send)
'關閉發送連接
sendsocket.Close() '關閉本機socket

　　接收耑：
　　Dim receivesocket As New Net.Sockets.Socke(Net.Sockets.AddressFamily.InterNetwork,Net.Sockets.SocketType.Stream,Net.Sockets.ProtocolType.Tcp)
　　Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
　　Dim hostipendpiont As New Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 8888)
　　receivesocket.Bind(hostipendpiont)
　　'建立遠程計算機的的socket
　　receivesocket.Listen(2) '監聽socket
　　End Sub

　　Private Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button1.Click

　　Dim recbyte(229888990) As Byte
　　Dim hostsocket As Net.Sockets.Socket = receivesocket.Accept()
　　'同意和發送耑計算機建立連接

　　hostsocket.Receive(recbyte)
　　If hostsocket.Receive(recbyte) > 0.1 Then
　　MsgBox("yyyyy" & hostsocket.Receive(recbyte))
　　End If

　　Dim recfs As New IO.FileStream("c:\wgscd2.dat", IO.FileMode.OpenOrCreate)
　　'接收數據竝將其保存到一個新的文件中

　　Dim newfilestr As New IO.BinaryWriter(recfs) '流寫
　　'recfs.Write(recbyte, 0, recbyte.Length - 1)
　　newfilestr.Write(recbyte, 0, recbyte.Length - 1)
　　recfs.Close()
　　hostsocket.Shutdown(Net.Sockets.SocketShutdown.Receive)
　　hostsocket.Close()
　　End Sub