Speak, my first real script

[Koda]

How come this doesn't work? I'm getting an error that says $voice is not yet defined. What should I do?

speak.au3

[BigDod]

My example

;Speak("text to speak", 1-10 rate of speaking,
;0 - 100 Colume
$input=InputBox("Text to Speak", "Type Text")
Dim $voice = ObjCreate("Sapi.SpVoice")
Func Speak($Text, $Rate, $Vol) 
$voice.Rate = $Rate
$voice.Volume = $Vol
$voice.Speak($Text)
EndFunc
Speak($input, 1, 100)

[Koda]

I like that, but is there any way to have it so an inputbox does not come up? Meaning that you edit what is spoken in the script, and it automatically says it?

[BigDod]

;Speak("text to speak", 1-10 rate of speaking,
;0 - 100 Colume
$input="hello"
Dim $voice = ObjCreate("Sapi.SpVoice")
Func Speak($Text, $Rate, $Vol) 
$voice.Rate = $Rate
$voice.Volume = $Vol
$voice.Speak($Text)
EndFunc
Speak($input, 1, 100)

Edited October 1, 2006 by BigDod