Visual Basic Bot Flood Protection

[Tuberload]

Ditto!

May I ask what the purpose of this post was?

[Hitmen]

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]

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]

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 Expand


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]

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

[rabbit]

WOW!  Two years dead.

[topaz]

The nested ifs are pretty ugh too.

[Mystical]

WOW!  Two years dead.

3 years dead..

[MysT_DooM]

WOW!  Two years dead.

3 years dead..

2 years and 9 months

[l2k-Shadow]

oh dear! 2 years 10 months 6 days dead.

[Mystical]

thats right break it down!!

[Cat Food]

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

[MyndFyre]

-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]

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]

hehehe....newbie talks back to Myndy