Trucos Windows

Como crear sencillas aplicaciones en Windows con el Bloc de notas o cualquier editor de texto sencillo en lenguaje MSDOS y VBScript, que al ejecutarlas nos permiten hacer bromas inofensivas y generar un poco de humor entre nuestros amigos. Códigos para copiar y pegar, sin tener conocimiento alguno de programación.

Son códigos muy sencillos 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.

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.

Códigos de aplicaciones para bromas

1. 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ó.

Código:

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

2. 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.

Código:

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys"{CAPSLOCK}"

wshshell.sendkeys"{NUMLOCK}"

wshshell.sendkeys"{SCROLLLOCK}"

loop

3. Calculadoras Infinitas


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

Código:

Set WshShell = WScript.CreateObject("WScript.Shell")

do

WshShell.Run "calc.exe"

WScript.Sleep 600

loop

4. Ciclo 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.

Código: 

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

5. 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.

Código:

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