Sie sind vermutlich noch nicht im Forum angemeldet - Klicken Sie hier um sich kostenlos anzumelden Impressum 
Sie können sich hier anmelden
Dieses Thema hat 11 Antworten
und wurde 146 mal aufgerufen
 Fragen zur Anwendung
Eisvogel Offline



Beiträge: 135

06.11.2022 20:52
Tasten gedrückt halten per Sprache Zitat · Antworten

Hallo liebe Profis,

Ich suche eine Möglichkeit, mit Sprachbefehlen mehrere aufeinanderfolgende Dateien im Windows Explorer zu markieren um sie später mit einem Klick zu öffnen – in meinem Fall mehrere PDF Dokumente. Leider habe ich in der Dokumentation und auch hier im Forum nichts passendes gefunden – könnt ihr mir helfen?

Vielen Dank
Eisvogel

Dragon NaturallySpeaking 15, Windows 10, Intel I5 mit 3,9 MHz

P.Roch Offline



Beiträge: 1.232

07.11.2022 15:14
#2 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Eine einfache Möglichkeit könnte so aussehen:
Befehl: <1bis10> Zeilen markieren
Skript:

Sub Main
Sendkeys "+{Down " & ListVar1 + "}"
End Sub

Gruß, Pascal

Eisvogel Offline



Beiträge: 135

08.11.2022 12:56
#3 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Hallo, funktioniert leider nicht wie gedacht. Wenn ich zum Beispiel fünf Zeilen markieren sage, springt die Markierung im Explorer entweder in die oberste oder untersten Zeile.

Eigentlich wird es mir reichen wenn ich durch Sprache die Shift oder Steuerung Taste gedrückt halten könnte, während ich mit der Maus markiere.
Viele Grüße
Eisvogel

Dragon NaturallySpeaking 15, Windows 10, Intel I5 mit 3,9 MHz

P.Roch Offline



Beiträge: 1.232

08.11.2022 17:24
#4 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Na gut, noch eine Versuch:

Umschalttaste drücken (und damit festhalten):
Befehl: Umschalt ein
Skript:
Declare Function keybd_event Lib "user32.dll" (ByVal vKey As _
Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Sub Main
' Taste gedrückt halten
keybd_event(16,0,0,0)
End Sub

Umschalttaste loslassen
Befehl: Umschalt aus
Skript:
Declare Function keybd_event Lib "user32.dll" (ByVal vKey As _
Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Sub Main
' Umschalttaste loslassen
keybd_event(16,0,2,0)
End Sub

Der Code für die Strg-Taste ist 17.
Denken Sie daran, die entsprechenden Zugriffstasten in den Optionen zu deaktivieren (Einträge löschen)

Gruß, Pascal

Eisvogel Offline



Beiträge: 135

08.11.2022 17:42
#5 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Danke, mit der Skriptsprache kenne ich mich noch nicht so gut aus. Kann ich die Skriptbeispiele von Ihnen so in den Skripttor übernehmen um einen neuen Befehl zu erstellen?

Dragon NaturallySpeaking 15, Windows 10, Intel I5 mit 3,9 MHz

P.Roch Offline



Beiträge: 1.232

08.11.2022 18:34
#6 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Ja, genau so übernehmen.

Eisvogel Offline



Beiträge: 135

08.11.2022 19:41
#7 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Bitte entschuldigen Sie meine Blackout von eben, ich hatte das Skript falsch eingegeben. Die erste Version funktioniert fast perfekt. Das Skript markiert allerdings nur eine darunterliegende Zeile, egal ob ich zwei Zeilen markieren oder fünf Zeilen markieren sage. Was muss geändert werden?
Grüße Eisvogel

Dragon NaturallySpeaking 15, Windows 10, Intel I5 mit 3,9 MHz

P.Roch Offline



Beiträge: 1.232

09.11.2022 10:20
#8 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Kleine Änderung des ersten Skriptes, da die Zeilen zusätzlich zur ersten markiert werden, also eine zuviel:

Sub Main
Dim Z As String
Z = CStr(CInt(ListVar1)-1)
Sendkeys "+{Down " & Z + "}"
End Sub

Das Skript funktioniert, wenn die erste der auszuwählenden Dateien (Zeilen) auch wirklich ausgewählt ist.
Gruß, Pascal

Eisvogel Offline



Beiträge: 135

09.11.2022 12:30
#9 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Das Skript funktioniert leider immer noch nicht so ganz. Es wird leider wie vorher nur die auf die markierte Zeile folgende markiert. Grüße, Dirk

Dragon NaturallySpeaking 15, Windows 10, Intel I5 mit 3,9 MHz

Eisvogel Offline



Beiträge: 135

09.11.2022 23:17
#10 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Wenn ich so mein beschränktes Informatikwissen zurate ziehe, glaube ich dass man in einer Form eine Schleife braucht (?) Welche Skriptsprache benutzt der Drache eigentlich?

Dragon NaturallySpeaking 15, Windows 10, Intel I5 mit 3,9 MHz

P.Roch Offline



Beiträge: 1.232

10.11.2022 12:31
#11 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Natürlich geht's auch mit einer Schleife. Ersetzen Sie die Sendkeys-Zeile z.B. durch

For i=1 To CInt(ListVar1)-1
SendKeys "+{Down}"
Next

Dragon verwendet WinWrap-Basic.

Eisvogel Offline



Beiträge: 135

10.11.2022 18:17
#12 RE: Tasten gedrückt halten per Sprache Zitat · Antworten

Hallo Pascal, danke für das Skript. Mit der Schleife funktioniert es perfekt.

Dragon NaturallySpeaking 15, Windows 10, Intel I5 mit 3,9 MHz

Ähnliche Themen Antworten/Neu Letzter Beitrag⁄Zugriffe
Letzte Rettung
Erstellt im Forum Dies und Das von Dioskur
0 19.11.2022 16:14
von Dioskur • Zugriffe: 78
Buchstabieren mit dem SpeechMike
Erstellt im Forum Berichte und Tipps von Marius_
1 23.01.2022 11:47
von P.Roch • Zugriffe: 283
Arbeiten mit Serverprofilen
Erstellt im Forum Fragen zur Anwendung von schwarzweiß92
1 27.12.2021 09:44
von P.Roch • Zugriffe: 157
Excel-Makros ansprechen
Erstellt im Forum Fragen zur Anwendung von ChristianBucher
3 10.11.2021 18:21
von P.Roch • Zugriffe: 141
Mehrfachtexterkennung
Erstellt im Forum Fragen zur Anwendung von Vieta
5 05.10.2021 15:54
von P.Roch • Zugriffe: 227
Diktierfenster öffnet sich bei "d"
Erstellt im Forum Fehlermeldungen von Astrid Grams
1 17.07.2021 10:05
von P.Roch • Zugriffe: 236
Befehle für Betriebssystem und Anwendungen ausschalten
Erstellt im Forum Fragen zur Anwendung von Joschka
5 03.06.2021 12:49
von Marius_ • Zugriffe: 279
Dragon Shortcut
Erstellt im Forum Fragen zur Anwendung von Rainer Groth
1 02.05.2021 20:44
von rc.otto • Zugriffe: 308
RØDE NT USB-MIni als Mikrofon
Erstellt im Forum Geräte und Hardware von a.wagner
6 23.08.2022 14:43
von a.wagner • Zugriffe: 689
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz