Código fuente de cierre de persona completa

Copie el siguiente contenido al Bloc de notas. Al guardar como, seleccione todos los archivos y finalmente guárdelos como error zr.vbeon para continuar con el siguiente paso.

dim WSHshellA

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

wsh shell a . -c ""Llámame cerdo o apagaré tu teléfono en un minuto. Si no me crees, intenta...", 0, verdadero.

do while(a. <& gt"Soy un cerdo")

A = inputbox("Di que soy un cerdo, no lo cierres, pásalo rápido, di ""Soy un cerdo""," Di No digas ", "No digas", 80007000)

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

ring

msgbox CHR(13)+CHR(13)+CHR(13)+"Ojalá te lo hubiera dicho antes."

Dim WSHshell

Configuración wsh shell = wscript . createobject(" wscript . shell ")

wsh shell ejecutar " cmd . exe/c apagado-a ", 0, verdadero

msgbox CHR(13 )+CHR(13)+CHR(13)+"Jajajaja, es tan divertido."