Jump to content

This site uses cookies. By continuing to browse the site you are agreeing to our use of cookies. Find out more here. X
X


Photo

How Change the language


  • Please log in to reply
1 reply to this topic

#1 SandelPerieanu

SandelPerieanu

    Prodigy

  • Active Members
  • PipPipPip
  • 179 posts

Posted 06 January 2006 - 01:43 PM

;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!







#2 BigDod

BigDod

    The Mayor of Mirth

  • Jokers
  • 8,643 posts

Posted 06 January 2006 - 02:01 PM

;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.
Plain Text         
$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.

Time you enjoyed wasting is not wasted time ......T.S. Elliot

Suspense is worse than disappointment................Robert Burns

God help the man who won't help himself, because no-one else will...........My Grandmother

Get Beta versions Here Get latest SciTE editor Here AutoIt 1-2-3 by Valuater - A great starting point.BigDod2.gifbd1.png





0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users