Scripts, archivos bat y comandos cmd para hacer bromas

Sencillos códigos que al crear con ellos scripts y aplicaciones y ejecutarlos producen efectos de asombro, temor y pueden hacernos pasar un rato agradable de forma sana con nuestras amistades o compañeros del trabajo o la escuela.
Ninguno de estos scripts son dañinos en lo absoluto, pero si pueden ser muy molestos y algunos llegan a hacernos sentir impotentes hasta el grado de que para muchos la única solución de detenerlos es apagar o reiniciar la computadora.
Algunos de los códigos de los scripts, crean un Loop, especie de lazo de reproducción infinita, por lo que pueden resultar muy molestos y volverse incontrolables.
Se puede detener la ejecución de cualquiera de ellos, matando manualmente el proceso wscript.exe en el Administrador de tareas, no obstante en algunos casos puede hacerse muy difícil.
Lo ideal es tener a mano un archivo batch que detiene dicho proceso.
Se adjunta más abajo el código para hacer este archivo, aun así para detener algunos scripts el problema radicará en poder ejecutar el batch.

Diferencia entre los scripts y los archivos batch

Para los que no tienen experiencia ni conocimientos de programación:

Como crear los scripts y archivos batch con los códigos en esta página

Código del archivo batch para detener el proceso wscript.exe

Códigos de aplicaciones para bromas

Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción

Al ejecutar el script creado con este código, se expulsa o abre la bandeja de la unidad o las unidades ópticas de CDROM o DVDROM instaladas en tu PC y las cierra consecutivamente sin detenerse, continua de esta forma hasta que se reinicie la PC o se detenga el proceso wscript.exe como se indicó.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
Next ' cdrom 
For i = 0 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
Next ' cdrom 
loop
end if    

Crear un dancing con las luces del teclado

Al ejecutar el script creado con este código, comienzan a parpadear de forma aleatoria los leds o lucecitas que tienen los teclados, no producen otro efecto negativo que no sea que hace casi imposible escribir cualquier documento en un editor, porque va alternando continuamente mayúsculas y minúsculas.

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
loop    

¡Esta computadora se volvió loca!

Dos códigos que abren el Bloc de notas y repiten el mismo mensaje de distintas formas.
¡ES ACONSEJADO DETENER EN LOS DOS CASOS EL PROCESO CON EL BATCH!.
Si se trata de manualmente de cerrar los mensajes cada vez se crearán más hilos que terminarán consumiendo la memoria, después de eso el batch no funcionará.

Set objShell = CreateObject("WScript.Shell")
strCommand = "notepad.exe" 
objShell.Run strCommand, 1
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 300
wshshell.sendkeys "~esta PC se volvio loca"
loop    

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "Esta"
wscript.sleep 300
wshshell.sendkeys "~computadora"
wscript.sleep 300
wshshell.sendkeys "~se ha vuelto"
wscript.sleep 300
wshshell.sendkeys "~completamente"
wscript.sleep 300
wshshell.sendkeys "~loca"
wscript.sleep 300
wshshell.sendkeys "~y sin"
wscript.sleep 300
wshshell.sendkeys "~control"
wscript.sleep 300
wshshell.sendkeys " "
wscript.sleep 300
wshshell.sendkeys " "
wscript.sleep 300
wshshell.sendkeys "~QUE ES ESTO?"
wscript.sleep 600
wshshell.sendkeys "~AUXILIO"
wscript.sleep 100
wshshell.sendkeys "O"
wscript.sleep 100
wshshell.sendkeys "O"
do
wscript.sleep 50
wshshell.sendkeys "O"
loop    

Infinitas calculadoras

Algo parecido, cada 600 ms se crea un nuevo hilo de calc.exe, con el mismo batch puedes detenerlo.

Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.Run "calc.exe"
WScript.Sleep 600
loop    

Loop infinito de Microsoft Word

Envía un bucle infinito para el programa Microsoft Word con la tecla Enter, por supuesto que tienes que tener instalado este programa para que funcione.

Set objShell = CreateObject("WScript.Shell")
strCommand = "WINWORD.EXE" 
objShell.Run strCommand, 1
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 500
wshshell.sendkeys "~(enter)"
loop    

Volvamos atrás

Este código es uno de los más inofensivos, solo envía un sendkeys a la tecla retroceso y crea un bucle cada 500 ms por lo que cualquier carpeta que abras en el explorador repetirá la misma acción de la tecla retroceso continuamente.

MsgBox "Volvamos atras"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 500
wshshell.sendkeys "{bs}"
loop    

Virus peligroso detectado

Un script que solo muestra un mensaje, al oprimir cualquiera de las dos teclas termina por completo.
Este al igual que el batch a continuación la forma más exitosa de usarlo es copiándolo a la carpeta de Inicio para que comienza automáticamente con el sistema.

lol=msgbox ("Un virus muy peligroso ha sido detectado en su computadora. Presione SI para formatear su disco duro o NO para salvar sus datos, reiniciar el sistema y posteriormente formatearlo.",20,"Warning")    

Ataque de virus

Dos archivos batch que ejecutan secuencialmente una serie de mensajes, inofensivos por completo, su única acción es mostrar mensajes atemorizantes.
En el primer código al finalizar, si descomentas la última línea (quitar los dos puntos), apagará la computadora.
El segundo código amenaza con apagar el sistema pero después anula esta orden.

@echo off
echo Wscript.Sleep
echo Wscript.Sleep 5000>C:\sleep5000.vbs
echo Wscript.Sleep 3000>C:\sleep3000.vbs
echo Wscript.Sleep 4000>C:\sleep4000.vbs
echo Wscript.Sleep 2000>C:\sleep2000.vbs
cls
ECHO Examinando sistema......
start /w wscript.exe C:\sleep3000.vbs
cd %systemroot%\System32
dir
start /w wscript.exe C:\sleep2000.vbs
echo.
echo.
echo Eliminando archivos criticos del sistema...
echo del *.*
start /w wscript.exe C:\sleep3000.vbs
CLS
echo Eliminados con exito!
start /w wscript.exe C:\sleep2000.vbs
echo Eliminando entradas del registro...
start /w wscript.exe C:\sleep2000.vbs
echo del %USERPROFILE%\NTUSER.DAT
start /w wscript.exe C:\sleep4000.vbs
CLS
echo Eliminadas con exito!
start /w wscript.exe C:\sleep2000.vbs
echo Iniciar ejecutable virus?
start /w wscript.exe C:\sleep3000.vbs
echo cd C:\Users\%username%\AppData\Roaming\Microsoft\Windows\Start Menu\h4x
echo Iniciar hax.exe
start /w wscript.exe C:\sleep3000.vbs
echo Iniciado ejecutable!
start /w wscript.exe C:\sleep2000.vbs
echo Deshabilitando Windows Firewall...
start /w wscript.exe C:\sleep2000.vbs
echo Eliminando procesos...
start /w wscript.exe C:\sleep2000.vbs
echo Permitiendo inicio...
start /w wscript.exe C:\sleep2000.vbs
echo Virus ejecutado con exito!
start /w wscript.exe C:\sleep2000.vbs
echo Tienes suerte, has sido infestado con el virus hackBLACK!
start /w wscript.exe C:\sleep2000.vbs
echo Ahora solo tienes que volver a instalar Windows.
pause
:: shutdown -s -t 30 -c "Haz cometido un gran error. Que tengas un dia feliz.."    

@echo off
echo Wscript.Sleep
echo Wscript.Sleep 5000>C:\sleep5000.vbs
echo Wscript.Sleep 3000>C:\sleep3000.vbs
echo Wscript.Sleep 4000>C:\sleep4000.vbs
echo Wscript.Sleep 2000>C:\sleep2000.vbs
cls
ECHO Examinando sistema......
start /w wscript.exe C:\sleep3000.vbs
cd %systemroot%\System32
dir
start /w wscript.exe C:\sleep2000.vbs
echo.
echo.
echo Eliminando archivos criticos del sistema...
echo del *.*
start /w wscript.exe C:\sleep3000.vbs
CLS
echo Eliminados con exito!
start /w wscript.exe C:\sleep2000.vbs
echo Eliminando entradas del registro...
start /w wscript.exe C:\sleep2000.vbs
echo del %USERPROFILE%\NTUSER.DAT
start /w wscript.exe C:\sleep4000.vbs
CLS
echo Eliminadas con exito!
start /w wscript.exe C:\sleep2000.vbs
echo Iniciar ejecutable virus?
start /w wscript.exe C:\sleep3000.vbs
echo cd C:\Users\%username%\AppData\Roaming\Microsoft\Windows\Start Menu\h4x
echo Iniciar hax.exe
start /w wscript.exe C:\sleep3000.vbs
echo Iniciado ejecutable!
start /w wscript.exe C:\sleep2000.vbs
echo Deshabilitando Windows Firewall...
start /w wscript.exe C:\sleep2000.vbs
echo Eliminando procesos...
start /w wscript.exe C:\sleep2000.vbs
echo Permitiendo inicio...
start /w wscript.exe C:\sleep2000.vbs
echo Virus ejecutado con exito!
start /w wscript.exe C:\sleep2000.vbs
echo Tienes suerte, has sido infestado con el virus hackBLACK!
start /w wscript.exe C:\sleep2000.vbs
echo Ahora solo tienes que volver a instalar Windows.
pause
:: shutdown -s -t 30 -c "Haz cometido un gran error. Que tengas un dia feliz.."    

@echo off
shutdown -s -t 60 -c "Se ha detectado un error. Se cerrara el sistema en 30 segundos. No toque ninguna pantalla."
echo Wscript.Sleep 1000>C:\sleep1000.vbs
start /w wscript.exe C:\sleep1000.vbs
echo escaneando archivos......
start /w wscript.exe C:\sleep1000.vbs
cd %systemroot%\System32
dir
cls
echo eliminando archivos......
start /w wscript.exe C:\sleep1000.vbs
echo eliminando archivos......
start /w wscript.exe C:\sleep1000.vbs
echo eliminando archivos......
start /w wscript.exe C:\sleep1000.vbs
echo eliminando archivos......
start /w wscript.exe C:\sleep1000.vbs
echo eliminando archivos......
start /w wscript.exe C:\sleep1000.vbs
echo eliminando archivos......
start /w wscript.exe C:\sleep1000.vbs
echo MsgBox "Se ha recuperado satisfactoriamente del grave error.", 64, "ERROR" >%temp%\aa.vbs
shutdown -a
start %temp%\aa.vbs    

Son múltiples los códigos que se pueden crear, siempre teniendo en cuenta que no causen ningún daño en el sistema, solo es necesario un poco de imaginación y algún conocimiento básico de estos lenguajes.
Ojalá que el uso de estos códigos estimule a los que lo empleen y crean el interés de aprender algo que tenga una aplicación más útil.
No estoy muy convencido de la publicación de esta página, lo hago a regañadientes para complacer a muchos usuarios y amigos interesados, aunque he sido cuidadoso en no poner ningún código dañino.

Páginas relacionadas

Si te ha sido de interés el tema, puedes leer en las siguientes paginas los principios básicos para crear tus propios archivos batch, útiles para ejecutar diversas tareas en el equipo.