DUVIDA SISTEMA DE ANTI-SPAM

F3RR4M3N745 26/12/2010 18:37:36
#360401

Bem, estou tentando fazer um sistema anti-spam, ele está [Ô]funcionando[Ô], isso é, [Ô]variavel[Ô] fica repetindo várias vezes papainoel, quando ele detecta [Ô]papainoel[Ô] ele envia a mensagem que não foi spam, logo em seguida ele detecta de novo [Ô]papainoel[Ô] e envia a mensagem de erro, só que logo em seguida ele detecta novamente [Ô]papainoel[Ô] e envia a mensagem que não foi spam, isso em um loop, ele não está esperando o tempo de 30 segundos, está fazendo direto, o que eu tenho que fazer para que ele espere os 30 segundos e só depois que se passar os 30 segundos mudar o valor para verdadeiro de novo? (Para não detectar o SPAM)? O código está abaixo. Peço que me ajudem. Obrigado.

If FrmBOT.Check1.Value = 1 Then
If InStr(variavel, [Ô]papainoel[Ô]) Then
If Timer1.Interval > 0 Then
MsgBox ([Ô]Isso não foi um SPAM[Ô])
Timer1.Interval = 0
ElseIf Timer1.Interval >= 0 Then
MsgBox ([Ô]Isso foi um SPAM[Ô])
Timer2.Interval = 30000
If Timer2.Interval = 30000 Then
Timer1.Interval = 5
End If
End If
End If
End If
End If