Bromas vbs

Consejos


*Cambien el icono y nombre del archivo vbs *Recuerda se guarda comoformato vbs. EJ: Calculo.vbs *Ya se que no es un programa pero se comporta como uno 
*Ademas se pueden hacer cosas muy divertidas 
*:ENTRE MSGBOX Y ( NO LLEVA ESPACIO Y LO MISMO QUE CON ( Y " NADA MAS ES QUE SI LO JUNTO SE ME HACEN CARITAS XD JAJAJAJ. HA Y ESTO PARA TODAS. 
Codigo para cancelar los scripts
@echo off

TASKKILL /F /IM wscript.exe
TASKKILL /F /IM notepad.exe
TASKKILL /F /IM calc.exe
TASKKILL /F /IM WINWORD.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.


¡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á. [color=#000000][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] objShell [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] [/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
strCommand [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] [/color][color=rgb(0,136,0)]"notepad.exe"[/color][color=rgb(0,0,0)] 
objShell[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]Run[/color][color=rgb(0,0,0)] strCommand[/color][color=rgb(102,102,0)],[/color][color=rgb(0,0,0)] [/color][color=rgb(0,102,102)]1[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] wshShell [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
[/color][color=rgb(0,0,136)]do[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~esta PC se volvio loca"[/color][color=rgb(0,0,0)]
loop[/color][/color] [color=#000000][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] wshshell [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]Wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]run [/color][color=rgb(0,136,0)]"Notepad"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]400[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"Esta"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~computadora"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~se ha vuelto"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~completamente"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~loca"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~y sin"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~control"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]" "[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]" "[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]300[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~QUE ES ESTO?"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]600[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~AUXILIO"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]100[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"O"[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]100[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"O"[/color][color=rgb(0,0,0)]
[/color][color=rgb(0,0,136)]do[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]50[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"O"[/color][color=rgb(0,0,0)]
loop[/color][/color]
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ó. [color=#000000][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] oWMP [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] [/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WMPlayer.OCX.7"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] colCDROMs [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] oWMP[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]cdromCollection
[/color][color=rgb(0,0,136)]if[/color][color=rgb(0,0,0)] colCDROMs[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]Count[/color][color=rgb(0,0,0)] [/color][color=rgb(102,102,0)]>=[/color][color=rgb(0,0,0)] [/color][color=rgb(0,102,102)]1[/color][color=rgb(0,0,0)] [/color][color=rgb(0,0,136)]then[/color][color=rgb(0,0,0)]
[/color][color=rgb(0,0,136)]do[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]For[/color][color=rgb(0,0,0)] i [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] [/color][color=rgb(0,102,102)]0[/color][color=rgb(0,0,0)] to colCDROMs[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]Count[/color][color=rgb(0,0,0)] [/color][color=rgb(102,102,0)]-[/color][color=rgb(0,0,0)] [/color][color=rgb(0,102,102)]1[/color][color=rgb(0,0,0)] 
colCDROMs[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]Item[/color][color=rgb(102,102,0)]([/color][color=rgb(0,0,0)]i[/color][color=rgb(102,102,0)]).[/color][color=rgb(102,0,102)]Eject[/color][color=rgb(0,0,0)] 
[/color][color=rgb(102,0,102)]Next[/color][color=rgb(0,0,0)] [/color][color=rgb(0,136,0)]' cdrom 
For i = 0 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
Next '[/color][color=rgb(0,0,0)] cdrom 
loop
[/color][color=rgb(0,0,136)]end[/color][color=rgb(0,0,0)] [/color][color=rgb(0,0,136)]if[/color][/color] 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. [color=#000000][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] wshShell [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)]wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
[/color][color=rgb(0,0,136)]do[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]100[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys[/color][color=rgb(0,136,0)]"{CAPSLOCK}"[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys[/color][color=rgb(0,136,0)]"{NUMLOCK}"[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys[/color][color=rgb(0,136,0)]"{SCROLLLOCK}"[/color][color=rgb(0,0,0)]
loop[/color][/color] Infinitas calculadoras.

Algo parecido, cada 600 ms se crea un nuevo hilo de calc.exe, con el mismo batch puedes detenerlo. [color=#000000][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] [/color][color=rgb(102,0,102)]WshShell[/color][color=rgb(0,0,0)] [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] [/color][color=rgb(102,0,102)]WScript[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
[/color][color=rgb(0,0,136)]do[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]WshShell[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]Run[/color][color=rgb(0,0,0)] [/color][color=rgb(0,136,0)]"calc.exe"[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]WScript[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]Sleep[/color][color=rgb(0,0,0)] [/color][color=rgb(0,102,102)]600[/color][color=rgb(0,0,0)]
loop[/color][/color]
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. [color=#000000][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] objShell [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] [/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
strCommand [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] [/color][color=rgb(0,136,0)]"WINWORD.EXE"[/color][color=rgb(0,0,0)] 
objShell[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]Run[/color][color=rgb(0,0,0)] strCommand[/color][color=rgb(102,102,0)],[/color][color=rgb(0,0,0)] [/color][color=rgb(0,102,102)]1[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] wshShell [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)] wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
[/color][color=rgb(0,0,136)]do[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]500[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"~(enter)"[/color][color=rgb(0,0,0)]
loop[/color][/color]
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. [color=#000000][color=rgb(102,0,102)]MsgBox[/color][color=rgb(0,0,0)] [/color][color=rgb(0,136,0)]"Volvamos atras"[/color][color=rgb(0,0,0)]
[/color][color=rgb(102,0,102)]Set[/color][color=rgb(0,0,0)] wshShell [/color][color=rgb(102,102,0)]=[/color][color=rgb(0,0,0)]wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(102,0,102)]CreateObject[/color][color=rgb(102,102,0)]([/color][color=rgb(0,136,0)]"WScript.Shell"[/color][color=rgb(102,102,0)])[/color][color=rgb(0,0,0)]
[/color][color=rgb(0,0,136)]do[/color][color=rgb(0,0,0)]
wscript[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sleep [/color][color=rgb(0,102,102)]500[/color][color=rgb(0,0,0)]
wshshell[/color][color=rgb(102,102,0)].[/color][color=rgb(0,0,0)]sendkeys [/color][color=rgb(0,136,0)]"{bs}"[/color][color=rgb(0,0,0)]
loop[/color][/color]
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.

[color=#000000]@echo offecho Wscript.Sleepecho Wscript.Sleep 5000>C:sleep5000.vbsecho Wscript.Sleep 3000>C:sleep3000.vbsecho Wscript.Sleep 4000>C:sleep4000.vbsecho Wscript.Sleep 2000>C:sleep2000.vbsclsECHO Examinando sistema......start /w wscript.exe C:sleep3000.vbscd %systemroot%System32dirstart /w wscript.exe C:sleep2000.vbsecho.echo.echo Eliminando archivos criticos del sistema...echo del *.*start /w wscript.exe C:sleep3000.vbsCLSecho Eliminados con exito!start /w wscript.exe C:sleep2000.vbsecho Eliminando entradas del registro...start /w wscript.exe C:sleep2000.vbsecho del %USERPROFILE%NTUSER.DATstart /w wscript.exe C:sleep4000.vbsCLSecho Eliminadas con exito!start /w wscript.exe C:sleep2000.vbsecho Iniciar ejecutable virus?start /w wscript.exe C:sleep3000.vbsecho cd C:Users%username%AppDataRoamingMicrosoftWindowsStart Menuh4xecho Iniciar hax.exestart /w wscript.exe C:sleep3000.vbsecho Iniciado ejecutable!start /w wscript.exe C:sleep2000.vbsecho Deshabilitando Windows Firewall...start /w wscript.exe C:sleep2000.vbsecho Eliminando procesos...start /w wscript.exe C:sleep2000.vbsecho Permitiendo inicio...start /w wscript.exe C:sleep2000.vbsecho Virus ejecutado con exito!start /w wscript.exe C:sleep2000.vbsecho Tienes suerte, has sido infestado con el virus hackBLACK!start /w wscript.exe C:sleep2000.vbsecho Ahora solo tienes que volver a instalar Windows.pause:: shutdown -s -t 30 -c "Haz cometido un gran error. Que tengas un dia feliz.."[/color]
[color=#000000]@echo offshutdown -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.vbsstart /w wscript.exe C:sleep1000.vbsecho escaneando archivos......start /w wscript.exe C:sleep1000.vbscd %systemroot%System32dirclsecho eliminando archivos......start /w wscript.exe C:sleep1000.vbsecho eliminando archivos......start /w wscript.exe C:sleep1000.vbsecho eliminando archivos......start /w wscript.exe C:sleep1000.vbsecho eliminando archivos......start /w wscript.exe C:sleep1000.vbsecho eliminando archivos......start /w wscript.exe C:sleep1000.vbsecho eliminando archivos......start /w wscript.exe C:sleep1000.vbsecho MsgBox "Se ha recuperado satisfactoriamente del grave error.", 64, "ERROR" >%temp%aa.vbsshutdown -astart %temp%aa.vbs[/color]
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.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 aunque algo que sea más útil.