[SRC] Computer_Talk [by *PsYkE1*]

[Psyke1]

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 (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *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 (vb) [Seleccionar] Expandir


   Call Computer_Talk("hello psyke1") ' Velocidad predeterminada 0

Código (vb) [Seleccionar] Expandir


   Call Computer_Talk("hello psyke1", 5) ' Más rapido(valor maximo 10)

Código (vb) [Seleccionar] Expandir


   Call Computer_Talk("hello psyke1", -7) ' Más lento (valor minimo -10)

Espero que os haya gustado...

Salu2!

[Maik33]

Me gusto, buena PsYke1, pero cuando pongo la velocidad negativa (-7) me da desbordamiento. Aun asi buena

[BlackZeroX]

Hacer que tu ordenador te hable

Esto estara guapo para quienes carecen de Vida social REAL!¡.

Dulce Infierno Lunar!¡.

[Psyke1]

JAJJAJAJJAJAJAJAAJA
Ahora por tu culpa nadie lo usara!  

Salu2!

[Psyke1]

Me gusto, buena PsYke1, pero cuando pongo la velocidad negativa (-7) me da desbordamiento. Aun asi buena

Ahora esta corregido, es porque en la llamada puse Byte en vez de Long, y Byte no acepta numeros negativos...
Me alegro de que te guste...

Salu2!

[ssccaann43 ©]

PsyKE1 te estas aplicando... Buen source..!

Hacer que tu ordenador te hable

Esto estara guapo para quienes carecen de Vida social REAL!¡.

Dulce Infierno Lunar!¡.

Aqui deben existir algunos cuantos... LOL

[n3fisto]

PsyKE1 te estas aplicando... Buen source..!

Hacer que tu ordenador te hable

Esto estara guapo para quienes carecen de Vida social REAL!¡.

Dulce Infierno Lunar!¡.

Aqui deben existir algunos cuantos... LOL

jajajajjaja esta bien para mi no xd jajajjajajajaja
Mentira .... bueno code sencillo pero bueno

[hunter18]

Yo estaba buscando un programa asi para aprender palabras y textos en ingles asi como lo hace el traductor de google el cual tiene un limite de la palabras que convierte a voz.

La voz del cabron windows xp no se entiende mucho o al menos a mi me rompe el oido.

Alguien conoce algun programa que se asimile al traductor de google?, igual esta bueno.

[n3fisto]

Yo estaba buscando un programa asi para aprender palabras y textos en ingles asi como lo hace el traductor de google el cual tiene un limite de la palabras que convierte a voz.

La voz del cabron windows xp no se entiende mucho o al menos a mi me rompe el oido.

Alguien conoce algun programa que se asimile al traductor de google?, igual esta bueno.

Loqueno o sodelcost

[zinfinal]

nos ayudara cuando estemos solos