Hallo ich habe ein Problem mit ein TCP/IP Chat.
Ich wollte als Test mir eine Nachricht schreiben aber da kommt immer folgende Fehlermeldung, es müsste eigentlich gehen. Bitte helft mir ich habe es schon mit anderen Ports versucht aber da kam das gleiche. Muss ich was am Code was ändern oder muss ich an meinen Computer was umstellen. Und es liegt nicht an der falschen IP Adresse.
Fehlermeldung:
Hier ist der Code vom Chat:
Ich wollte als Test mir eine Nachricht schreiben aber da kommt immer folgende Fehlermeldung, es müsste eigentlich gehen. Bitte helft mir ich habe es schon mit anderen Ports versucht aber da kam das gleiche. Muss ich was am Code was ändern oder muss ich an meinen Computer was umstellen. Und es liegt nicht an der falschen IP Adresse.
Fehlermeldung:
Hier ist der Code vom Chat:
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Threading
- Imports System.IO
- Public Class Form1
- Dim listener As New TcpListener(44444)
- 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 System.Object, ByVal e As System.EventArgs) Handles MyBase.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, 44444)
- 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
- Else : End If
- TextBox3.Text = TextBox3.Text & Message & vbCrLf
- End Sub
- End Class