[Visual Basic 6.0] Como crear un Text Flooder

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: 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: 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á. Private Sub cmdEmpezar_Click() timerFlood.Enabled = True End Sub Ahora cmdDetener, este detendrá el Timer. Entonces: 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í: 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í: 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 .