Schleife wird ignoriert?

  • Allgemein

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von Andy16823.

    Sag mal? Ignorierst du mich?
    Was ist denn 'Nothing' oder nicht instanziiert? Schau das mal beim Debuggen nach.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    @Trade Erstmal sry :D . es ist nichts 'Nothing'.

    Es geht dank diesem Code:

    VB.NET-Quellcode

    1. For Each nick As String In nicklist
    2. If nick.Equals(c.nick) = True Then
    3. subnick = c.nick.Split(":")(0).ToString()
    4. SendToAllClients("@" & c.nick.Substring(0, subnick.Length) & " /success")
    5. list.Add(c) ' und fügen sie der liste der clients hinzu.
    6. Console.WriteLine(c.nick.Substring(1, subnick.Length) & " has joined.")
    7. SendToAllClients(c.nick.Substring(1, subnick.Length) & " ist dem Chat beigetreten.")
    8. End If
    9. Next


    Dafür wie gesagt: Ein 2 User dazu, und der erste kann nichts mehr machen.

    Hast du deinen Code verändert , denn du musst in die Struktur einen TCPClient nehmen, du registrierst nur einen, aber du musst für jede verbindung einen registrieren.

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Module Module1
    7. Private server As TcpListener
    8. Private client As New TcpClient
    9. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    10. Private list As New List(Of Connection)
    11. Public nicklist As New List(Of String)
    12. Dim subnick As String
    14. Private Structure Connection
    15. Dim stream As NetworkStream
    16. Dim streamw As StreamWriter
    17. Dim streamr As StreamReader
    18. ' Hier der Client
    19. Dim UserClient As TcpClient
    20. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    21. End Structure
    23. Private Sub SendToAllClients(ByVal s As String)
    24. For Each c As Connection In list ' an alle clients weitersenden.
    25. Try
    26. c.streamw.WriteLine(s)
    27. c.streamw.Flush()
    28. Catch
    29. End Try
    30. Next
    31. End Sub
    33. Sub Main()
    35. ' Fabian
    36. nicklist.Add("radioffk:fabiankrahtz")
    37. ' END
    39. Console.WriteLine("InfoServer V 1 (c) radioffk - Status: Running")
    40. Console.WriteLine()
    41. Console.WriteLine("<==== IP ====>")
    42. Console.WriteLine(Dns.GetHostEntry(Dns.GetHostName()).AddressList.ToList().Find(Function(ip) ip.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork).ToString())
    43. Console.WriteLine("<============>")
    44. Console.WriteLine()
    46. server = New TcpListener(ipendpoint)
    47. server.Start()
    49. While True ' wir warten auf eine neue verbindung...
    50. client = server.AcceptTcpClient
    52. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    53. c.stream = client.GetStream
    54. c.streamr = New StreamReader(c.stream)
    55. c.streamw = New StreamWriter(c.stream)
    57. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    59. For i As Integer = 0 To nicklist.Count
    60. If nicklist(i) = c.nick Then
    61. SendToAllClients("@" & c.nick.Substring(0, subnick.Length) & " /success")
    62. End If
    63. Next
    65. subnick = c.nick.Split(":")(0).ToString()
    67. list.Add(c) ' und fügen sie der liste der clients hinzu.
    68. Console.WriteLine(c.nick.Substring(0, subnick.Length) & " has joined.")
    69. SendToAllClients(c.nick.Substring(0, subnick.Length) & " ist dem Chat beigetreten.")
    70. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
    72. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    73. t.Start(c)
    74. End While
    75. End Sub
    78. Private Sub ListenToConnection(ByVal con As Connection)
    79. Do
    80. Try
    81. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    83. Dim bcast As String = tmp.Replace("/bcast ", "")
    85. If tmp = "/closeall" Then
    86. SendToAllClients("/close")
    87. End If
    89. If tmp.StartsWith("@") Then
    90. SendToAllClients(tmp)
    91. End If
    94. If tmp.StartsWith("/bcast") Then
    95. Console.WriteLine("[SERVER] Broadcast: " & bcast)
    96. SendToAllClients("[SERVER] Broadcast: " & bcast)
    97. ElseIf tmp = "/clsall" Then
    98. SendToAllClients("/cls")
    99. Else
    100. Console.WriteLine(con.nick.Substring(0, subnick.Length) & ": " & tmp)
    101. SendToAllClients(con.nick.Substring(0, subnick.Length) & " um " & TimeOfDay & ": " & tmp) ' an alle clients weitersenden.
    102. End If
    104. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    106. list.Remove(con)
    107. Console.WriteLine(con.nick.Substring(0, subnick.Length) & " has left.")
    108. SendToAllClients(con.nick.Substring(0, subnick.Length) & " hat den Chat verlassen.")
    109. Exit Do
    111. End Try
    112. Loop
    113. End Sub
    115. End Module
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    Also mal eine Sache zu dem Code allgemein,
    der ist denk ich mal von Kevin's Tutorial was ziemlich veraltet ist.

    Guck dir mal das hier an:

    VB.NET-Quellcode

    1. Private ipEndPoint As New IPEndPoint(IPAddress.Any, 8000)
    2. Private tcpListener As New TcpListener(ipEndPoint)
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. listener.BeginAcceptTcpClient(AddressOf Accepted, Nothing)
    5. End Sub
    6. Private allConnections As New List(Of Connection)
    7. Protected Sub Accepted(iasy As IAsyncResult)
    8. Dim newClient = New Connection(listener.EndAcceptTcpClient(iasy).GetStream)
    9. 'Hier kannst du alles mit dem neuen Clienten machen da er eigtl noch nicht auf dem Server angezeigt wird und wenn dir was nicht passt schliesst du seine Verbindung
    10. Dim name As String = String.Empty
    11. newClient.GetName(name)
    12. Do While allConnections.Where(Function(item) item.Name = name).Any
    13. newClient.Write("Name bereits vorhanden, bitte nochmal.")
    14. newClient.GetName(name)
    15. Loop
    16. newClient.Name = name
    17. allConnections.Add(newClient) 'Hier wird er nun auf dem Server angezeigt und ist "offiziel" drauf.
    18. newClient.Stream.BeginRead(newClient.Input, 0, newClient.Input.Length, AddressOf Read, newClient)
    19. listener.BeginAcceptTcpClient(AddressOf Accepted, Nothing)
    20. End Sub
    21. Protected Sub Read(iasy As IAsyncResult)
    22. Dim newClient = DirectCast(iasy.AsyncState, Connection)
    23. Try
    24. Dim length As Integer = newClient.Stream.EndRead(iasy)
    25. Dim output As String = Encoding.Default.GetString(newClient.Input, 0, length)
    26. MessageBox.Show(String.Concat(newClient.Name, ": ", output))
    27. newClient.Stream.BeginRead(newClient.Input, 0, newClient.Input.Length, AddressOf Read, newClient)
    28. Catch
    29. allConnections.Remove(newClient)
    30. For Each user In allConnections
    31. user.Write(String.Concat(newClient.Name, "-", "disconnected")) 'muss dann dementsprechend von allen Clienten verarbeitet werden
    32. Next
    33. End Try
    34. End Sub
    35. End Class
    36. Public Class Connection
    37. Public Sub New(ByVal stream As NetworkStream)
    38. Me.Stream = stream
    39. End Sub
    40. Private _input(256) As Byte
    41. Public ReadOnly Property Input() As Byte()
    42. Get
    43. Return _input
    44. End Get
    45. End Property
    46. Public Property Stream As NetworkStream
    47. Public Property Name As String
    48. Public Sub Write(ByVal text As String)
    49. Dim input As Byte() = Encoding.Default.GetBytes(text)
    50. Me.Stream.BeginWrite(input, 0, input.Length, AddressOf Me.Stream.EndWrite, Nothing)
    51. End Sub
    52. Public Sub GetName(ByRef input As String)
    53. Dim length As Integer = Me.Stream.Read(Me.Input, 0, Me.Input.Length)
    54. input = Encoding.Default.GetString(Me.Input, 0, length)
    55. End Sub
    56. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RushDen“ ()

    Schau mal meinen Beitrag oben an, du musst den Socket jedes Clienten mit Speichern, wenn du für jede verbindung einen neu aufmachst und Ihn aber nicht speicherst kannst du Ihn nich mehr verwenden.
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    Danke an alle. Jetzt klappt erstmal alles prima. :thumbsup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „radio-ffk“ ()

Facebook
Telefonspende