Codigos Para Crear Scripts

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.
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 connuestras 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.
Se puede parar la ejecución de los códigos escritos en lenguaje VBScript deteniendo manualmente el proceso enel Administrador de tareas, no obstante se adjunta el código para hacer un archivo batch que mata el proceso rápidamente con dos clics, el que se debe tener a mano. Aun así para detener algunos scripts el problema radica en poder ejecutar el batch.
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, estoaumenta en computadoras con poca memoria.

Como crear los scripts y aplicaciones.

Para los que no poseen conocimientos avanzados, para utilizar los scripts escritos en VBScript (están en los cuadros grandes), copiar al código al Bloc de notas y en el menú Archivo escoger "Guardar como", escribir cualquier nombre pero terminado en .vbs.
Los scripts escritos en lenguaje MSDOS (cuadro similaral Bloc de notas) copiar al código al Bloc de notas y en el menú Archivo escoger "Guardar como", escribir cualquier nombre pero terminado en .cmd

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 comandoTASKKILL 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

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

Al ejecutar el scriptcreado 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 >= 1then
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 seaque 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 yrepiten 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...