Mio server:

codice:
Imports System.Net.Sockets
Imports System.Text

Public Class Form1
    Class TCPSrv
        Shared Sub Main()
            Const portNumber As Integer = 8000
            Dim tcpListener As New TcpListener(portNumber)
            tcpListener.Start()
            Console.WriteLine("Waiting for connection...")
            Try
                Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
                Console.WriteLine("Connection accepted.")
                Dim networkStream As NetworkStream = tcpClient.GetStream()
                Dim bytes(tcpClient.ReceiveBufferSize) As Byte
                networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
                Dim clientdata As String = Encoding.ASCII.GetString(bytes)
                Console.WriteLine(("Client sent: " + clientdata))
                Dim responseString As String = "Connected to server."
                Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                Console.WriteLine(("Message Sent /> : " + responseString))
                tcpClient.Close()
                tcpListener.Stop()
                Console.WriteLine("exit")
                Console.ReadLine()
            Catch e As Exception
                Console.WriteLine(e.ToString())
                Console.ReadLine()
            End Try
        End Sub
    End Class 
End Class
Mi da errore obsolete.. waaaaaa
Dim tcpListener As New TcpListener(portNumber)
Indi? Perkè cambiano ogni 5 secondi le cose... need help.