[Pytanie] Src kodu Tcp/IP

[StuSto]

Tzn czatt cały kod:

Imports System.Net.Sockets, System.Threading, System.IO
Public Class Form1
    Dim listener As New TcpListener(8000)
    Dim client As New TcpClient
    Dim msg As String

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        listener.Stop()
        Application.Exit()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listener.Start()
        Dim lt As New Thread(New ThreadStart(AddressOf listening))
    End Sub
    Private Sub listening()
        listener.Start()
    End Sub

    Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt.Click
        If rb1.Text = "" Then
            MsgBox("Wprowadź Tekst Do Wysłania", MsgBoxStyle.Exclamation, "Błąd")
        Else
            Try
                client = New TcpClient(tb.Text, 8000)
                Dim writer As New StreamWriter(client.GetStream())

                writer.Write(rb1.Text)
                rb.AppendText(Format(Now, "[ hh:mm:ss] - ") & "Ty: " & rb1.Text & vbCrLf)
                rb1.Clear()
                writer.Flush()
            Catch ex As Exception
                MsgBox("Błąd")
            End Try
        End If
    End Sub

    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick
        If listener.Pending = True Then
            msg = ""
            client = listener.AcceptTcpClient()
            Dim reader As New StreamReader(client.GetStream())
            While reader.Peek > -1
                msg = msg + Convert.ToChar(reader.Read()).ToString
            End While

            rb.AppendText(Format(Now, "[ hh:mm:ss] - ") & "On/Ona: " & msg)
        End If
    End Sub

    Private Sub rb1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rb1.KeyDown
        If e.KeyCode = Keys.Enter Then
            bt.PerformClick()
        End If
    End Sub
End Class

I to dziala tak ze jak wpisze np 2 to sie wysyla Ty:2 i On/Ona :2 a ja chce by tylko wysylalo ty: 2 bez on/ona

daje like

I powiedzcie mi czy ten kod dziala normalnie ? czyli jak czat?

[Gość]

  rb.AppendText(Format(Now, "[ hh:mm:ss] - ") & "On/Ona: " & msg)

[StuSto]

@up nic nei daje tylko usuwa " spacje " i sie lacza ze soba

[Vesim]

Jest tak dla tego że wyświetlasz "ty: widomość" wysyłasz do serwera i wyświetlasz "On/Ona: wiadomość".

[StuSto]

@up jest mozliwosc zmienienia ze to co ja nie napisze zostanie nie pokazane?

 

Temat do zamkniecia src wgl nie dziala jak powinien