Subprograma de programación de shell

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 <& gt"Soy un cerdo")

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

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

Anillo

msgbox CHR(13)+CHR(13)+CHR(13)+"Ojalá te lo había dicho antes."

Dim WSHshell

Set 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 a otros.