Talk function?

[i542 1]

Hello!

Can someone tell me how to script can talk :"> (this is my first post, from Croatia). Please post an example with speech function.

THANKS!

i542.

[GaryFrost 12]

This uses the beta

$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 believe if you search the scripts and scraps there is some scripts that use the release version, but requires writing/reading file(s).

Gary

[i542 1]

Thanks!

i542.

[Valuater 112]

This uses the beta

$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 believe if you search the scripts and scraps there is some scripts that use the release version, but requires writing/reading file(s).

Gary

<{POST_SNAPBACK}>

maybe 1,2,3

1 - Microsoft Mary
;1 - Microsoft Sam
;3 - Microsoft Mike

8)

[GaryFrost 12]

more like

;1 - Microsoft Mary

;3 - Microsoft Sam

;2 - Microsoft Mike

[i542 1]

Is this importrant or not? If is that only a comment...

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

i542.

P.S. If is error in post, sorry.

Edited July 7, 2006 by i542

[GaryFrost 12]

not, like you said was just a comment

[i542 1]

In windows 98 not works.

In windows XP works.

If I install SAPI 5.0 on 98 (my current version is 4.0), will be works?

I have 2 windows on 1 computer (crazy but it's true).

i542.

P.S. If is error in post, sorry.

[GaryFrost 12]

can't help you with win98 all i have is win xp at the moment.

[i542 1]

OK.Where I can find a Mary and Mike voices. With SAPI 4 comes only Sam.

And one more question: How to create a quote in message?

i542.

[GaryFrost 12]

you should be able to get more voices i believe from microsoft, you'll have to search there.

[i542 1]

Thank you.

i542.

[dnsi 0]

I have 3 systems before:

WIN 98

WIN 2000

WIN XP

and im thinking about WIN 2005.

[Simucal 1]

The microsoft voices got to me so bad I invested in Audrey, a british accented voice from At&t's natural voice lab. Still isnt perfect but worlds apart from what windows comes with.

[AutoItKing 0]

I believe that was made by erifash and enhanced by someone else. Correct me if I'm wrong.

[i542 1]

Microsoft's voices don't speaks text clear enough...

There was so many time lost from my first post...ah...

i542