Sorry aber ich sag die Wahrheit.
Nur einer von den "Kids" von dennen du sprichst ist so paranoid und zensiert Codestellen wo selbst ein Blinder noch weiß was genau da hin passt. Ich denk wenn du sowiso nicht VB beherscht und dann Scriptkiddy-Like alles abtippst bist du nicht besser als die Leute die du quasi beleidigst.
Hier nochmal der Code unzenisert und in voller Länge + Fix deiner Fehler
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim listener as new TcpListener(55555)
Dim client As TcpClient
Dim message As String = ""
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
listener.stop()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim listthread As New Thread(New ThreadStart(AddressOf listening))
listthread.Start()
End Sub
Private Sub listening()
listener.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
client = New TcpClient(textbox1.Text, 5555)
Dim writer As New StreamWriter(client.GetStream())
writer.Write(TextBox2.Text)
writer.Flush()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If listener.Pending = True Then
message = ""
client = listener.AcceptTcpClient()
Dim reader As New StreamReader(client.GetStream())
While reader.Peek > -1
message = message + Convert.ToChar(reader.read()).tostring
End While
textbox3.text = textbox3.text & message & vbCrLf
Else : End If
End Sub
End Class
