Hvordan laver jeg en server & klient

TcpListener og TcpClient klasserne kan bruges

super simpel client:

Imports System
Imports System.IO
Imports System.Net.Sockets
Imports System.Threading

Class Client
    Public Shared Sub Main(ByVal args As String())
        Dim client As TcpClient = New TcpClient ("localhost", 1234)
        Dim wrt As StreamWriter = New StreamWriter (client.GetStream)
        Dim rdr As StreamReader = New StreamReader (client.GetStream)
        Dim outmsg As String
        Dim inmsg As String
        While True
            outmsg = "Dette er en streng eller en fil"
            wrt.WriteLine(outmsg)
            wrt.Flush
            inmsg = rdr.ReadLine
            Console.WriteLine(inmsg)
            Thread.Sleep(500)
        End While
        wrt.Close
        rdr.Close
        client.Close
    End Sub
End Class

super simpel server:

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets

Class Server
    Public Shared Sub Main(ByVal args As String())
        Dim server As TcpListener = New TcpListener (IPAddress.Any, 1234)
        server.Start
        Dim client As TcpClient = server.AcceptTcpClient
        Dim rdr As StreamReader = New StreamReader (client.GetStream)
        Dim wrt As StreamWriter = New StreamWriter (client.GetStream)
        Dim outmsg As String
        Dim inmsg As String
        inmsg = rdr.ReadLine
        While Not (inmsg Is Nothing)
            Console.WriteLine(inmsg)
            outmsg = "OK"
            wrt.WriteLine(outmsg)
            wrt.Flush
            inmsg = rdr.ReadLine
        End While
        rdr.Close
        wrt.Close
        client.Close
        server.Stop
    End Sub
End Class

er det ikke meningen den skal gøre et eller andet, jeg får bare 2 program kasser op, når jeg køre dem

ahhh nu virker det mange tak... Lav et svar så får du en masse dejlige point hehe

svar