Как я могу отправить правильный ключ Windows с помощью продвинутых сценариев Dragon NaturallySpeaking?

Question

Как я могу отправить правильный ключ Windows с помощью продвинутых сценариев Dragon NaturallySpeaking?

В чем разница между командами SendKeys, SendSystemKeys или SendDragonKeys? это кажется невозможным с SendKeys, SendSystemKeys или же SendDragonKeys,

Answer 1

Нажатие правой клавиши Windows:

' From https://knowbrainer.com/forums/forum/messageview.cfm?catid=3&threadid=3032
' Author: monkey8
' Tested with Dragon NaturallySpeaking 12.5 with Windows 7 SP1 x64 Ultimate
Declare Function keybd_event Lib "user32.dll" (ByVal vKey As _
Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Const VK_RWIN = 92
Sub Main
keybd_event(VK_RWIN,0,0,0)
'if you want to send a key while holding down the Windows key then insert the code here
keybd_event(VK_RWIN,0,2,0)
End Sub

Нажатие левой клавиши Windows:

' From https://knowbrainer.com/forums/forum/messageview.cfm?catid=3&threadid=3032
' Author: monkey8
' Tested with Dragon NaturallySpeaking 12.5 with Windows 7 SP1 x64 Ultimate
Declare Function keybd_event Lib "user32.dll" (ByVal vKey As _
Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Const VK_LWIN = 91
Sub Main
keybd_event(VK_LWIN,0,0,0)
'if you want to send a key while holding down the Windows key then insert the code here
keybd_event(VK_LWIN,0,2,0)
End Sub

Полезные ссылки для кодов клавиатуры: Список кодов виртуальных клавиш ( зеркало)

Answer 2

Обратите внимание Declare вещи должны быть НАД Sub Mainв вашем сценарии. Тогда вот как это будет выглядеть, если вы используете клавишу-модификатор:

Declare Function keybd_event Lib "user32.dll" (ByVal vKey As Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Const VK_LWIN = 91

Sub Main

keybd_event(VK_LWIN,0,0,0)
SendSystemKeys "{Right}"
keybd_event(VK_LWIN,0,2,0)