Auto-Kick-Funktion - Problem

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Auto-Kick-Funktion - Problem

    Hi,

    ich hab meinem Chatprogramm einen Extra Client gegeben, der den Chatverlauf bewacht...
    Problem:
    Meine Idee funktioniert nicht, damit der User nach 10 nachrichten gekickt wird...
    Hier meine idee:

    VB.NET-Quellcode

    1. RichTextBox1.Text = RichTextBox1.Text & vbCrLf & hour & ":" & min & " " & s
    2. RichTextBox1.SelectionStart = RichTextBox1.TextLength
    3. RichTextBox1.ScrollToCaret()
    4. text0 = s
    5. Autokick()
    6. Timer1.Start()
    7. End If
    8. End Sub
    10. Sub Autokick()
    11. text1 = text0
    12. text2 = text1
    13. text3 = text2
    14. text4 = text3
    15. text5 = text4
    16. text6 = text5
    17. text7 = text6
    18. text8 = text7
    19. text9 = text8
    20. final = text9
    21. If final.Contains(text0) Then
    22. kicken(final)
    23. End If
    24. End Sub
    26. Sub kicken(ByVal döner As String)
    27. Dim nickArr() As String = döner.Split(":") 'empfangener text-beispiel: username: Hier ist der Spam...
    28. streamw.WriteLine("/kick " & nickArr(0))
    29. 'MsgBox(nickArr(0))
    30. End Sub


    Es funzt net, und verstehe net, wieso...

    Kennt ihr weitere Kick-Funktionen?

    mfg

    Ich würde es im Server abfragen.

    So z.B

    VB.NET-Quellcode

    1. Public spam As Integer
    3. Public lastAction As Long
    5. Public Function checkSpam() As Boolean
    6. Dim now As Long = TimeOfDay.Millisecond
    8. If lastAction > now - 2000 Then
    9. spam += 1
    11. If spam = 2 Then
    12. Server.sendMessage(Client, "Bitte NICHT spammen und fluten.")
    13. ElseIf spam = 3 Then
    14. Client.disconnect()
    15. Return True
    16. End If
    17. Else
    18. spam -= (now - lastAction) / 2000
    20. If spam < 0 Then
    21. spam = 0
    22. End If
    23. End If
    25. lastAction = now
    26. Return False
    27. End Function

    habe ein problem...

    Wo sag ich deiner Function nun die Nachricht/SPAM, damit er diese Zählt?

    mfg

Facebook
Telefonspende