AntiAdmin?

[Escobar]

Moin,
ich hab mal ne Frage...
Wie sieht das mit Antiadmin aus?
Ich krieg es aufs Verrecken nicht hin.

/h
Split Admins sind Derzeit
Und dann?
Wie bekomme ich das jetzt hin, das er bei /p, /m offline geht bzw Channel wechselt...?

[iToxic]

Alle Admins in einem Array speichern, dann einfach gucken ob der Nick, der joint, eine /m schickt oder dich privat anschreibt in dem Array steht, wenn ja Warnung ausgeben, falls nicht, dann nichts machen

[AFU]

Pseudo-Code einer AA-Funktion am Beispiel Channeljoin:
1. Schritt: Du fragst das /h popup ab, regext alle Admins in ein Array.
2. Schritt: Wenn "betritt den Channel", dann regexxt du den User.
3. Schritt: Du vergleichst den User mit dem im Array, wenn Treffer dann Alarm Sound + off gehen.

Alles klar?

edit: Im Konkurrenzboard gibt es ein C#-AA-Sample, einfach mal nach "sample" suchen

[Escobar]

Pseudo-Code einer AA-Funktion am Beispiel Channeljoin:
1. Schritt: Du fragst das /h popup ab, regext alle Admins in ein Array.
2. Schritt: Wenn "betritt den Channel", dann regexxt du den User.
3. Schritt: Du vergleichst den User mit dem im Array, wenn Treffer dann Alarm Sound + off gehen.

Alles klar?

edit: Im Konkurrenzboard gibt es ein C#-AA-Sample, einfach mal nach "sample" suchen

Ich machs aber in Vb
Und mit C# hab ich mich noch nie auseinandergesetzt, leider!

Mein Code:

MessageBox.Show(Message, "Popup")
If Message.Contains("Admins sind derzeit:#") Then

Dim mc As MatchCollection = Regex.Matches(Message, "°>_h(.*?)\|")

For Each match As Match In mc

adminList.Add(match.Groups(1).Value.Replace("\", ""))

Next

MessageBox.Show(adminList.Count.ToString())

[uncopyable]

Hier in VB übersetzt..

Klasse "AntiAdmin.vb"

Imports System.Collections.Generic
Imports System.Text.RegularExpressions

Class AntiAdmin
    Private Shared _Adminlist As List(Of String) = Nothing

    ''' <summary>
    ''' Gibt die geladene Adminliste zurück
    ''' </summary>
    Public Shared ReadOnly Property Adminlist() As List(Of String)
        Get
            Return _Adminlist
        End Get
    End Property

    ''' <summary>
    ''' Gibt zurück ob die Adminliste geladen wurde
    ''' </summary>
    Public Shared ReadOnly Property isLoaded() As Boolean
        Get
            Return _Adminlist IsNot Nothing AndAlso _Adminlist.Count <> 0
        End Get
    End Property

    ''' <summary>
    ''' Lädt die aktuelle Adminliste von Knuddels
    ''' </summary>
    ''' <param name="token">Inhalt des Hilfefensters</param>
    Public Shared Sub LoadAdminlist(token As String)
        _Adminlist = New List(Of String)()

        For Each m As Match In Regex.Matches(token, "°>_h([^\|]+)")
            _Adminlist.Add(m.Groups(1).Value.Replace("°>_h", String.Empty).Replace("\", String.Empty))
        Next

    End Sub
End Class

Klasse "Program.vb"

Class Program

Imports KNLib
Imports System.Threading

Namespace Anti_Admin_Sample
    Class Program
        Private Shared Sub Main(args As String())
            Dim t As New Thread(AddressOf Login)
                        t.Start()
            ' Loginvorgang in einem neuen Thread ausführen 
        End Sub

        Private Shared Sub Login()
            Dim KSC As New KSClient(New Applet("applet.jar"))
            '  Neue KS Client Klasse initialisieren mit angegeben Pfad für das Applet
            KSC.OnTokenReceived += New KSClient.ReceivedHandler(AddressOf KSC_OnTokenReceived)
            KSC.Connect(ChatSystem.DE)
            KSC.Login("NICK", "PW", "/U-Hacks")
        End Sub

        Private Shared Sub KSC_OnTokenReceived(KSC As KSClient, packet As String)
            Console.ForegroundColor = ConsoleColor.White

            Dim token As String() = packet.Split(ControlChars.NullChar)

            Select Case token(0)
                Case "u"
                    Console.WriteLine("Eingeloggt")

                    If Not AntiAdmin.isLoaded Then
                        ' Wenn die Adminliste noch  nicht geladen wurde, senden wir /h um das Hilfefenster mit den Admins  zu erhalten
                        KSC.SendMessage("/h")
                    End If

                    Exit Select

                Case "k"

                    If token(1).Contains("Hilfeõf") Then
                        ' Wenn das Hilfefenster gesendet wird, fangen wir es ab
                        AntiAdmin.LoadAdminlist(token(7))
                    End If
                    ' und laden  die Adminliste indem wir den Inhalt des Fensters als Parameter übergeben
                    Exit Select

                Case "r"

                                    If token(4).Contains("Überprüfung auf Bot-Benutzung") Then
                                     Dim t As New Thread(Adress BotKontrolle()) 
                                     t.Start()
                                     End If

                    If AntiAdmin.isLoaded Then
                        ' Wenn Adminliste geladen wurde, prüfen wir...
                        If AntiAdmin.Adminlist.Contains(token(1)) Then
                            '  ob derjenige der uns angeschrieben hat, ein Admin war. Dann tun wir...
                            Console.ForegroundColor = ConsoleColor.Red
                                ' irgendwas
                            Console.WriteLine("Fuck!!! Der Admin {0}  schrieb mich privat an. WAS SOLL ICH TUN SIR?", token(1))
                        End If
                    End If

                    Exit Select

                Case "l"

                    Dim joinedUser As String = token(2).Split(ControlChars.Lf)(0)
                    '  Splitten bei \n, da bei manchen Channeln der Nick, der in den Channel  kommt wie folgt gesendet wird: NICK\nALTER
                    If AntiAdmin.isLoaded Then
                        ' Wenn Adminliste geladen wurde, prüfen wir...
                        If AntiAdmin.Adminlist.Contains(joinedUser) Then
                            '  ob derjenige der in den Channel gekommen ist, ein Admin ist. Dann tun  wir...
                            Console.ForegroundColor = ConsoleColor.Red
                                ' irgendwas
                            Console.WriteLine("Fuck!!! Der Admin {0} hat den Channel betreten", joinedUser)
                        End If
                    End If

                    Exit Select
            End Select

        End Sub


  Private Shared Sub BotKontrolle()
        Try
            Dim BotKontrolleID As String = Regex.Match(message, "/ok (\d+)").Groups(1).Value
            Thread.Sleep(New Random().Next(10000, 30000))

            If KSC.IsConnected AndAlso KSC.isLoggedIn Then
                KSC.SendMessage(String.Format("/ok {0}", BotKontrolleID))
            End If

            Console.WriteLine("h3h3, Botkontrolle bestätigt!")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

    End Class
End Namespace

Autor: The Don of NYC


Mfg

[string]

vermutlich nutzt du die KNLib2 und damit ist es einfacher Tokens zu nutzen und vieles mehr

in Deinem Falle würde dein Code zwar ausreichen wenn man es umbaut und ein bisschen anders gestaltet

Die Jamesabfrage muss dabei sein. Ich bin gerad faul aber hier mal das Grundgerüst:

If Message.Contains("Bot-Benutzung") And fromNick = "James" Then
Dim Answer As Match = Regex.Match(Message, "/ok (.*)")
client.SendMessage(Answer.ToString)
End If

[Escobar]

vermutlich nutzt du die KNLib2 und damit ist es einfacher Tokens zu nutzen und vieles mehr

in Deinem Falle würde dein Code zwar ausreichen wenn man es umbaut und ein bisschen anders gestaltet

Die Jamesabfrage muss dabei sein. Ich bin gerad faul aber hier mal das Grundgerüst:

If Message.Contains("Bot-Benutzung") And fromNick = "James" Then
Dim Answer As Match = Regex.Match(Message, "/ok (.*)")
client.SendMessage(Answer.ToString)
End If

Das ist nur die Botfrage...
Ich suche aber die AA

Vorposter:
Dein Code schlägt bei mir sage und schreibe 15 Fehler an

[iToxic]

Vorposter:
Dein Code schlägt bei mir sage und schreibe 15 Fehler an

Bisschen eigen Initiative zeigen?

Außerdem schlägt Visual Studio automatisch vor, die Fehler zu verbessern.
Dazu einfach mal mit dem Mauszeiger auf den rot unterschlängelten Fehler gehen, danach müsste sich ein kleines Fenster zeigen, dort einmal drauf klicken.

[Escobar]

Bisschen eigen Initiative zeigen?

Außerdem schlägt Visual Studio automatisch vor, die Fehler zu verbessern.
Dazu einfach mal mit dem Mauszeiger auf den rot unterschlängelten Fehler gehen, danach müsste sich ein kleines Fenster zeigen, dort einmal drauf klicken.

Schlaumeier, ganz vom Stock bin ich auch nicht gefallen.
Desweiteren, hab ich lange genug probiert....
Aber ist auch egal, der Bot wird mit einem Verschlüsselten System, nur für KS user verfügbar sein.
Hier sind ja eh nur leute, die eingebildet sind und meinen ihren Roten Lachs durchs Forum schwingen zu müssen.
Schön Tag noch.

[iToxic]

Aber ist auch egal, der Bot wird mit einem Verschlüsselten System, nur für KS user verfügbar sein.
Hier sind ja eh nur leute, die eingebildet sind und meinen ihren Roten Lachs durchs Forum schwingen zu müssen.
Schön Tag noch.

Das "Verschlüsselte System" wird wahrscheinlich ebenfalls C&P sein, da du es ja anscheinend nicht mal hinbekommst, ein einfaches AA hinzubekommen.

Desweiteren, juckt es hier niemanden, wo du wann was released.

Wir/Ich bin nicht eingebildet, ich gebe meist nur Denkanstöße, oder soll man dir einfach den Code hinschmeißen und sagen da haste(was ja der Fall ist, bekommst es aber anscheinend trotzdem nicht auf die Reihe) ?

Solche User gibt es leider wie Sand am Meer und sich dann noch beschweren wenn er nicht funktioniert, würde man sich bisschen damit befassen, müsste man keine Hilfe deswegen bekommen sondern konnte es alleine beheben.

Und wie soll man die bitte schön ohne genaue Fehlerbeschreibung helfen? Held.