Socket programming

[krisssgopi]

hi team,

Am doing socket programming in vb.net. I have used client side program in window application and for server side it was console application. Application is running fine. but when send the data from client side, it was got displayed in server end and server was getting closed. i cant able to get where it was hiking up. please help me.

Client side program

Imports System.IO
Imports System.data
Imports System.Net.Sockets
 
Public Class Form1
    Dim serverlistener As New TcpClient("localhost", 8585)
    Dim readstream As Stream = serverlistener.GetStream()
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Try
            serverlistener.SendBufferSize = 256
            Dim str As String
            str = TextBox1.Text
            While str <> ""
                Dim sendbuff As Byte() = System.Text.Encoding.ASCII.GetBytes(str)
                readstream.Write(sendbuff, 0, sendbuff.Length)
 
            End While
        Catch ex As Exception
 
        End Try
 
 
    End Sub
 
 
End Class

Server Side

Imports System.IO
Imports System.Net.Sockets
 
Module Module1
 
    Sub Main()
        Try
            Dim clientlistener As New TcpListener(8585)
            clientlistener.Start()
            Console.WriteLine("")
            Dim mysocket As Socket = clientlistener.AcceptSocket
            Console.WriteLine("")
            Dim writebyte(225) As Byte
            mysocket.Receive(writebyte, writebyte.Length, SocketFlags.None)
            Dim str As String = System.Text.Encoding.ASCII.GetString(writebyte, 0, writebyte.Length).Trim(Microsoft.VisualBasic.ChrW(0))
            Dim i As Integer
            For i = 0 To str.Length
                Console.WriteLine(str)
                'mysocket.Receive(writebyte, writebyte.Length, SocketFlags.None)
                ' str = System.Text.Encoding.ASCII.GetString(writebyte, 0, writebyte.Length).Trim(Microsoft.VisualBasic.ChrW(0))
 
            Next
            'While Not str.StartsWith(".")
 
            '    mysocket.Receive(writebyte, writebyte.Length, SocketFlags.None)
            '    str = System.Text.Encoding.ASCII.GetString(writebyte, 0, writebyte.Length).Trim(Microsoft.VisualBasic.ChrW(0))
 
            'End While
            'Console.WriteLine(str)
 
        Catch ex As Exception
 
        End Try
 
        'Console.Write(str)
 
 
    End Sub
 
End Module