Quiero algunos códigos de murciélagos divertidos

Copie y pegue el siguiente código en su cuaderno y luego cambie el sufijo a .vbs

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

WSHshellA.run "cmd.exe /c Shutdown -r -t 60 -c ""Llámame cerdo. Si no dices que soy un cerdo, apagaré tu computadora en un minuto. Si no dices que soy un cerdo, apagaré tu computadora en un minuto. No me creas, intenta..."" ",0,true

dim a

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

a= inputbox ("Si dices que soy un cerdo, no te calles, date prisa Difunde, di ""Soy un cerdo"", "No lo digas", "No lo digas", 8000,7000)

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

bucle

msgbox chr(13) + chr(13) + chr(13) + "Te lo acabo de decir antes"

dim WSHshell

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

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

msgbox chr(13) + chr(13) + chr(13) + "Jajajaja , muy divertido"