[Tutorial] Spracherkennung in AutoIt (WinXP)

Einleitung
F�r l�ngere Zeit suchte Ich verzweifelt nach einer M�glichkeit, einem AutoIt Skript �ber ein Headset m�ndliche Befehle zu erteilen. Ich wollte wenn m�glich nicht auf �berteuerte zus�tzliche Programme wie z.B. "Dragon Naturally Speaking" zur�ckgreifen, und hatte auch standartm��ig auf Win XP keine windowseigene Spracherkennung. Nachdem mir mehrmals in verschiedenen Skriptercommunitys versichert wurde, dass so etwas nicht m�glich sei, wurde Ich durch Zufall in [Only registered and activated users can see links. Click Here To Register...] f�ndig. Es ist n�mlich sehr wohl m�glich und funktioniert sehr gut.

Das braucht man:
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

So funktioniert es:
Zuerst einmal m�sst ihr das Microsoft Speech SDK installieren.
Ab dann k�nnt ihr die das oben verlinkte Script wie gewohnt in jedes andere Skript einbinden:

Code:

#include <SAPIListBox.au3>

Die SAPIListBox.au3 erm�glicht es euch dann in erster Linie, in eure GUI eine spezielle "SAPI"-ListBox einzubauen. Diese unterscheidet sich optisch nicht von der normalen ListBox, ist jedoch Voice sensitive. Sie makiert wenn aktiviert automatisch (durch Zugriff auf das Microsoft Speech SDK) denjenigen ihrer Eintr�ge, welchen Sie geh�rt zu meinen glaubt. Zun�chst braucht ihr daf�r eine GUI, in welche ihr includen k�nnt:

Code:

#include <GuiConstantsEx.au3>
[COLOR="Red"]#include <SAPIListBox.au3>[/COLOR]


$fester = GUICreate("Beispiel zur Spracherkennung",400,300)

GUISetState()

While 1
	$msg = GUIGetMsg()

	
	switch $msg
	case $GUI_Event_Close
		ExitLoop
	EndSwitch
WEnd

Nun m�sst ihr in diese GUI die erw�hnte SAPIListBox einbauen:

Code:

$fester = GUICreate("Beispiel zur Spracherkennung",400,300)
[COLOR="Red"]$wortbox = _GUICtrlSAPIListBox_Create(10, 10, 380, 280)[/COLOR]

Nun m�sst ihr noch angeben, welche W�rter die SAPIListBox erkennen soll, und sie enabeln (damit sie anf�ngt darauf zu achten was gesagt wird):

Code:

#include <GuiConstantsEx.au3>
#include <SAPIListBox.au3>

[COLOR="Green"]dim $msg, $wortbox_array[5] = ["Up","Down","Left","Right","Wait"][/COLOR]

$fester = GUICreate("Beispiel zur Spracherkennung",400,300)
$wortbox = _GUICtrlSAPIListBox_Create(10, 10, 380, 280)

GUISetState()

[COLOR="Red"]_GUICtrlSAPIListBox_EnableSpeech($wortbox, 1)[/COLOR]
[COLOR="Green"]_GUICtrlSAPIListBox_AddArray($wortbox, $wortbox_array)[/COLOR]

Und ganz zum Schluss m�sst ihr noch angeben, was passieren soll, wenn die SAPIListBox ein bestimmtes Wort erkannt hat (in diesem Fall die Maus bewegen:

Code:

While 1
	$msg = GUIGetMsg()
	[COLOR="Red"]$mausposition = MouseGetPos()[/COLOR]
	
	[COLOR="Red"]if _GUICtrlSAPIListBox_CurSelChanged($wortbox) = True Then
		
		if StringCompare(_GUICtrlSAPIListBox_GetText($wortbox), "Up") = 0 Then
			MouseMove($mausposition[0],$mausposition[1]-50)
		EndIf
		
		if StringCompare(_GUICtrlSAPIListBox_GetText($wortbox), "Down") = 0 Then
			MouseMove($mausposition[0],$mausposition[1]+50)
		EndIf
		
		if StringCompare(_GUICtrlSAPIListBox_GetText($wortbox), "Left") = 0 Then
			MouseMove($mausposition[0]-50,$mausposition[1])
		EndIf
		
		if StringCompare(_GUICtrlSAPIListBox_GetText($wortbox), "Right") = 0 Then
			MouseMove($mausposition[0]+50,$mausposition[1])
		EndIf
	EndIf[/COLOR]

	
	switch $msg
	case $GUI_Event_Close
		ExitLoop
	EndSwitch
WEnd

Umfangreiche Beispielskripts findet ihr im oben verlinkten Thread.

UDF Befehle

Spoiler

Troubleshooting & FAQ
Q: Funktioniert das ganze auch f�r Vista und/oder Win7?
A: Dem englischen Forum nach nicht - ich habe es aber auch noch nicht getestet.

Q: Obwohl ich das Microsoft Speech SDK installiert habe, bekomme ich sobald Ich mein Skript ausf�hren m�chte einen "Could not create SAPI List Box control. Ensure you have installed the Microsoft Speech SDK 5.1..." Error?!
A: Man muss in diesem Fall von Hand die "SAPI51ListBox.ocx" Active X control auf seinem Computer registrieren. Dazu klickt man auf "Start" > "Ausf�hren", gibt den Pfad zur .ocx Datei an ("C:\Programme\Microsoft Speech SDK 5.1\Bin\SAPI51ListBox.ocx") und dr�ckt OK. Nun sollte es funktionieren.

Credits
Die UDF (SAPIListBox.au3) sowie teile des Tutorials stammen von seangriffin von autoitscript.com. Ich habe nur zusammengefasst und auf Deutsch �bersetzt.