Ir arriba
Errores? Reportalos!

miércoles, 15 de abril de 2009

[SCRIPT] Hacer hablar al PC

strText = inputbox("Que quieres que diga?","Script Para hacer hablar al PC")
set objVoice = CreateObject ("SAPi.spVoice")
ObjVoice.speak strText



Copiar ese Codigo a un archivo de texto

Guardar Como...

script.vbs

Opcion: Todos los Archivos

Guardar

Disfruten =)

12 comentarios:

  1. copio todo? o copio solo desde set? porque no me dice naa

    ResponderEliminar
  2. strText = inputbox("Que quieres que diga?","Script Para hacer hablar al PC")
    set objVoice = CreateObject ("SAPi.spVoice")
    ObjVoice.speak strText

    ResponderEliminar
  3. eso no mas se copia, luego lo metes en un wordpad, y lo guardas como un .vds

    ResponderEliminar
  4. Este comentario ha sido eliminado por el autor.

    ResponderEliminar
  5. oe nada lo pongo en wordpad y lo guardo como script.vds y me sale el word dime pzz

    ResponderEliminar
  6. Te falta poner "Todos los Archivos", es la bandejita que esta abajo de donde le pones el nombre al archivo...

    ResponderEliminar
  7. ya pero en wordpad no hay Todos los archivos, en notepad si pero lo abro con que? porque lo abro con reproductores y no dice naa mmm toncs dime pz quiero que diga que pradel es un ...

    ResponderEliminar
  8. a si, tienes razon, xDDDD, es notepad, XDD me confunde aveces xD

    ResponderEliminar
  9. ...................... plop!!!!!!! igual con que lo abro?!?!?!?!?!?

    ResponderEliminar
  10. SE COMPILA SOLOO (Solo si lo guardas con .vds)

    ResponderEliminar