Creacion de un Script de teclado

1ºAbrir el Block de Notas 

 2º Escribir el siguiente texto>>

Set wshshell =wscript.Create.Object("WScritp.Shell")

do

wscript.sleep 100

wshshell.sendkeys"{CAPSLOCK}"

wshshell.sendkeys"{NUMLOCK)}"

wshshell.sendkeys"{SCROLLLOCK}"

loop

BIEN POR ULTIMO SOLO GUARDA EL ARCHIVO CON EL NOMBRE QUE TU QUIERAS PERO CON TERMINACION .vbs 

Ejemplo: Miscript.vbs

IMPORTANTE LEER:::::::>>>>>>>>

Creo que esto le ayudara ya que es bueno para el Facebook o el messenger ya lo que tiene como objetivo este scritpt es que puedes scribir con MAYuscuLAs y MInusculas AL mismo tiempo 

a una cosa se me olvidaba para quitar el Script abre el administrador de tareas y cierra el porseso wscript.exe