Codigos para crear scripts, archivos batch y

aplicaciones para hacer bromas

Códigos para crear scripts y aplicaciones en lenguaje VBS, que al ejecutarlos permiten

hacer bromas inofensivas y generar un poco de humor entre nuestros amigos.

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:

➔ Los scripts son sencillos códigos del lenguaje VBScript (parecido al Visual Basic)

que se insertan en un archivo de texto (pueden ser creados con el Bloc de notas), en el

que la extensión de archivo es: .VBS.

Al dar dos clics en ellos, Windows inicia Windows Scripting Host, aplicación incluida

en el sistema que ejecuta las órdenes en el código.

➔ Los archivos batch son similares pero son escritos en lenguaje MSDOS, utilizan

cualquiera de las siguientes extensiones de archivo: .CMD o .BAT, al ejecutarlos

Windows inicia la consola de CMD que ejecuta las ordenes incluidas en el código.

Se recomienda utilizar los script con moderación y precaución y no alterar los valores

de los códigos porque se volverían difíciles de controlar, esto aumenta en computadoras

con poca memoria.

Como crear los scripts y archivos batch con los códigos en

esta página

• Para crear un script (están en los cuadros grandes), copia el código al Bloc de notas y

en el menú Archivo escoge: "Guardar como", escribe cualquier nombre pero terminado

en .vbs.

• Para crear un archivo batch (están en un cuadro similar al Bloc de notas) copia el

código al Bloc de notas y en el menú Archivo escoge: "Guardar como", escribe

cualquier nombre pero terminado en .cmd o en .bat

Código del archivo batch para detener el proceso

wscript.exe.

Este es el primer archivo a crear, garantiza poder detener la ejecución de los scripts que

vienen a continuación.

El siguiente código del archivo batch simplemente emplea el comando TASKKILL para

detener los procesos indicados de modo forzado, también se incluyen los procesos de la

Calculadora, el Bloc de notas y Microsoft Word que se utilizan más adelante.

@echo off

TASKKILL /F /IM wscript.exe

TASKKILL /F /IM notepad.exe

TASKKILL /F /IM calc.exe

TASKKILL /F /IM WINWORD.EXE

Código 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.

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!

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")

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

Tengan presente que el batch para detener el proceso de wscript.exe también cierra los

hilos abiertos de forma forzada (sin guardar cambios), de la Calculadora, el Bloc de

notas y Microsoft Word, por lo que si hay algún documento abierto de este último

software, asegúrate de guardar los cambios antes de nada.