S1024
Bekanntes Mitglied
- Dabei seit
- 02.03.2009
- Beiträge
- 149
- Reaktionspunkte
- 0
Hi,
Ich habe mir mal einen Code zusammen gebastelt für ein Peer to Peer Chat in VB.NET, leider funktioniert dieser nur auf dem eigenden Rechner, vielleicht noch im Internen Netzwerk. Im WWW definitiv nicht. Ich weiß nicht wodran das liegt, vielleicht könnte einer von euch mir den Fehler sagen?! Hier ist mein Code:
Freue mich auf antworten
24
Ich habe mir mal einen Code zusammen gebastelt für ein Peer to Peer Chat in VB.NET, leider funktioniert dieser nur auf dem eigenden Rechner, vielleicht noch im Internen Netzwerk. Im WWW definitiv nicht. Ich weiß nicht wodran das liegt, vielleicht könnte einer von euch mir den Fehler sagen?! Hier ist mein Code:
Code:
' Textbox1 = IP
' Textbox2 = zu sender Text
' Textbox3 = Empfangender Text
' 1 Timer Enabeld = True, Interval = 1
' Button1 = Sende Text
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim Listener As New TcpListener(5151)
Dim Client As TcpClient
Dim Mesage 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, 5151)
Dim writer As New StreamWriter(Client.GetStream)
writer.Write(TextBox2.Text)
writer.Flush()
TextBox2.Text = ""
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Listener.Start()
If Listener.Pending = True Then
Mesage = ""
Client = Listener.AcceptTcpClient
Dim Reader As New StreamReader(Client.GetStream)
While Reader.Peek > -1
Mesage = Mesage + Convert.ToChar(Reader.Read()).ToString
End While
TextBox3.Text = TextBox3.Text & Mesage & vbCrLf
Else : End If
End Sub
End Class
Freue mich auf antworten
24