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

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.
trucos bloc de notas windows 10
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

Tu opinión es importante para mí, porque me ayuda a mejorar. Si te gustó el articulo o tienes alguna sugerencia, déjame tu comentario con tu nombre para poder responderte tan pronto como pueda.

  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 :D
    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

    ResponderBorrar
  2. Genial la verdad me encanta esta pagina, me gustaría que subieran mas trucos y como podemos modificarlos a nuestros gustos. saludos a los colaboradores.

    ResponderBorrar
    Respuestas
    1. Gracias por comentar Efraín. De hecho puedes ver mas trucos de nuestra pagina en el siguiente link: Trucos informáticos.
      Saludos Cordiales.

      Borrar
  3. 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")

    ResponderBorrar
  4. Perfecto el truco me encanta. Pero tengo un inconveniente ¿como ago para saber a que hora y dia se abrira y se serrara?

    ResponderBorrar
    Respuestas
    1. 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.

      Borrar
Publicar un comentario
Artículo Anterior Siguiente Artículo