código fuente de apagado de trucos de vb

Cree un nuevo documento de texto y copie el siguiente código en él.

Luego cambia la extensión a .vbe.

Este programa sólo se puede desbloquear siguiendo las instrucciones anteriores. De lo contrario, se reiniciará y llamará a los comandos internos, por lo que el administrador de tareas no podrá cerrarlo. Amigos, pueden intentarlo.

Continuar en caso de error

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA run ". cmd.exe /c apagado -r -t 60 -c ""Soy un cerdo, si no lo dices te callaré un minuto, si no me crees, inténtalo- --"" ",0 ,true

dim a

do while(a <>"Soy un cerdo")

a = inputbox ( "Di que soy un cerdo y no apagaré tu máquina, vamos, dilo, di ""Soy un cerdo"", "di no", "di no"、8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0, "MsgBox"

bucle

msgbox chr(13 ) + chr(13) + chr(13) + chr(13) + "¡Dilo temprano!

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c apagado -a", 0, verdadero

msgbox chr(13) + chr(13) + chr(13) + "jajajaja, divertido"