Introducción

Este es mi primer post, y quiero enseñarles cómo crear un Text Flooder en Visual Basic 6.0. Espero que les agrade y les sirva.




¿Qué es un Text Flooder?

Un Text Flooder es un programa que envía un mensaje muchas veces en un poco tiempo a lo que se denomina Flood. Este mismo serviría para molestar a alguien o poner lenta su PC.




Se necesitará

El Visual Basic 6.0, Full de preferencia. Y tener una noción de su uso.




-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-




1. Creando y definiendo Textboxs y botones



Crearemos 2 textboxs y 2 botones.
El textbox 1 será en el que irá el texto, y el 2 será en el que irán la cantidad de veces que se enviará el mensaje.
Como es de suponerse el botón Comenzar hara que empiece el Flood y el detener lo detendrá.
Yo los llamaré así:

Textbox1 = txtMensaje
Textbox2 = txtEnvios
BotonComenzar = cmdComenzar
BotonDetener = cmdDetener






2. Trabajando textboxs y agregando un timer

Ahora aquí editaremos algunas cosas en los textboxs. Para empezar, nosotros queremos que txtEnvios solo acepte números. Entonces agregaremos este código:

dijo:


Private Sub txtEnvios_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0
Case 8, 43 To 46, 48 To 57
Case Else
KeyAscii = 0
Beep
End Select
End Sub



Bueno ahora agregaremos un timer al que le pondremos "timerFlood". En su configuración pondremos:

dijo:


Enabled = False
Interval = 3000


Eso configurará el timer para que tarde 3 segundos (en los cuales nos posicionaremos en el texto donde vamos a usar el Flood) en empezar el Flood. Y lo pusimos desactivado para que cuando iniciemos el programa no empiece a floodear .






3. Configurando botones y el timer

Empecemos con cmdEnviar, lo que hará este botón será iniciar el Timer para que cumpla su función haciendo Flood. ¿Recuerdan que el Timer lo desactivamos?, bueno este botón lo activará.

dijo:


Private Sub cmdEmpezar_Click()
timerFlood.Enabled = True
End Sub



Ahora cmdDetener, este detendrá el Timer. Entonces:

dijo:


Private Sub cmdDetener_Click()
timerFlood.Enabled = False
End Sub



Ahora el Timer, lo que este hará será crear un ciclo que se repita la cantidad de veces que indicamos en txtEnvios.
Eso se hace con la función For. El código es así:

dijo:


Private Sub timerFlood_Timer()
For X = 1 To txtEnvios.Text
SendKeys txtMensaje.Text
SendKeys "{ENTER}"
Next X
timerFlood.Enabled = False
End Sub



Eso creará el ciclo del Flood, la función SendKeys simularía que nosotros tocaramos las teclas. En este caso primero enviará que nosotros estamos digitando el texto y luego enviará la tecla "ENTER" que sería enviar (como en el MSN)






4. Comprobando y usando!

Si lo hicimos bien todo el código sería así:

dijo:


Private Sub txtEnvios_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0
Case 8, 43 To 46, 48 To 57
Case Else
KeyAscii = 0
Beep
End Select
End Sub



Private Sub cmdEmpezar_Click()
timerFlood.Enabled = True
End Sub



Private Sub cmdDetener_Click()
timerFlood.Enabled = False
End Sub



Private Sub timerFlood_Timer()
For X = 1 To txtEnvios.Text
SendKeys txtMensaje.Text
SendKeys "{ENTER}"
Next X
timerFlood.Enabled = False
End Sub



Ahora para probarlo, corremos el programa en el mensaje le pondremos cualquier cosa y en envíos pondremos 10, luego abriremos un bloc de notas. Cuando ya esta todo listo le damos "Empezar" y rápido hacemos click sobre el bloc de notas. Debería hacer el Flood

Video test



Ver en YouTube



Bueno espero que les haya gustado y servido mí tutorial. Pero recuerda que comentar no cuesta nada, y dejar puntos menos .