Hey,
Ich hab hier ein Chat Code der funtzt aber im Netz nicht:
kann mir einer erklären warum das ding nicht im Netz funtzt?
Ich hab hier ein Chat Code der funtzt aber im Netz nicht:
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Threading
- Imports System.IO
- Dim listener As New TcpListener(5555)
- Dim client As New 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 Senden()
- client = New TcpClient(IP, 333)
- Dim writer As New StreamWriter(client.GetStream())
- writer.Write("text")
- writer.Flush()
- End Sub
- Private Sub Empfang_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Empfang.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
- msgbox(message)
- Else : End If
- End Sub
- End Class
kann mir einer erklären warum das ding nicht im Netz funtzt?
