Gesplittete Nachricht wird nicht gesendet...

  • VB.NET

    Gesplittete Nachricht wird nicht gesendet...

    Hi,

    ich möchte eine nachricht splitten, um so den Empfänger zu sehen...
    Dieser wird angezeigt, aber die Nachricht nicht weitergesendet...

    Hier mal Etwas Code...:

    VB.NET-Quellcode

    1. ElseIf tmp.StartsWith("/file ") Then
    2. Dim xyz As String = tmp
    3. Dim text As String = tmp.Remove(0, 6)
    4. Dim nickArr As String() = text.Split(Convert.ToChar("|"))
    5. Dim username As String = nickArr(0)
    6. Console.WriteLine(username)
    7. 'Dim xyz As String = text.Remove(username, 0)
    8. For Each Connect In list
    9. If Connect.nick = username Then
    10. filetoperson(xyz, username)
    11. Console.WriteLine(LOG("VON: " & con.nick & " AN: " & username & " |Hat eine Datei gesendet!"))
    12. End If
    13. Next
    15. 'Und...
    17. Private Sub filetoperson(ByVal s As String, ByVal user As String)
    18. For Each Connection In list
    19. Try
    20. If Connection.nick = user Then
    21. Connection.streamw.WriteLine(s)
    22. Connection.streamw.Flush()
    23. End If
    24. Catch
    25. End Try
    26. Next
    27. End Sub

    An den Server wird das Gesendet: /file empfänger|sender|dateiname|ReadAllBytes der Datei

    Hab ich was falsch gemacht?

    mfg

Facebook
Telefonspende