How Change the language

[SandelPerieanu]

;409 = English

;410 = Italian

Local $O_SPEECH = ObjCreate ("SAPI.SpVoice")

$VOICE = $o_speech.GetVoices ("", "Language=410").Item (0)

ConsoleWrite($voice.GetAttribute ("Language") & @CRLF)

i tried to change the language, but don't work!

Why?

I really need this!

please help me!

[BigDod]

;409 = English

;410 = Italian

Local $O_SPEECH = ObjCreate ("SAPI.SpVoice")

$VOICE = $o_speech.GetVoices ("", "Language=410").Item (0)

ConsoleWrite($voice.GetAttribute ("Language") & @CRLF)

i tried to change the language, but don't work!

Why?

I really need this!

please help me!

Here is a script I downloaded a while ago. It may help you.

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler 

_TalkOBJ('This is auto it beta speaking.', 1)
_TalkOBJ('This is auto it beta speaking.', 2)
_TalkOBJ('This is auto it beta speaking.', 3)

;voice params:
;
;1 - Microsoft Mary
;1 - Microsoft Sam
;3 - Microsoft Mike

Func _TalkOBJ($s_text, $s_voice = 3)
    Local $o_speech = ObjCreate ("SAPI.SpVoice")
        Select
            Case $s_voice == 1
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mary", "Language=409").Item(0)
            Case $s_voice == 2
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mike", "Language=409").Item(0)
            Case $s_voice == 3
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Sam", "Language=409").Item(0)
        EndSelect
    $o_speech.Speak ($s_text)
    $o_speech = ""
EndFunc ;==>_TalkOBJ

; This is my custom error handler 
Func MyErrFunc() 
   $HexNumber=hex($oMyError.number,8) 
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
               "Number is: " & $HexNumber & @CRLF & _
               "Windescription is: " & $oMyError.windescription ) 

   SetError(1); something to check for when this function returns 
Endfunc

I did not write this but I cant remember who did.