Como hacer un hacker de msn falso (Broma) en VB6

Este programa lo que hara sera apagar la computadora 60 segundos despues de apretar el botón

Este tutorial sirve también para VB 2008 y 2010

Para comenzar tenemos que hacer 1 botón, 1 caja de texto, 1 timer y 1 label
El timer tiene que tener en interval 1000 y en enabled tiene q ser false

Private Sub Command1_Click ()
If Text1.Text = "" Then 'si el texto1 es igual a ""(nada) entonces
MsgBox("Escriba el email de la víctima!" 'Hace una caja de texto diciendo "Escriba el email de la víctima!"
Else
lblTiempo.Caption = "60" 'esto define que el label que va a decir el tiempo que falta para conseguir la contraseña va a ser 60
Timer1.Enabled = True 'activa el timer
Command1.Enabled = False 'esto impide que se vuelva a iniciar el conteo
End If
End Sub

Private Sub Timer1_Tick ()
lblTiempo.Caption = lblTiempo.Caption - 1 'esto hace que por cada segundo se le reste 1 al label
If lblTiempo.Caption = "0" Then 'si el label es igual a 0 entonces
Shell("shutdown -s -t 05" 'ejecuta un comando que apaga la computadora
End If
End Sub



Este post fue hecho por Prueba192 del foro www.visualforo.foroactivo.net, visitenlo para mas informacion sobre juegos y programacion.