#17 RE: TIPP: Übersicht über die gängigsten Befehle (Update 12.5.14)
Thread geschlossen
... für die Programmsteuerung in Programmen, die mit Dragon NaturallySpeaking nicht zusammenarbeiten und auch keine alternative Möglichkeit zur Steuerung über Tastaturkürzel (shortcut) verfügen (zum Beispiel viele Antivirus-Programme wie Kaspersky oder ESET NOD, lassen sich mit dem Befehl "SetMousePosition" beliebige Schaltflächen mithilfe ihrer Position auf dem Desktop aufrufen beziehungsweise aktivieren.
#18 RE: TIPP: Übersicht über die gängigsten Befehle (Update 12.5.14)
Thread geschlossen
Es gehört wohl zu den – eher traurigen – Pflichten eines Moderators, darauf hinzuweisen, dass hier ein (offensichtlicher) Kategorienfehler vorliegt: Dieser Thread behandelt(e) nützliche und gängige Sprachbefehle, also, in einfacher Sprache und John Langshaw Austin abwandelnd gesagt: Dinge, die man (in Dragon) mit Worten tun kann.
Die Ansage "SetMousePosition" gehört zu beidem wahrlich nicht (versuchen Sie das mal ins Mikrofon zu sprechen). Es handelt sich nicht um einen Sprachbefehl, sondern um einen "Programmierbefehl" innerhalb der Dragon-Skriptsprache. Dieser kann in einem Skript verwendet werden, welches man dann wiederum per Sprachbefehl abrufen kann. Der Skriptbefehl "SetMousePosition" war hier schon – und zuletzt vor gar nicht langer Zeit – verschiedentlich Gegenstand der Diskussion, wie eine einfache Suche im Forum belegt oder der nachfolgende Link (sowie die dort weiter verlinkten Beiträge):
#19 RE: TIPP: Übersicht über die gängigsten Befehle (Update 12.5.14)
Thread geschlossen
Herzlichen Dank für den Hinweis,
tatsächlich geht es um die Weiterentwicklung des Befehls "SetMousePosition" bzw. seine Integration in einen Befehl, der auf dem Desktop die Position des Mauszeigers ermittelt und an dieser Stelle einen Maus-Links-Click folgen läßt. Eine einschlägige Bezeichnung ist uns bisher noch nicht untergekommen, unser Arbeitstitel lautet jedenfalls "Makro Mausposition". Damit lassen sich auch in Programmen, die eine Sprachsteuerung von Seiten Dragon NaturallySpeaking weder direkt noch mit Tastaturkombinationen unterstützen, Steuerbefehle mit dem Drachen bewerkstelligen. Zu den gängigen Befehlen gehört diese Variante vielleicht nicht, zu denen mit zentraler Bedeutung allerdings schon (jedenfalls für User mit entsprechenden Problemkandidaten, zur Zeit beispielsweise fast alle Antivirus-Programme).
Mit Blick auf die gewünschte Ökonomie im Forum sollte nicht gleich ein eigener Thread für Befehle mit hoher Zentralität aufgemacht werden, ansonsten Beitrag bitte entsprechend verschieben : -)
Als Skript sieht das dann bei mir wie folgt aus:
Option Explicit Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Type POINTAPI x As Long y As Long End Type Declare Function GetCursorPos Lib "user32" _ Alias "GetCursorPos" (lpPoint As POINTAPI) As Long Declare Function GetWindowRect Lib "user32" _ Alias "GetWindowRect" (ByVal hwnd As Long, _ lpRect As RECT) As Long Declare Function GetForegroundWindow& Lib "user32" () Function GetWinCurPos(hwnd As Long) As POINTAPI Dim pt As POINTAPI Dim wRect As RECT Dim result As POINTAPI Dim EngineControl As DgnEngineControl GetCursorPos pt GetWindowRect hwnd, wRect result.x = pt.x - wRect.Left result.y = pt.y - wRect.Top GetWinCurPos = result End Function Sub Main Dim hwnd As Long Dim result As POINTAPI Dim clip As String hwnd = GetForegroundWindow result = GetWinCurPos(hwnd) clip = "SetMousePosition 1," & result.x & _ "," & result.y EngineControl.DlgShow(dgndlgNewCommandWizard, 0, , 0) Wait 0.4 SendKeys"%y" Wait 0.2 SendKeys"{Down 3}{Tab 2}" Wait 0.2 SendKeys clip Wait 0.1 SendKeys"~Wait 0.2~ButtonClick 1, 1" Wait 0.1 SendKeys "%z" Wait 0.1 SendKeys "%n" End Sub
Sofern die Aktion einer anderen Maustaste gewünscht wird, muß die sechsletzte Zeile (ButtonClick) entsprechend angepaßt werden (es sollen ja keine Eulen nach Athen getragen werden).
MhG Sandra
PostScript_ Die Autorenschaft stammt unserer Erinnerung nach ursprünglich aus dem befreundeten Knowbrainer-Forum, der Link ist bei uns aber leider verschollen.
#20 RE: TIPP: Übersicht über die gängigsten Befehle (Update 12.5.14)
Thread geschlossen
ZitatDie Autorenschaft stammt unserer Erinnerung nach ursprünglich aus dem befreundeten Knowbrainer-Forum, der Link ist bei uns aber leider verschollen.
Bevor das noch schlimmer wird mit Ihrem Eifer an falscher Stelle werde ich den Thread jetzt zumachen, weil zu dem Thema nun wirklich alles gesagt ist.
_______________________________________
Dragon Professional 16 auf Windows 10 Pro und Windows 11 SpeechMike Premium (LFH3500); Office 2019 Pro + Office 365 (monatliches Abo) HP ZBook Fury 17 G8 - i7-11800H - 24 MB SmartCache - 32 GB RAM - 1 TB SSD