Cómo escribir un mensaje de forma automática en el bloc de notas

por
En
más de alguna ocasión les hemos presumido a nuestros amigos sobre los
conocimientos que tenemos en informática (y no precisamente porque seamos unos
genios, sino porque sencillamente son cuestiones que ellos desconocen) y lo más
seguro es que se hayan asombrado.




Hoy les muestro un pequeño truco mediante el cual les puedes escribir un mensaje de forma automática en el bloc de notas y que probablemente los asuste, sobre todo si lo ven a la medianoche.

Como
lo he dicho en otros artículos, el truco no tiene ninguna utilidad productiva,
pero si te servirá para jugarles una pequeña broma a tus amigos y por qué no, a
tus no tan amigos. Es extremadamente sencillo, solo abre el Notepad, copia y
pega el siguiente código:


WScript.Sleep 1800
WScript.Sleep 1000
Set WshShell =
WScript.CreateObject(«WScript.Shell»)
WshShell.Run
«notepad»
WScript.Sleep 100
WshShell.AppActivate
«Notepad»
WScript.Sleep 500
WshShell.SendKeys
«Hola»
WScript.Sleep 500
WshShell.SendKeys
» ¡Deja de «
WScript.Sleep 500
WshShell.SendKeys
» ver «
WScript.Sleep 500
WshShell.SendKeys
» pornografia! «
WScript.Sleep 500
WshShell.SendKeys
» Mejor Visita «
WScript.Sleep 500
WshShell.SendKeys
» 1000 «
WScript.Sleep 500
WshShell.SendKeys
» Tips «
WScript.Sleep 500
WshShell.SendKeys
» Informaticos «
WScript.Sleep 500
WshShell.SendKeys
» Te «
WScript.Sleep 500
WshShell.SendKeys
» Estamos «
WScript.Sleep 500
WshShell.SendKeys
» Vigilando «
WScript.Sleep 500
WshShell.SendKeys
» ATTE. «
WScript.Sleep 500
WshShell.SendKeys
» LA NSA!!!!  «
Guárdalo
con el nombre que desees pero con la extensión .vbs. En mi caso lo guardé así: Truco.vbs

Ahora
compártelo con tus amigos e invítalos a que los abran. 

7 comentarios en «Cómo escribir un mensaje de forma automática en el bloc de notas»

  1. Hola, he leido tu post, muy buen truco.
    Te cuento que es mi primera vez con VisualBasicScript y trate de mejorar tu codigo a algo mas bello 😀
    El problema es que facebook no deje enviarlo jajajajajajaja
    Bueno seria algo así, ojala te sirva así como tu post me sirvio a mi:

    WScript.Sleep 2000
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "notepad"
    WScript.Sleep 100
    WshShell.AppActivate "Notepad"
    Dim message
    message = "Escriba aca el mensaje que desea mostrar"
    For i = 1 to Len(message)
    WScript.Sleep 100
    WshShell.SendKeys(Mid(message, i, 1))
    Next

    Responder

  5. si quieren hacer que al iniciar un programa y al cerrarlo de mensajes, acá el comando.
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Return = WshShell.Run("programa a ejecutar", 1, true)
    msgbox("ingrese texto")
    x=msgbox("mensaje", 4+16, "título")
    msgbox("ingrese texto")
    x=msgbox("Mensaje", 2+16, "título")
    msgbox("ingrese texto")

    Responder

  7. El comando primero abre el programa y cuando terminas ejecutar la aplicación, aparecerán los mensajes, cerrando todos los mensajes, el script termina. Si no cierras el programa que ejecuto el script no aparecerán los mensajes.

    También puedes hacer el proceso inverso, que aparezcan los mensajes y cerrandolos todos, ejecute el programa. ¿Cómo lo hago?

    Set WshShell = WScript.CreateObject("WScript.Shell")
    Return = WshShell.Run("programa a ejecutar", 1, true)

    Lo dejo al final y los mensajes primeros, será algo así.

    msgbox("ingrese texto")
    x=msgbox("mensaje", 4+16, "título")
    msgbox("ingrese texto")
    x=msgbox("Mensaje", 2+16, "título")
    msgbox("ingrese texto")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Return = WshShell.Run("programa a ejecutar", 1, true)

    puedes agregar más mensajes a programa si quieres pero en la ejecución del programa solamente es 1.

    Responder

Deja un comentario