AntiAdmin?

[AmJano]

Hallo,

habe da mal ein Problem/Fehler Meldung die bekomme ich immer.



Ich hoffe Ihr könnt mir dabei Helfen.

Dank.


Mfg
ADrian

[DMW007]

Du definierst einen Namespace wo keiner hingehört.
Da der Fehler ziemlich weit hinten im Code steht vermute ich, dass du das Beispielprogramm und ggf auch die Klasse aus diesem Oost kopiert und irgendwo mitten im Code eingefügt hast.
Das funktioniert nicht, da der erste Code-Block eine Klasse und der zweite ein komplettes Beispielprogramm enthält.
Du musst mithilfe des Beispielprogramms die Botkontrolle in dein Programm richtig integrieren.
Die Klasse AntiAdmin kann dabei 1:1 kopiert und eingefügt werden, der Rest nicht.

[AmJano]

Du definierst einen Namespace wo keiner hingehört.
Da der Fehler ziemlich weit hinten im Code steht vermute ich, dass du das Beispielprogramm und ggf auch die Klasse aus diesem Oost kopiert und irgendwo mitten im Code eingefügt hast.
Das funktioniert nicht, da der erste Code-Block eine Klasse und der zweite ein komplettes Beispielprogramm enthält.
Du musst mithilfe des Beispielprogramms die Botkontrolle in dein Programm richtig integrieren.
Die Klasse AntiAdmin kann dabei 1:1 kopiert und eingefügt werden, der Rest nicht.

Danke.
Ich habe es nicht in der Mitte gemacht sonder ganz unten zu Schluss.
Also wie ich das verstanden habe muss ich denn AA am Anfang machen ?

Mfg

Mod-Edit: Spoiler!

Spoiler:

Imports KNLib
Imports System
Imports System.Threading
Imports System.Management
Imports System.Collections.Generic
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.IO
Public Class Form
Dim blnAppend As Boolean = False
Dim applet As Applet
Dim WithEvents client As KSClient
Dim WithEvents c As New KSClient(New Applet())
Dim strFileName As String = "config.txt"
Dim strValue As String = ""
Dim strValue2 As String = ""
Dim writer As StreamWriter
Dim enc As System.Text.Encoding
Dim Zeitlimit As Integer
Shared KSC As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.View = View.Details
ListView1.Columns.Add("Username").Width = 120
Control.CheckForIllegalCrossThreadCalls = False
applet = New Applet
client = New KSClient(applet)
End Sub
Private Sub c_OnTokenReceived(ByVal sender As Object, ByVal token As String) Handles c.OnTokenReceived
Dim tokens As String() = token.Split(vbNullChar)
Select Case (tokens(0))
Case "u" ' Userlist"
If tokens(5).Contains("pics/cm.png") Then
' CM hat den Channel betreten.
End If
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CSystem As New ChatSystem
Select Case ComboBox1.Text
Case "Knuddels.DE"
CSystem = ChatSystem.DE
Case "Knuddels.AT"
CSystem = ChatSystem.AT
Case "Knuddels.CH"
CSystem = ChatSystem.CH
End Select
client.Connect(CSystem)
client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
client.Disconnect()
End Sub
Private Sub WriteText(ByVal Absender As String, ByVal AbsenderFarbe As Color, ByVal Text As String, ByVal TextFarbe As Color)
RichTextBox1.SelectionColor = AbsenderFarbe
RichTextBox1.AppendText(Absender & ": ")
RichTextBox1.SelectionColor = TextFarbe
RichTextBox1.AppendText(Text & vbLf)
End Sub
Private Sub WriteText(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
WriteText(Nick, Color.Red, Message, Color.Black)
End Sub
Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
RichTextBox1.AppendText(fromNick & " an " & toNick & ": " & Message & vbLf)
End Sub
Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing
MessageBox.Show("Ping erhalten von " & Nick)
End Sub
Private Sub client_OnPopup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
MessageBox.Show(Message, "Popup")

End Sub
Private Sub client_OnUserListReceive(ByVal sender As Object, ByVal UserList As System.Collections.Generic.List(Of KNLib.User)) Handles client.OnUserListReceive
For Each User As KNLib.User In UserList
ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
Next
End Sub
Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelJoin
ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
End Sub
Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelLeave
ListView1.FindItemWithText(User.Name).Remove()
End Sub
Private Sub TextBox4_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
If client.IsConnected = True Then
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
client.SendMessage(TextBox4.Text)
TextBox4.Clear()
End If
Else
MessageBox.Show("Sind wir eingeloggt?")
End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
enc = System.Text.Encoding.ASCII


writer = New StreamWriter(strFileName, blnAppend, enc)

strValue = TextBox1.Text()
strValue2 = TextBox2.Text()

writer.Write(strValue)
writer.Write(strValue2)
writer.Close()

End Sub

Sub Read()
Dim strFileName As String = "config.txt"
Dim strValue As String = ""
Dim strValue2 As String = ""
Dim reader As StreamReader
Dim enc As System.Text.Encoding

enc = System.Text.Encoding.ASCII

If File.Exists(strFileName) = True Then
End If
reader = New StreamReader(strFileName, enc)

While (reader.Peek > -1)
strValue = strValue & reader.ReadLine
strValue2 = strValue2 & reader.ReadLine
End While
reader.Close()

TextBox1.Text = strValue
TextBox2.Text = strValue2
End Sub
Class Program
Namespace Anti_Admin_Sample
Private Shared Sub Main(ByVal 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", "/K-Script")
End Sub

Private Shared Sub KSC_OnTokenReceived(ByVal KSC As KSClient, ByVal 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 Namespace
End Class
End Class

[Manipulate]

Danke.
Ich habe es nicht in der Mitte gemacht sonder ganz unten zu Schluss.
Also wie ich das verstanden habe muss ich denn AA am Anfang machen ?

Mfg

/E: Hier mal meine Mappe:

Spoiler bitte dein Code, sodass man nicht immer runterscrollen muss.
Und so wie ich das verstanden habe, musst du an der richtigen Stelle den Anti Admin Code einfügen. Nur der Anti Admin Code kann dabei 1:1 kopiert werden, die Klasse Program.vb nicht.

[AmJano]

Spoiler bitte dein Code, sodass man nicht immer runterscrollen muss.
Und so wie ich das verstanden habe, musst du an der richtigen Stelle den Anti Admin Code einfügen. Nur der Anti Admin Code kann dabei 1:1 kopiert werden, die Klasse Program.vb nicht.

Das heißt die Klasse "AntiAdmin.vb" <--Das muss ich dann bei "Neue Klasse hinzufügen" machen ?
Und Program.vb muss ich dann in meine Forum sortieren oder wie?

Hier nochmal der Code, ich hoffe Ihr könnt mir genau sagen wo ich das machen muss. DANKE

Imports KNLib
Imports System
Imports System.Threading
Imports System.Management
Imports System.Collections.Generic
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.IO
Public Class Form
        Dim blnAppend As Boolean = False
        Dim applet As Applet
        Dim WithEvents client As KSClient
        Dim WithEvents c As New KSClient(New Applet())
        Dim strFileName As String = "config.txt"
        Dim strValue As String = ""
        Dim strValue2 As String = ""
        Dim writer As StreamWriter
        Dim enc As System.Text.Encoding
        Dim Zeitlimit As Integer
        Shared KSC As Object
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ListView1.View = View.Details
            ListView1.Columns.Add("Username").Width = 120
            Control.CheckForIllegalCrossThreadCalls = False
            applet = New Applet
            client = New KSClient(applet)
        End Sub
        Private Sub c_OnTokenReceived(ByVal sender As Object, ByVal token As String) Handles c.OnTokenReceived
            Dim tokens As String() = token.Split(vbNullChar)
            Select Case (tokens(0))
                Case "u" ' Userlist"
                    If tokens(5).Contains("pics/cm.png") Then
                        ' CM hat den Channel betreten.
                    End If
            End Select
        End Sub
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim CSystem As New ChatSystem
            Select Case ComboBox1.Text
                Case "Knuddels.DE"
                    CSystem = ChatSystem.DE
                Case "Knuddels.AT"
                    CSystem = ChatSystem.AT
                Case "Knuddels.CH"
                    CSystem = ChatSystem.CH
            End Select
            client.Connect(CSystem)
            client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        End Sub
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            client.Disconnect()
        End Sub
        Private Sub WriteText(ByVal Absender As String, ByVal AbsenderFarbe As Color, ByVal Text As String, ByVal TextFarbe As Color)
            RichTextBox1.SelectionColor = AbsenderFarbe
            RichTextBox1.AppendText(Absender & ": ")
            RichTextBox1.SelectionColor = TextFarbe
            RichTextBox1.AppendText(Text & vbLf)
        End Sub
        Private Sub WriteText(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
            WriteText(Nick, Color.Red, Message, Color.Black)
        End Sub
        Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
            RichTextBox1.AppendText(fromNick & " an " & toNick & ": " & Message & vbLf)
        End Sub
        Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing
            MessageBox.Show("Ping erhalten von " & Nick)
        End Sub
        Private Sub client_OnPopup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
            MessageBox.Show(Message, "Popup")

        End Sub
        Private Sub client_OnUserListReceive(ByVal sender As Object, ByVal UserList As System.Collections.Generic.List(Of KNLib.User)) Handles client.OnUserListReceive
            For Each User As KNLib.User In UserList
                ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
            Next
        End Sub
        Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelJoin
            ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
        End Sub
        Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelLeave
            ListView1.FindItemWithText(User.Name).Remove()
        End Sub
        Private Sub TextBox4_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
            If client.IsConnected = True Then
                If e.KeyCode = Keys.Enter Then
                    e.SuppressKeyPress = True
                    client.SendMessage(TextBox4.Text)
                    TextBox4.Clear()
                End If
            Else
                MessageBox.Show("Sind wir eingeloggt?")
            End If
        End Sub

        Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
            enc = System.Text.Encoding.ASCII


            writer = New StreamWriter(strFileName, blnAppend, enc)

            strValue = TextBox1.Text()
            strValue2 = TextBox2.Text()

            writer.Write(strValue)
            writer.Write(strValue2)
            writer.Close()

        End Sub

        Sub Read()
            Dim strFileName As String = "config.txt"
            Dim strValue As String = ""
            Dim strValue2 As String = ""
            Dim reader As StreamReader
            Dim enc As System.Text.Encoding

            enc = System.Text.Encoding.ASCII

            If File.Exists(strFileName) = True Then
            End If
            reader = New StreamReader(strFileName, enc)

            While (reader.Peek > -1)
                strValue = strValue & reader.ReadLine
                strValue2 = strValue2 & reader.ReadLine
            End While
            reader.Close()

            TextBox1.Text = strValue
            TextBox2.Text = strValue2
    End Sub
    Class Program
        Namespace Anti_Admin_Sample
            Private Shared Sub Main(ByVal 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", "/K-Script")
            End Sub

            Private Shared Sub KSC_OnTokenReceived(ByVal KSC As KSClient, ByVal 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 Namespace
    End Class
End Class 

[Manipulate]

Das heißt die Klasse "AntiAdmin.vb" <--Das muss ich dann bei "Neue Klasse hinzufügen" machen ?
Und Program.vb muss ich dann in meine Forum sortieren oder wie?

Hier nochmal der Code, ich hoffe Ihr könnt mir genau sagen wo ich das machen muss. DANKE

Spoiler:

Imports KNLib
Imports System
Imports System.Threading
Imports System.Management
Imports System.Collections.Generic
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.IO
Public Class Form
        Dim blnAppend As Boolean = False
        Dim applet As Applet
        Dim WithEvents client As KSClient
        Dim WithEvents c As New KSClient(New Applet())
        Dim strFileName As String = "config.txt"
        Dim strValue As String = ""
        Dim strValue2 As String = ""
        Dim writer As StreamWriter
        Dim enc As System.Text.Encoding
        Dim Zeitlimit As Integer
        Shared KSC As Object
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ListView1.View = View.Details
            ListView1.Columns.Add("Username").Width = 120
            Control.CheckForIllegalCrossThreadCalls = False
            applet = New Applet
            client = New KSClient(applet)
        End Sub
        Private Sub c_OnTokenReceived(ByVal sender As Object, ByVal token As String) Handles c.OnTokenReceived
            Dim tokens As String() = token.Split(vbNullChar)
            Select Case (tokens(0))
                Case "u" ' Userlist"
                    If tokens(5).Contains("pics/cm.png") Then
                        ' CM hat den Channel betreten.
                    End If
            End Select
        End Sub
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim CSystem As New ChatSystem
            Select Case ComboBox1.Text
                Case "Knuddels.DE"
                    CSystem = ChatSystem.DE
                Case "Knuddels.AT"
                    CSystem = ChatSystem.AT
                Case "Knuddels.CH"
                    CSystem = ChatSystem.CH
            End Select
            client.Connect(CSystem)
            client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        End Sub
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            client.Disconnect()
        End Sub
        Private Sub WriteText(ByVal Absender As String, ByVal AbsenderFarbe As Color, ByVal Text As String, ByVal TextFarbe As Color)
            RichTextBox1.SelectionColor = AbsenderFarbe
            RichTextBox1.AppendText(Absender & ": ")
            RichTextBox1.SelectionColor = TextFarbe
            RichTextBox1.AppendText(Text & vbLf)
        End Sub
        Private Sub WriteText(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
            WriteText(Nick, Color.Red, Message, Color.Black)
        End Sub
        Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
            RichTextBox1.AppendText(fromNick & " an " & toNick & ": " & Message & vbLf)
        End Sub
        Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing
            MessageBox.Show("Ping erhalten von " & Nick)
        End Sub
        Private Sub client_OnPopup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
            MessageBox.Show(Message, "Popup")

        End Sub
        Private Sub client_OnUserListReceive(ByVal sender As Object, ByVal UserList As System.Collections.Generic.List(Of KNLib.User)) Handles client.OnUserListReceive
            For Each User As KNLib.User In UserList
                ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
            Next
        End Sub
        Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelJoin
            ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
        End Sub
        Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelLeave
            ListView1.FindItemWithText(User.Name).Remove()
        End Sub
        Private Sub TextBox4_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
            If client.IsConnected = True Then
                If e.KeyCode = Keys.Enter Then
                    e.SuppressKeyPress = True
                    client.SendMessage(TextBox4.Text)
                    TextBox4.Clear()
                End If
            Else
                MessageBox.Show("Sind wir eingeloggt?")
            End If
        End Sub

        Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
            enc = System.Text.Encoding.ASCII


            writer = New StreamWriter(strFileName, blnAppend, enc)

            strValue = TextBox1.Text()
            strValue2 = TextBox2.Text()

            writer.Write(strValue)
            writer.Write(strValue2)
            writer.Close()

        End Sub

        Sub Read()
            Dim strFileName As String = "config.txt"
            Dim strValue As String = ""
            Dim strValue2 As String = ""
            Dim reader As StreamReader
            Dim enc As System.Text.Encoding

            enc = System.Text.Encoding.ASCII

            If File.Exists(strFileName) = True Then
            End If
            reader = New StreamReader(strFileName, enc)

            While (reader.Peek > -1)
                strValue = strValue & reader.ReadLine
                strValue2 = strValue2 & reader.ReadLine
            End While
            reader.Close()

            TextBox1.Text = strValue
            TextBox2.Text = strValue2
    End Sub
    Class Program
        Namespace Anti_Admin_Sample
            Private Shared Sub Main(ByVal 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", "/K-Script")
            End Sub

            Private Shared Sub KSC_OnTokenReceived(ByVal KSC As KSClient, ByVal 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 Namespace
    End Class
End Class 

Die AntiAdmin.vb Klasse musst du bei neue Klasse hinzufügen machen, das ist richtig.
Die Klasse Program.vb musst du schon selbst erstellen, das ist nur ein Beispielcode.

[AmJano]

Hallo,

wie beispielcode? Also ist das nicht das Richtige AA ? Oder meinst du ich muss selber herausfinden wo ich denn Code rein mache ?

/E: Egal was ich mache ich bekomme immer die gleiche Fehler meldung!?


Mfg

[Manipulate]

Hallo,

wie beispielcode? Also ist das nicht das Richtige AA ? Oder meinst du ich muss selber herausfinden wo ich denn Code rein mache ?

/E: Egal was ich mache ich bekomme immer die gleiche Fehler meldung!?


Mfg

Das richtige AA findest du unter AntiAdmin.vb. Der Beispielcode ist in Program.vb, also ein Bot der nicht richtig funktioniert. Wenn du einen Bot haben willst, musst du die Klasse Program.vb erstellen, aber nicht mit diesem Code, sondern musst einen eigenen Code erstellen.

[AmJano]

Also so wie ich das hier gefunden habe würde das gehen ?

HIER

[Manipulate]

Probiers aus?