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:
Es funzt net, und verstehe net, wieso...
Kennt ihr weitere Kick-Funktionen?
mfg
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
- RichTextBox1.Text = RichTextBox1.Text & vbCrLf & hour & ":" & min & " " & s
- RichTextBox1.SelectionStart = RichTextBox1.TextLength
- RichTextBox1.ScrollToCaret()
- text0 = s
- Autokick()
- Timer1.Start()
- End If
- End Sub
- Sub Autokick()
- text1 = text0
- text2 = text1
- text3 = text2
- text4 = text3
- text5 = text4
- text6 = text5
- text7 = text6
- text8 = text7
- text9 = text8
- final = text9
- If final.Contains(text0) Then
- kicken(final)
- End If
- End Sub
- Sub kicken(ByVal döner As String)
- Dim nickArr() As String = döner.Split(":") 'empfangener text-beispiel: username: Hier ist der Spam...
- streamw.WriteLine("/kick " & nickArr(0))
- 'MsgBox(nickArr(0))
- End Sub
Es funzt net, und verstehe net, wieso...
Kennt ihr weitere Kick-Funktionen?
mfg