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:
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.
Hola, he leido tu post, muy buen truco.
ResponderBorrarTe 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
OK, Gracias. Saludos!!!
BorrarGenial la verdad me encanta esta pagina, me gustaría que subieran mas trucos y como podemos modificarlos a nuestros gustos. saludos a los colaboradores.
ResponderBorrarGracias por comentar Efraín. De hecho puedes ver mas trucos de nuestra pagina en el siguiente link: Trucos informáticos.
BorrarSaludos Cordiales.
si quieren hacer que al iniciar un programa y al cerrarlo de mensajes, acá el comando.
ResponderBorrarSet 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")
Perfecto el truco me encanta. Pero tengo un inconveniente ¿como ago para saber a que hora y dia se abrira y se serrara?
ResponderBorrarEl 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.
BorrarTambié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.