Sploxfreak (13.02.2012), St0nY (13.02.2012)
-
13.02.2012, 01:51 #1
[Vb]Anti Admin + Botkontrolle
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)
Code:Dim Adminlist As String() 'Adminliste hinzufügen
Code: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
Code: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
Code: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
Code: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
Code: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
Denkt Bitte dran das ihr in denn Ordner nen Adminlist.txt Hinzufügt und die Admin's hinzufügt.
MFG
Like a Star x3Geändert von DnL (29.04.2012 um 03:50 Uhr)
-
The Following 2 Users Say Thank You to DnL For This Useful Post:
-
13.02.2012, 09:15 #2
AW: [Vb]Anti Admin + Botkontrolle
Were net wenn du noch ein tut zu admin list machen könntest
Sonst kommen immer fehlemeldung adminlist ist kein memeber von
dennoch dankeGeändert von Sploxfreak (13.02.2012 um 09:24 Uhr)
-
13.02.2012, 21:10 #3
- Registriert seit
- 06.12.2011
- Beiträge
- 150
Thanked 30 Times in 22 PostsAW: [Vb]Anti Admin + Botkontrolle
Steht doch oben schon. Dim adminlist as new arrayList
-
16.02.2012, 12:08 #4
- Registriert seit
- 19.12.2011
- Beiträge
- 356
Thanked 164 Times in 101 PostsAW: [Vb]Anti Admin + Botkontrolle
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.
-
16.02.2012, 12:42 #5
AW: [Vb]Anti Admin + Botkontrolle
Abhilfe
PHP-Code: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
mfg
-
The Following User Says Thank You to uncopyable For This Useful Post:
DnL (29.04.2012)
-
19.02.2012, 19:45 #6
AW: [Vb]Anti Admin + Botkontrolle
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
-
-
19.02.2012, 19:52 #7
AW: [Vb]Anti Admin + Botkontrolle
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
-
19.02.2012, 19:57 #8
-
31.03.2012, 22:23 #9
AW: [Vb]Anti Admin + Botkontrolle
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?Vom Noob zum Übergott
-
02.04.2012, 20:43 #10
AW: [Vb]Anti Admin + Botkontrolle
??? wenn ich den bot ungefähr 5-10 min laufen lasse kommt das
http://www.abload.de/image.php?img=errorq9x3i.pngGeändert von Sploxfreak (02.04.2012 um 20:46 Uhr)
Vom Noob zum Übergott
Ähnliche Themen
-
Beste Anti-Viren Programm
Von Published im Forum SecurityAntworten: 47Letzter Beitrag: 07.11.2013, 17:12 -
Taugt dieses Anti-Dos-Script was?
Von IceNet im Forum Server-AdministrationAntworten: 1Letzter Beitrag: 16.08.2012, 06:30 -
[S] Botkontrolle beantworten
Von rVs14 im Forum SourcecodeAntworten: 1Letzter Beitrag: 16.02.2012, 12:06 -
[Sammelthread] Anti Witze
Von Jogginghose im Forum Der Witz-Komm-Raus BereichAntworten: 36Letzter Beitrag: 10.12.2011, 13:08 -
Achtung neue Botkontrolle
Von Kevin im Forum Knuddels AllgemeinAntworten: 16Letzter Beitrag: 11.04.2011, 18:41
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.