Visual Basic Bot Flood Protection

Tuberload · October 24, 2003, 03:34 AM

Quote from: bmwrb16 on October 23, 2003, 09:53 PM
Ditto!

May I ask what the purpose of this post was?

Hitmen · October 24, 2003, 02:33 PM

Quote from: Tuberload on October 24, 2003, 03:34 AM
Quote from: bmwrb16 on October 23, 2003, 09:53 PM
Ditto!
May I ask what the purpose of this post was?

Making a useless post asking why someone made a useless post is a waste of time.

I suppose this post is rather useless too.

Tuberload · October 24, 2003, 05:16 PM

Quote from: Hitmen on October 24, 2003, 02:33 PM
Quote from: Tuberload on October 24, 2003, 03:34 AM
Quote from: bmwrb16 on October 23, 2003, 09:53 PM
Ditto!
May I ask what the purpose of this post was?

Making a useless post asking why someone made a useless post is a waste of time.

I suppose this post is rather useless too.

Mine wasn't really a useless post because I was trying to figure something out. He clearly was not and neither were you. So you guys posted the useless posts. My curiosity gave mine a point.

Michael · November 01, 2003, 08:37 PM

Here is a queue system i designed for my zonebot use it if you like its very stable note set timer5.interval to 100 and timer2.interval to 4000

Code Select


Public Sub Send(ByVal strText As String)
On Error Resume Next
QueueCount = QueueCount + 1
Bot.mnuQ.Caption = "Queue(" & QueueCount & ")"
Bot.List1.AddItem strText
End Sub
Public Sub QueueClear()
    QueueCount = 0
    Bot.List1.Clear
    LastQueue = ""
    Bot.mnuQ.Caption = "Queue(" & QueueCount & ")"
End Sub
'no double ban queue
Public Sub CheckQueue(Queue1 As String, Queue2 As String)
If LCase(Left(Queue1, 4)) = "/ban" And LCase(Left(Queue2, 4)) = "/ban" Then
If LCase(Queue1) = LCase(Queue2) Then
Allowed = flase
Else
Allowed = True
End If
Else
Allowed = True
End If
End Sub
Private Sub Timer5_Timer()
If Timer2.Enabled = True Then
Else
If List1.ListCount = "0" Then
Else
QueueCount = QueueCount - 1
Bot.mnuQ.Caption = "Queue(" & QueueCount & ")"
Call CheckQueue(LastQueue, Bot.List1.List(0))
If Allowed = True Then
'AddChat "<" & varuser & ">", vbYellow, Bot.List1.List(0), vbWhite
CleanSlateBot1.Send Bot.List1.List(0)
If LCase(Left(Bot.List1.List(0), 1)) = "/" Then
'
Else
AddChat "<" & varUsername & ">", vbYellow, Bot.List1.List(0) & vbNewLine, vbWhite
End If
LastQueue = Bot.List1.List(0)
Bot.List1.RemoveItem (0)
Timer2.Enabled = True
End If
If Allowed = False Then
Bot.List1.RemoveItem (0)
Call CheckQueue(LastQueue, Bot.List1.List(0))
End If
End If
End If
End Sub

Antarctica · September 07, 2006, 07:49 PM

Michael... your code is pretty hard 2 read u know. You have no enters in any of it or indentations.

rabbit · September 07, 2006, 08:04 PM

WOW! Two years dead.

topaz · September 07, 2006, 08:16 PM

The nested ifs are pretty ugh too.

Mystical · September 07, 2006, 11:39 PM

Quote from: rabbit on September 07, 2006, 08:04 PM
WOW! Two years dead.

3 years dead..

MysT_DooM · September 08, 2006, 06:36 AM

Quote from: MyStiCaL on September 07, 2006, 11:39 PM
Quote from: rabbit on September 07, 2006, 08:04 PM
WOW! Two years dead.

3 years dead..

2 years and 9 months

l2k-Shadow · September 08, 2006, 02:39 PM

oh dear! 2 years 10 months 6 days dead.

Mystical · September 08, 2006, 03:18 PM

thats right break it down!!

Cat Food · September 22, 2006, 12:54 PM

-Mouse drifts around for the lock topic button as if it were really there-

MyndFyre · September 22, 2006, 12:56 PM

Quote from: ImaWh0re on September 22, 2006, 12:54 PM
-Mouse drifts around for the lock topic button as if it were really there-

You're not a moderator. Stop bitching about it. You're just contributing to the problem.

Cat Food · September 22, 2006, 12:59 PM

I wasn't bitching I was putting my 2 cents in. Hence why I said 'as if it were really there', being I am obviously NOT a moderator. It was a joke, you understand that right?

rabbit · September 22, 2006, 05:38 PM

hehehe....newbie talks back to Myndy