Client

Imports System.Net.Sockets
Imports System.Text.UTF8Encoding

Public Partial Class MainForm

Dim servitore As TcpListener
Dim cliente As TcpClient
Dim flusso As NetworkStream

Dim connessione As Boolean = False

    Public Sub New()

        Me.InitializeComponent()

    End Sub

    Sub MainFormLoad(sender As Object, e As EventArgs)

    End Sub

    Sub ConnectorTick(sender As Object, e As EventArgs) 'SI OCCUPA DELLE CONNESSIONI-----------------------------------------------------------------------------------------

    If servitore.Pending() Then
              connector.Stop()
              cliente = servitore.AcceptTcpClient()
              flusso = cliente.GetStream()
              reader.Start()
              log_msg("CONNESSIONE EFFETTUATA!")
    End If

    End Sub

    Sub ReaderTick(sender As Object, e As EventArgs) 'SI OCCUPA DEL FLUSSO DATI-------------------------------------------------------------------------------------------

    If cliente.Available > 0 Then
        Dim temp(cliente.Available - 1) As Byte
        flusso.Read(temp, 0, temp.Length)
        Dim testo As String = UTF8.GetString(temp)
        log_msg("SERVER: " & testo)
   End If

    End Sub
    Sub Connetti_btnClick(sender As Object, e As EventArgs)'INIZIA LA CONNESSIONE ------------------------------------------------------------------------------

    If connessione = False then

    servitore = New TcpListener(port_txt.text)
    servitore.Start()
    Connector.Start()
    log_msg("Server in ascolto")
    port_txt.Enabled = False
    connessione = True
    connetti_btn.Text = "Termina"
    Else
    Dim temp() As Byte = UTF8.GetBytes("bb")
    flusso.Write(temp, 0, temp.Length)

    connessione = False
    connetti_btn.Text = "Ascolto"
    log_msg("CONNESSIONE TERMINATA --")
    servitore.Stop
    End if
    End Sub
    Sub log_msg(messaggio As String) 'MOSTRA I MESSAGGI NEL LOG ----------------------------------------------------------------------------------------
        log_txt.Text = log_txt.Text & messaggio & vbCrLf

    End Sub

    Sub Send_btnClick(sender As Object, e As EventArgs)  'INVIA MESSAGGi-----------------------------------------------------------------------------------------

    log_msg("Inviato: " & messaggio_txt.Text)
    Dim temp() As Byte = UTF8.GetBytes(messaggio_txt.Text)
    flusso.Write(temp, 0, temp.Length)
    messaggio_txt.Text = ""
    End Sub
End Class