title Virus Encontrado
color 2
echo un virus ha sido localizado
pause
echo ¿Desea eliminar el virus? presione cualquier tecla para continuar
pause
echo no se pudo eliminar el virus
color 93
color 65
color 1a
echo el virus ha dañado el sistema operativo
Que onda amigos de youtube aquí les traigo un nuevo o vídeo sobre VISUAL BASIC 2008 bien pues el código del flooder esta aquí abajo:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start () End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop () End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick My.Computer.Keyboard.SendKeys(TextBox1.Text) My.Computer.Keyboard.SendKeys("{Enter}") End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Timer1.Interval = (100) End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged Timer1.Interval = (10) End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged Timer1.Interval = (1) End Sub End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() * 5) ' donde esta el 5 pueden cambiarlo por ejemplo yo no quiero se generen 5 textos quiero que se generen 10 entonces cambio el 5 por 10'
Select Case TextBox1.Text
Case 0
TextBox1.Text = "123" 'Entre las comillas ponen los texto que quieren que se generen al azar'