The informatic 666

martes, 16 de julio de 2013

¡Theinformatic666 vuelve!
 Espéranos 

Aquí nuestra pagina de ventas: theinformatic666-com.webnode.mx

sábado, 19 de noviembre de 2011

Nuevo video :D 19/11/11

bien pues aquí el código:

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

lunes, 7 de noviembre de 2011

Visual Basic 2008 como hacer un flooder

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

sábado, 8 de octubre de 2011

Aqui mi primer video tutorial sobre visual basic 2008 como hacer un keygen

Holaa!! amigos de youtube aqui el codigo:

Public Class Form1

    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' 
            Case 1
                TextBox1.Text = "456"
            Case 2
                TextBox1.Text = "789"
            Case 3
                TextBox1.Text = "12367"
            Case 4
                TextBox1.Text = "121323"

        End Select
    End Sub
End Class