naja ich mag das etwas ausbauen, und da soll die Server exe etwas mehr könnenGugi schrieb:
wozu denn? die die chatten wollen, brauchen nur den client
PS: Fehler1 Es wurde keine zugreifbare Main-Methode mit entsprechender Signatur in "MultiServer" gefunden.MultiServer
Das kommt dabei raus+
Ich hab das in die Form1 eingefügt, und es ging nicht, danach hab ich die Modul1.vb gelöscht, doch es ging immer noch nichts.
VB.NET-Quellcode
- Sub Main()
- listbox1.items.add("Der Server läuft!")
- server = New TcpListener(ipendpoint)
- server.Start()
- While True ' wir warten auf eine neue verbindung...
- client = server.AcceptTcpClient
- Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
- c.stream = client.GetStream
- c.streamr = New StreamReader(c.stream)
- c.streamw = New StreamWriter(c.stream)
- c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
- list.Add(c) ' und fügen sie der liste der clients hinzu.
- Console.WriteLine(c.nick & " has joined.") ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten.
- Dim t As New Threading.Thread(AddressOf ListenToConnection)
- t.Start(c)
- End While
- End Sub
Edit by der_Kurt:
* Code etwas 'lesbarer' gemacht *
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „der_Kurt“ ()