SAPI.SpVoice to Greek

[conjure]

Hi i found this code to make my pc speak,so i searched a way to make it speak greek,and i found a vb code that works, but i dont know how to make it work for MS.Can someone help me please?

Code: Select all

VBSTART

   Sub Speak(text)
   Dim Talk
   Set Talk = CreateObject("SAPI.SpVoice")
   Talk.Speak text
   End Sub

VBEND

SpVoice voice = new SpVoice();
voice.Speak(
"<speak version='1.0' xmlns='http://www.w3.org/2001/10/synthesis' xml:lang='el-GR'>"
+ "Να ενα κειμενο"
+ "</speak>",
SpeechVoiceSpeakFlags.SVSFlagsAsync|SpeechVoiceSpeakFlags.SVSFIsXML);
voice.WaitUntilDone(30000);

[Marcus Tettmar]

Try:

Code: Select all

VBSTART

   Sub Speak(text)
   Dim Talk
   Set Talk = CreateObject("SAPI.SpVoice")
   Talk.Speak text
   End Sub

VBEND

VBRun>Speak,Hello World

[conjure]

Marcus do you know if its possible to add the Greek language?
like the
xml:lang='el-GRon
in the sample i posted above?

[Marcus Tettmar]

Like this I think:

Code: Select all

VBSTART

   Sub Speak(text)
     Dim Talk
     Set Talk = CreateObject("SAPI.SpVoice")
     Talk.Voice = Talk.GetVoices("Name=Microsoft Mike", "Language=408").Item(0)
     Talk.Speak text
   End Sub

VBEND

See:

https://msdn.microsoft.com/en-us/librar ... s.85).aspx
https://msdn.microsoft.com/en-us/librar ... e.14).aspx

[CyberCitizen]

Anyway To Adjust The Speed?

[Marcus Tettmar]

https://msdn.microsoft.com/en-us/librar ... s.85).aspx

[Marcus Tettmar]

https://msdn.microsoft.com/en-us/librar ... s.85).aspx

[CyberCitizen]

Code: Select all

https://msdn.microsoft.com/en-us/library/ms723606%28v=vs.85%29.aspx

URL Broken, updated.

Grr URL won't post with brackets.

[CyberCitizen]

I don't know VB, are you able to put it into the MS command for me?

Code: Select all

VBSTART
Sub Speak(text)
 Dim Talk
 Set Talk = CreateObject("SAPI.SpVoice")
 Talk.Speak text
End Sub
VBEND

VBRun>Speak,Hello Keith

[hagchr]

Code: Select all

VBSTART
Sub Speak(text,speed)
 Dim Talk
 Set Talk = CreateObject("SAPI.SpVoice")
 Talk.Rate=speed
 Talk.Speak text
End Sub
VBEND

Let>VBS_TIMEOUT=60000
//Rate between -10 and 10
VBRun>Speak,Hello Keith,5