Schleife wird ignoriert?

  • Allgemein

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

    Schleife wird ignoriert?

    Einen schönen Abend ersteinmal.

    Ich tüftele gerade an einem Chat.
    Dabei soll am Anfang die Kombination aus Username und Passwort geprüft werden.

    Übertragen wird dies vom Client per TCP mit USERNAME:PASSWORT.

    Der Server beinhaltet eine List(Of String) mit einem Beispielaccount gast123:abcde.

    Wenn der Client jetzt gestartet wird, soll im Server eine Überprüfung gestartet werden.

    Das geschieht so:

    VB.NET-Quellcode

    1. Dim nicklist As New List(Of String)
    3. Sub Main()
    4. nicklist.Add("gast123:abcde")
    5. For i As Integer = 0 To nicklist.Count Step 1
    6. If nicklist.ToString(i) = c.nick Then 'c.nick ist der eingegebene String
    7. 'AKTION
    8. End If
    9. Next
    10. End Sub()


    Leider klappt das nicht, und er macht einfach hinter dem Next weiter. Egal mit welchem Passwort oder Usernamen.

    Jetzt meine Frage; Könnt ihr mir helfen, dass Problem zu lösen?

    "Step 1" kannst du weglassen.
    Der Code von backtothetoast sollte das Problem lösen, wenn du den Index mit dem i angeben willst. Dann kann das "ToString" auch weg, denn der Eintrag ist ja ein String.
    #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 :!:

    Was ist denn c? Ich wette das ist Nothing und nicht instanziiert. Diese Meldung zeigt, dass er wenigstens den Block ausführt.
    #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 :!:

    Ich geb euch mal den Servercode:

    Spoiler anzeigen

    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. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    19. End Structure
    21. Private Sub SendToAllClients(ByVal s As String)
    22. For Each c As Connection In list ' an alle clients weitersenden.
    23. Try
    24. c.streamw.WriteLine(s)
    25. c.streamw.Flush()
    26. Catch
    27. End Try
    28. Next
    29. End Sub
    31. Sub Main()
    33. ' Fabian
    34. nicklist.Add("radioffk:fabiankrahtz")
    35. ' END
    37. Console.WriteLine("InfoServer V 1 (c) radioffk - Status: Running")
    38. Console.WriteLine()
    39. Console.WriteLine("<==== IP ====>")
    40. Console.WriteLine(Dns.GetHostEntry(Dns.GetHostName()).AddressList.ToList().Find(Function(ip) ip.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork).ToString())
    41. Console.WriteLine("<============>")
    42. Console.WriteLine()
    44. server = New TcpListener(ipendpoint)
    45. server.Start()
    47. While True ' wir warten auf eine neue verbindung...
    48. client = server.AcceptTcpClient
    50. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    51. c.stream = client.GetStream
    52. c.streamr = New StreamReader(c.stream)
    53. c.streamw = New StreamWriter(c.stream)
    55. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    57. For i As Integer = 0 To nicklist.Count
    58. If nicklist(i) = c.nick Then
    59. SendToAllClients("@" & c.nick.Substring(0, subnick.Length) & " /success")
    60. End If
    61. Next
    63. subnick = c.nick.Split(":")(0).ToString()
    65. list.Add(c) ' und fügen sie der liste der clients hinzu.
    66. Console.WriteLine(c.nick.Substring(0, subnick.Length) & " has joined.")
    67. SendToAllClients(c.nick.Substring(0, subnick.Length) & " ist dem Chat beigetreten.")
    68. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
    70. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    71. t.Start(c)
    72. End While
    73. End Sub
    76. Private Sub ListenToConnection(ByVal con As Connection)
    77. Do
    78. Try
    79. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    81. Dim bcast As String = tmp.Replace("/bcast ", "")
    83. If tmp = "/closeall" Then
    84. SendToAllClients("/close")
    85. End If
    87. If tmp.StartsWith("@") Then
    88. SendToAllClients(tmp)
    89. End If
    92. If tmp.StartsWith("/bcast") Then
    93. Console.WriteLine("[SERVER] Broadcast: " & bcast)
    94. SendToAllClients("[SERVER] Broadcast: " & bcast)
    95. ElseIf tmp = "/clsall" Then
    96. SendToAllClients("/cls")
    97. Else
    98. Console.WriteLine(con.nick.Substring(0, subnick.Length) & ": " & tmp)
    99. SendToAllClients(con.nick.Substring(0, subnick.Length) & " um " & TimeOfDay & ": " & tmp) ' an alle clients weitersenden.
    100. End If
    102. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    104. list.Remove(con)
    105. Console.WriteLine(con.nick.Substring(0, subnick.Length) & " has left.")
    106. SendToAllClients(con.nick.Substring(0, subnick.Length) & " hat den Chat verlassen.")
    107. Exit Do
    109. End Try
    110. Loop
    111. End Sub
    113. End Module

    Moin, so sollte es gehen oder

    VB.NET-Quellcode

    1. Dim nicklist As New List(Of String)
    3. Sub Main()
    4. nicklist.Add("gast123:abcde")
    5. For Each nick As String in nicklist
    6. If nick.Equals(c.nick) Then
    7. 'AKTION
    8. End If
    9. Next
    10. End Sub()
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    Du addest einen Eintrag in die Liste, Count ist deshalb = 1, aber die Indexe fangen schon bei 0 an, folglich existiert Index 1 nicht.. Also musst du die Schleife bis Count -1 laufen lassen.

    VB.NET-Quellcode

    1. For i As Integer = 0 To nicklist.Count - 1
    3. Next

    Bist du Dir sicher, dass das überhaupt stimmt, denn sonst wäre die NullReferenceException wohl nicht gekommen...
    Zudem solltest du Andy's Code nehmen, For Each ist hier schlauer.
    #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 :!:

    Was soll den in der Schleife im If Block gemacht werden ? wenn der String c.nick der gleicher wie der eintrag aus der liste ist, soll ein Code ausgeführt werden.
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    @Derfuhr Konsolentext:

    radioffk:fabian :::: radioffk:abcd

    Und er dürfte eigentlich nicht joinen und macht es trotzdem.

    @Andy16823 Er meldet dem Client per TCP dass er angemeldet ist.

    Edit: Er meldet jetzt nicht mehr an mit dem falschen Passwort, dafür kommt "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt" beim richtigen. :?: :?:

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

    ja dann mach ein Else If NOT nick.Equals(c.nick) Then rein, dann kannst du dort festlegen, was passiert wenn es nicht überein Stimmt.
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    Er meldet jetzt nicht mehr an mit dem falschen Passwort, dafür kommt "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt" beim richtigen. :?: :?:

    Habs jetzt so und es geht:

    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 registriert er nach dem Joinen eines 2 Users den 1 nicht mehr. Der 1 kann dann nicht mehr schreiben. Weiß da jemand was?