Salve a tutti.
Dovrei comunicare via cavo di rete con una periferica (sensori di pressione), inviare comandi e ricevere dati; tuttavia non riesco neppure a partire.
Ho eseguito il codice di esempio della guida ma non trova la periferica, il codice si blocca sulla ricerca alle istruzioni Dim client As TcpClient = server.AcceptTcpClient()

codice:
  Private Sub Listener()
    Dim server As TcpListener
    server = Nothing
    Try
      Dim localAddr As IPAddress
      localAddr = IPAddress.Any
      server = New TcpListener(localAddr, 0)
      ' Start listening for client requests.
      server.Start()
      ' Buffer for reading data
      Dim bytes(1024) As Byte
      Dim data As String = Nothing
      ' Enter the listening loop.
      While True
        Debug.Print("Waiting for a connection... ")
        ' Perform a blocking call to accept requests.
        ' You could also user server.AcceptSocket() here.

        '-------------------------------------------------------------------------
        Dim client As TcpClient = server.AcceptTcpClient() ' si blocca qui...
        '-------------------------------------------------------------------------

        Debug.Print("Connected!")
        data = Nothing
        ' Get a stream object for reading and writing
        Dim stream As NetworkStream = client.GetStream()
        Dim i As Int32
        ' Loop to receive all the data sent by the client.
        i = stream.Read(bytes, 0, bytes.Length)
        While (i <> 0)
          ' Translate data bytes to a ASCII string.
          data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
          Debug.Print("Received: {0}", data)
          ' Process the data sent by the client.
          data = data.ToUpper()
          Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
          ' Send back a response.
          stream.Write(msg, 0, msg.Length)
          Debug.Print("Sent: {0}", data)
          i = stream.Read(bytes, 0, bytes.Length)
        End While
        ' Shutdown and end connection
        client.Close()
      End While
    Catch e As SocketException
      'Console.WriteLine("SocketException: {0}", e)
      Debug.Print("SocketException: {0}", e)
    Finally
      server.Stop()
    End Try
    Debug.Print(ControlChars.Cr + "Hit enter to continue....")
  End Sub
Un grande grazie a chi potrà aiutarmi