发送数据套接字VB.NET

嗨我有客户端和服务器，工作正常。服务器发送文件到客户端和客户端收到它好，但当我再次尝试重新发送另一个文件服务器和客户端时，他们失去了沟通。请帮助我？thks



服务器代码：

Hi i have client and server and work fine.Server send file to client and client receive it good,But when i try again to resend another file server and client they lose communication.Please Help me?thks

Server Code:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim imgPath As String = "C:\Users\Sinestic\Desktop\1.exe"
       Dim Client As New TcpClient("127.0.0.1", 9999)
       Dim ByteArray() As Byte ' Data buffer
       Dim Fs As FileStream = New FileStream(imgPath, FileMode.Open, FileAccess.Read)
       Dim Reader As New BinaryReader(Fs)
       Try
           Dim Writer As New BinaryWriter(Client.GetStream) ' Get socket's stream
           'send size of file
           Writer.Write(CInt(Fs.Length))
           'Send the file data
           Do
               'read data from file
               ByteArray = Reader.ReadBytes(2048)
               'write data to Network Stream
               Writer.Write(ByteArray)
           Loop While ByteArray.Length = 2048
           'make sure all data is sent
           Writer.Flush()
           Writer.Close()
           Reader.Close()
       Catch ex As Exception
           MessageBox.Show(ex.ToString)
       End Try

   End Sub

客户代码：

Client Code:

<pre> Client = Listener.AcceptTcpClient()
        Dim Reader As BinaryReader
        Dim ReadBuffer(PACKET_SIZE - 1) As Byte
        Dim NData As Int32
        Dim MStream As MemoryStream
        Dim LData As Int32
        Reader = New BinaryReader(Client.GetStream)
        ' Read Length of data (Int32)
        NData = Reader.ReadInt32
        ' Now comes the data, save it in a memory stream
        MStream = New MemoryStream
        While NData > 0
            LData = Client.GetStream.Read(ReadBuffer, 0, PACKET_SIZE)
            MStream.Write(ReadBuffer, 0, LData)
            NData -= LData
        End While
        Timer1.Enabled = False
        'PictureBox1.Image = Image.FromStream(MStream)
        'PictureBox1.Image.Save("C:\Users\Sinestic\Desktop\150.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim file As New FileStream("C:\Users\Sinestic\Desktop\1000.exe", FileMode.Create, FileAccess.Write)
        MStream.WriteTo(file)
        file.Close()

我尝试过：

What I have tried:

Hi i have client and server and work fine.Server send file to client and client receive it good,But when i try again to resend another file server and client they lose communication.Please Help me?thks