VB6 - Basic Flood Protection

[Paul M]

Well i made a basic chat client to connect to battle.net servers. Recently their has been heaps of updates so my bot has been discontinued. But here is the function its pretty basic.

Public Function SendData(Text As String)
Form1.txtsend.Text = Form1.txtsend.Text + 1
'Basicaly, just adds one digit to the Flood Counter Txt
'Then sends the actual text through Clean Slate...
 
'But if the FloodC is >= 1, then it'll wait until it
'drops back down to 0, before it proceeds to send
'more data.
If Form1.txtsend.Text >= "1" Then
   Do Until Form1.txtsend.Text = "0"
       DoEvents
   Loop
End If
DoEvents
End Function