[StringRight] Klappt das Programm nicht? Oder bin ich einfach nur dumm? :D

[autoit]

Global $voice = ObjCreate("Sapi.SpVoice")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Sprechmodul = GUICreate("Sprich!", 304, 248, 192, 124)
$Sprich = GUICtrlCreateEdit("", 8, 40, 140, 100)
GUICtrlSetTip ($Sprich,"Gib hier den zu sprechenden Text ein")
$Volume = GUICtrlCreateEdit("100", 192, 8, 89, 49)
GUICtrlSetTip ($Volume,"Gib hier die Lautstärke ein")
$Speed = GUICtrlCreateEdit("0", 192, 72, 89, 49)
GUICtrlSetTip ($Speed,"Gib hier die Geschwindigkeit an")
$BSprechen = GUICtrlCreateButton("Sprich!", 50, 160, 100, 60)
GUICtrlSetTip ($BSprechen, "Spricht den eingegebenen Text")
$BSprechenR = GUICtrlCreateButton ("!hcirpS", 160,160,100,60)
$Help = GUICtrlCreateButton("Hilfe", 0, 0, 57, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BSprechen
Speak (GUICtrlRead($Sprich),GUICtrlRead ($Speed),GUICtrlRead ($Volume))
Case $Help
Run ("Notepad.exe")
Sleep (1000)
Send ("Tipp: Gehe einfach über die Kästchen/Buttons. Dort steht eine kleine Anleitung")
Send ("{Enter}")
Send ("{Enter}")
Send ("Bsp für Geschwindigkeit: 0.5 - ACHTUNG: Der Punkt ist Wichtig.")
Send ("{Enter}")
Send ("Kommas gibt es hier nicht.")
Sleep (250)
Case $BSprechenR
$Text = GUICtrlRead ($Sprich)
StringRight (""&$Text,90000000)
Speak ($Text, GUICtrlRead ($Speed), GUICtrlRead ($Volume))
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Speak($Text, $Rate, $Vol)
$voice.Rate = $Rate
$voice.Volume = $Vol
$voice.Speak ($Text)
EndFunc;==>Speak

[/autoit]