A common difficulty and often asked question here in the UK is regarding accessing system tray icons by voice. We use a solution based on the following not so simple script, as usual I am reliant on one of you guys testing the script in German and perhaps renaming the commands appropriately (many thanks).

Command Name: GO to system tray

'script by LindsayAdam 2011 www.pcbyvoice.com
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
Alias "SetForegroundWindow" (ByVal Hwnd As Long)As Long
Sub Main
SetForegroundWindow(FindWindowEx (FindWindow ("Shell_TrayWnd","" ) ,0,"TrayNotifyWnd","" ))
End Sub

Once you are there then just move left and right in the usual way by voice and you will see each system tray icon being highlighted as it moves. Then use the following inbuilt commands to access the icons as follows:

to right click on an icon "press shift key function ten"
to left click on an icon "press space"
to double click on an icon "press enter"

You can of course then make your scripts as complicated as you like and you then end up with something like this:

system tray

Lindsay
www.pcbyvoice.com

Hallo zusammen,

eine oft gestellte Frage in Großbritannien ist, wie man auf den Infobereich (der Bereich neben der Uhr) in der Task-Leiste zugreifen kann.
Hierzu hat Lindsay ein kurzes Skript zur Verfügung gestellt, welches so auch in Deutsch funktioniert.

Als Befehlsnamen würde ich im Deutschen vorschlagen: gehe zum Infobereich

'script by LindsayAdam 2011 www.pcbyvoice.com
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
Alias "SetForegroundWindow" (ByVal Hwnd As Long)As Long
Sub Main
SetForegroundWindow(FindWindowEx (FindWindow ("Shell_TrayWnd","" ) ,0,"TrayNotifyWnd","" ))
End Sub

Sobald man sich im Infobereich befindet, kann man nach links und rechts wie gewohnt per Sprache das nächste Symbol hervorheben.
Dann kann man folgen Aktionen durchführt:

linksklick auf das Symbol: "drück Leertaste"
rechtsklick: "drück Umschalttaste Funktionstaste 10"
doppelklick: "drück enter"

Man kann diese Skript natürlich erweitern, so dass es wie folgt aussieht:

Infobereich

Ein Beispiel für einen Rechtsklick im Infobereich hat Lindsay in einem anderen Beitrag bereits zur Verfügung gestellt:

http://dragon-spracherkennung.forumprofi...ng-scripts.html

mit freundlichen Grüßen

Jörg

Manchmal gibt es Probleme bei diesem Kommando. Um diese zu vermeiden einfach eine Zeile am Anfang der Skriptes hinzufügen, um die Maus über den Hilfebereich zu positionieren. Z.B.

SetMousePosition 2, 0, 50
…
Rest des Skriptes

Mit freundlichen Grüßen

Jörg