[Vb]Anti Admin + Botkontrolle

[DnL]

Hallo !!
Mal Ganz schnell Denn code für AAB.
Der code ist komentiert

Update:29.04.2012

Nicht getestet

in Form Load

adminlist.add = System.IO.File.ReadAllLines("Adminlist.txt")
MessageBox.Show(adminList.Count.ToString)
LabelAdminanzeige.Text = "" & (adminlist.Count.ToString)

   Dim Adminlist As String()   'Adminliste hinzufügen

ClientOnChannelJoint

    Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelJoin

        If User.Name = adminlist.ToString Then
            'admin ist und beigetreten
        Else
            ListView1.Items.Add(User.Name).ForeColor = User.Color
        End If

    End Sub

OnChannelLeave

    Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelLeave

        If User.Name = adminlist.ToString Then
            'admin hat uns verlassen
        Else
            ListView1.FindItemWithText(User.Name).Remove()
        End If

    End Sub

Onping

  Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing

        If Nick = adminlist.ToString Then
            'admin hat mich gepingt
        Else
            writeText("Bot", "Empfange Ping von " + Nick + " mit dem Key " + Key + "...", Color.Red)
        End If

    End Sub

Onpuplicmassge

    Private Sub client_OnPublicMessage(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage


If Message.Contains("Überprüfung auf Bot-Benutzung") Then
        Dim th As New Threading.Thread(AddressOf Botkontrolle)
        th.Start(New Object() {token(4]), "10000", "30000"}) 

        End If
        If fromNick = (adminlist.ToString) Then
            'Admin hat dir ne privat nachricht geschickt'
        End If

        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
        RichTextBox1.SelectionColor = Color.Red
        RichTextBox1.AppendText(fromNick + " (privat an " + toNick + "): ")
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
        RichTextBox1.SelectionColor = Color.Black
        RichTextBox1.AppendText(Message + vbLf)
        RichTextBox1.ScrollToCaret()

    End Sub

        If Nick = adminlist.ToString Then
            ' admin hat öffentlich geschrieben
        End If
        writeText(Nick, Message, Color.Black)

    End Sub

OnPrivateMessage

Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
        If Message.Contains("Überprüfung auf Bot-Benutzung") Then
            Botkontrolle(Message, 1000, 600000)

        End If
        If fromNick = (adminlist.ToString) Then
            'Admin hat dir ne privat nachricht geschickt
        End If

        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
        RichTextBox1.SelectionColor = Color.Red
        RichTextBox1.AppendText(fromNick + " (privat an " + toNick + "): ")
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
        RichTextBox1.SelectionColor = Color.Black
        RichTextBox1.AppendText(Message + vbLf)
        RichTextBox1.ScrollToCaret()

    End Sub

Private Sub Botkontrolle(ByVal parameter As Object)
Try
Dim message As String = parameter(0)
Dim delay1 As Integer = parameter(1)
Dim delay2 As Integer = parameter(2)



Dim bk As MatchCollection = Regex.Matches(message, "/ok (.*?)")

For Each match As Match In bk
Thread.Sleep(New Random().Next(delay1, delay2))
KSC.SendMessage(String.Format("/ok {0}", match.Groups(1).Value))
Next

Catch ex As Exception

End Try


End Sub

Botkontrolle geht an uncopyable ! Danke

Denkt Bitte dran das ihr in denn Ordner nen Adminlist.txt Hinzufügt und die Admin's hinzufügt.

MFG
Like a Star x3

[Sploxfreak]

Were net wenn du noch ein tut zu admin list machen könntest
Sonst kommen immer fehlemeldung adminlist ist kein memeber von

dennoch danke

[Mardcore]

Steht doch oben schon. Dim adminlist as new arrayList

[DeKaDeNz]

Ein großen Knakckpunkt habe ich da. Die Beantwortung der Botkontrolle sollte in einem neuem Thread laufen. So wie es jetzt gelöst ist, führt es dazu, dass der Bot während dem Sleep freezed und keine weiteren Pakete verarbeiten kann.

[uncopyable]

Ein großen Knakckpunkt habe ich da. Die Beantwortung der Botkontrolle sollte in einem neuem Thread laufen. So wie es jetzt gelöst ist, führt es dazu, dass der Bot während dem Sleep freezed und keine weiteren Pakete verarbeiten kann.

Abhilfe

Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
        If Message.Contains("Überprüfung auf Bot-Benutzung") Then
        Dim th As New Threading.Thread(AddressOf Botkontrolle)
        th.Start(New Object() {token(4]), "10000", "30000"}) 

        End If
        If fromNick = (adminlist.ToString) Then
            'Admin hat dir ne privat nachricht geschickt'
        End If

        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
        RichTextBox1.SelectionColor = Color.Red
        RichTextBox1.AppendText(fromNick + " (privat an " + toNick + "): ")
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
        RichTextBox1.SelectionColor = Color.Black
        RichTextBox1.AppendText(Message + vbLf)
        RichTextBox1.ScrollToCaret()

    End Sub

    Private Sub Botkontrolle(ByVal parameter As Object)
        Try
            Dim message As String = parameter(0)
            Dim delay1 As Integer = parameter(1)
            Dim delay2 As Integer = parameter(2)



            Dim bk As MatchCollection = Regex.Matches(message, "/ok (.*?)")

            For Each match As Match In bk
                Thread.Sleep(New Random().Next(delay1, delay2))
                KSC.SendMessage(String.Format("/ok {0}", match.Groups(1).Value))
            Next

        Catch ex As Exception

        End Try


    End Sub 

ungetestet sollte aber gehen.

mfg

[uncopyable]

Abend.
Wichtige Änderungen

Knuddels hat die Popups überarbeitet das bedeutet das die Aktuellen Anti-Admin Funktionen die, die Admins aus der Hilfe entnehmen nicht mehr funktionieren!

BILD ANZEIGEN [Warum wird das Bild nicht angezeigt?]

Der aktuelle Haupttext des Popups befindet sich im Array[40] (oder token[40])

Ich glaube das die Knlib2 im Popup-Handles für message den token[4] verwendet was nun nicht mehr den Haupttext enthält.

Verbessert mich falls ich mich irre.

mfg

[Sploxfreak]

Also hier fällt ja öfters das worz KNLib natürlich weiß ich was das heist aber ich habe 2 KNLibs einmal die von Flav alleine und die von the don und flav zusammen über welche würd den hier gesprochen
Flavs oder The don of nyc

[uncopyable]

Also hier fällt ja öfters das worz KNLib natürlich weiß ich was das heist aber ich habe 2 KNLibs einmal die von Flav alleine und die von the don und flav zusammen über welche würd den hier gesprochen
Flavs oder The don of nyc

Über die von The don bei der andern müsst man das aber auch anpassen.

[Sploxfreak]

Wie mach ich das on channel join, ich habe eine combobox mit allen aktuellen admins
Ich würde das gerne so machen das wen ein admin mit dem namen aus der combobox in der listview (user liste) steht der bottende nick den channel wechselt könnt ihr mir da helfen?

[Sploxfreak]

??? wenn ich den bot ungefähr 5-10 min laufen lasse kommt das

http://www.abload.de/image.php?img=errorq9x3i.png