[GUIDA][VB.NET]Come sviluppare una connessione via Socket

Imports System.Net
Imports System.Net.Sockets
Imports System.Text.UTF7Encoding

Dim server As TcpListener
   Dim client As TcpClient
   Dim NetStream As NetworkStream

client = New TcpClient
       Try
           Application.DoEvents()
           client.Connect(txtIP.Text, 2000)
       Catch ex As Exception
           MsgBox("Connessione fallita!", MsgBoxStyle.Critical, "Errore")
       End Try
       If client.Connected Then
           MsgBox("Sei connesso!", MsgBoxStyle.Information, "Info")
           NetStream = client.GetStream
           btnConnetti.Enabled = False
       End If

Dim t() As Byte = UTF7.GetBytes(InputBox.Text)
       NetStream.Write(t, 0, t.Length)

If client.Available > 0 Then
           Dim d(client.Available - 1) As Byte
           NetStream.Read(d, 0, d.Length)
           Dim stringa As String = UTF7.GetString(d)
           OutPut.Text += vbCrLf & stringa
       End If

Dim server As TcpListener è inutilizzata...
Dim client As TcpClient è la variabile che servirà a noi per connetterci
Dim NetStream As NetworkStream sarebbe il flusso (un "tubo") do viaggiano i dati....

Client = New TcpClient -> Inizializza il client
Try -> prova a_
Client.Connect(txtIP.Text, 2000) -> Connettiti all' IP specificato nella textbox dell'IP sulla porta 2000
Catch ex As Exception -> In caso di errore
MsgBox("Connessione fallita!", MsgBoxStyle.Critical, "Errore") -> Mostra un messaggio di errore
If client.Connected Then -> Se la connessione è andata a buon fine
          MsgBox("Sei connesso!", MsgBoxStyle.Information, "Info") -> Mostra un messaggio
          NetStream = client.GetStream -> Metti in comunicazione il Client con il Server
          btnConnetti.Enabled = False -> e disattiva il tasto per connetterti...
      End If

Dim t() As Byte = UTF7.GetBytes(InputBox.Text) -> Crea un' Array di Byte che contenga il testo della inputbox
      NetStream.Write(t, 0, t.Length) -> e scrivi questi dati nel flusso....

If client.Available > 0 Then -> Se il Server sta mandando dei dati
          Dim d(client.Available - 1) As Byte -> Crea un' Array che li possa contenere
          NetStream.Read(d, 0, d.Length) -> e falli leggere dal flusso... Ma siccome i dati letti sono in Byte
          Dim stringa As String = UTF7.GetString(d) -> crea una variabile stringa che converta i byte in stringa normale
          OutPut.Text += vbCrLf & stringa -> e insrisci quella stringa nella OutPut
      End If

Imports System.Net
Imports System.Net.Sockets
Imports System.Text.UTF7Encoding

Dim server As TcpListener
   Dim client As TcpClient
   Dim NetStream As NetworkStream

server = New TcpListener(2000)
       server.Start()
       OutPut.Text = "Server avviato... In attesa che quelcuno si connetta!"
       tmrConnessioni.Start()

If server.Pending Then
           client = server.AcceptTcpClient
           NetStream = client.GetStream
           OutPut.Text = "Si è connesso un utente!"
           tmrConnessioni.Stop()
           tmrDati.Start()
       End If

If client.Available > 0 Then
           Dim b(client.Available - 1) As Byte
           NetStream.Read(b, 0, b.Length)
           Dim stringa As String = UTF7.GetString(b)
           OutPut.Text += vbCrLf & stringa
       End If

Dim t() As Byte = UTF7.GetBytes(InputBox.Text)
       NetStream.Write(t, 0, t.Length)

Imports System.Net
Imports System.Net.Sockets
Imports System.Text.UTF7Encoding

Dim server As TcpListener
  Dim client As TcpClient
  Dim NetStream As NetworkStream

server = New TcpListener(2000) -> Inizializza il Server sulla porta 200
      server.Start() -> Avvia il Server
      OutPut.Text = "Server avviato... In attesa che quelcuno si connetta!" -> Scrive nella OutPut (<b>TextBox</b>)
      tmrConnessioni.Start() -> Avvia il Timer che gestirà le connessioni

If server.Pending Then -> Se qualche client stà cercando di connettersi
          client = server.AcceptTcpClient -> Accettalo
          NetStream = client.GetStream -> E mettiti in comunicazione con lui...
          OutPut.Text = "Si è connesso un utente!" -> Scrivi sulla OutPut (<b>TextBox</b>)
          tmrConnessioni.Stop() -> Fermati
          tmrDati.Start() -> e avvia il timer che gestisce i dati in entrata...
      End If

If client.Available > 0 Then -> Se il Client stà mandando dei dati
          Dim b(client.Available - 1) As Byte -> Crea un'Array di Byte che li possa contenere
          NetStream.Read(b, 0, b.Length) -> Leggi i dati dall' Array <b>b</b>
          Dim stringa As String = UTF7.GetString(b) -> Trasforma quei Byte in Stringa
          OutPut.Text += vbCrLf & stringa -> E mettili nella OutPut...
      End If

Dim t() As Byte = UTF7.GetBytes(InputBox.Text) -> Crea un'Array di Byte che contenga il testo della InputBox
      NetStream.Write(t, 0, t.Length) -> E scrivilo sul flusso di dati....