Hacer que tu ordenador te hable
Bueno investigando por el msdn sobre objetos y demas encontre el ojeto "Sapi.spVoice", el cual nos permite ponerle voz a nuestro ordenador... Algo asi como el loquendo, pero en ingles...
Hice este sencillo procedimiento para que veais un ejemplo:
Código
' //////////////////////////////////////////////////////////////// ' // *Autor: *PsYkE1* (miguelin.majo@gmail.com) // ' // *Podeis agrandar o reducir el codigo, siempre y cuando se // ' // respete la autoria y se me comuniquen esos cambios. // ' // *Agradecimientos a BlackZeroX // ' // *Visita http://foro.rthacker.net // ' //////////////////////////////////////////////////////////////// Option Explicit Public Sub Computer_Talk(ByVal sText As String, Optional ByVal lVelocity As Long = 0) If lVelocity < -10 Or lVelocity > 10 Then Exit Sub Dim oTalkComputer As Object Set oTalkComputer = CreateObject("Sapi.spVoice") If oTalkComputer Is Nothing Then Exit Sub With oTalkComputer .Rate = lVelocity .Speak sText End With Set oTalkComputer = Nothing End Sub
Lo divertido es que podemos regular laa velocidad a nuestro gusto...
Asi unos ejemplos de llamadas:
Código
Call Computer_Talk("hello psyke1") ' Velocidad predeterminada 0
Código
Call Computer_Talk("hello psyke1", 5) ' Más rapido(valor maximo 10)
Código
Call Computer_Talk("hello psyke1", -7) ' Más lento (valor minimo -10)
Espero que os haya gustado...
Salu2!