Scripts para gastar bromas - Bloc de notas

Hola,

Hoy os traigo unos scripts que vamos a hacer con el block de notas, para gastar bromas a nuestros amigos. Con estas aplicaciones podemos simular haberle colado a alguien un virus y darle un buen susto.

Lo primero que vamos a hacer es, crear un .bat que será nuestra "cura" para detener los procesos.

IMPORTANTE

Este archivo .bat garantiza poder detener la ejecución de los scripts que vienen a continuación.
El archivo batch emplea el comando TASKKILL para detener los procesos indicados de modo forzado.
Nota: Subrayo en color verde, para distinguir nuestro programa que finalizará todos los procesos, al que he llamado cura.

@echo off

TASKKILL /F /IM wscript.exe
TASKKILL /F /IM calc.exe


Ahora vamos con nuestros archivos .bat que serán nuestras bromas.

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

Código: 

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollectionif 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 
loopend if

Explicació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 el PC o se detenga el proceso wscript.exe

Dancing con las luces del teclado

Código: 

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

Explicación: 

Al ejecutar el script, comienzan a parpadear de forma aleatoria los leds que tienen los teclados, no producen otro efecto negativo que no sea que hace casi imposible escribir cualquier documento.

 

Calculadoras infinitas 

Código:

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

Explicación:

Cada 600 ms se crea un nuevo hilo de calc.exe

Volviendo atrás

Código:

MsgBox "Volviendo atrás"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 500
wshshell.sendkeys "{bs}"
loop

Explicación:

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.

Eso es todo ;)