Hallo wie die Überschrift schon sagt hab ich nen Problem mit einen Chatprogramm das ich mit Socket gemacht hab.
Im eigenen Netzwerk t alles wunderbar. Allerdings hab ich das Problem, dass wenn ich versuche von einem anderen Computer aus zu verbinden, der Server nicht reagiert.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

Imports System.Net.Sockets Imports System.Text Imports System.IO Imports System.Net   Public Class Form1       Private SimpleServer As TcpListener     Private Client As New TcpClient     Private Stream As NetworkStream     Dim bytes() As Byte         Private Sub OnConnect(ByVal ar As System.IAsyncResult)         Client = SimpleServer.EndAcceptTcpClient(ar)         Stream = Client.GetStream         ReDim bytes(Client.ReceiveBufferSize)         Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object)     End Sub       Private Sub onGetData(ByVal ar As System.IAsyncResult)           Dim clientdata As String = Encoding.ASCII.GetString(bytes)         Try             Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object)             MsgBox(clientdata, 0, "")         Catch             MsgBox("Verbindung unterbrochen", 0, "")             SimpleServer.BeginAcceptTcpClient(AddressOf OnConnect, New Object)           End Try     End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click           NumericUpDown1.Enabled = False         SimpleServer = New TcpListener(System.Net.IPAddress.Parse(0), NumericUpDown1.Value)           SimpleServer.Start()           SimpleServer.BeginAcceptTcpClient(AddressOf OnConnect, New Object)         Label1.BackColor = Color.Lime         Label1.Text = "ONLINE"         RichTextBox1.Text &= "Server ist Online..." & vbCrLf         Try             Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")             Dim res As HttpWebResponse = req.GetResponse()             Dim Str As Stream = res.GetResponseStream()             Dim sr As StreamReader = New StreamReader(Str)             RichTextBox1.Text &= "Internet IP = " & sr.ReadToEnd() & vbCrLf         Catch             RichTextBox1.Text &= "Internet IP = N/A" & vbCrLf         End Try           Button1.Enabled = False     End Sub       Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click           Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("admin : " & TextBox1.Text)         Stream.Write(sendBytes, 0, sendBytes.Length)     End Sub       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick           ListView1.Items.Clear()         Dim ipend As Net.IPEndPoint = DirectCast(Client.Client.RemoteEndPoint, Net.IPEndPoint)         If Not ipend Is Nothing Then             ListView1.Items.Add(New ListViewItem(New String() {ipend.Address.ToString, ipend.Port.ToString}))         End If     End Sub End Class

Hi,

Hast du einen Router? Dann Port-Weiterleitung aktivieren.
Firewall? Auch dort Port freigeben!

Das ganze liegt wahrscheinlich nicht an deinem Code sondern an Routern / Firewall oder Proxyservern etc. Diesbzüglich bitte etwas mehr Infos

Gruß
Erik

Ich denke es liegt am Rooter. Das wär aber ziemlich schlecht da ich (erst 16) keinen zugriff drauf hab und mein Vater nicht weiß wie es geht bzw. kein bock hab es zu machen. Gibt es keinen weg das i-wie zu umgehen? Wir haben ne Fr!tzBox falls das etwas weiter hilft.