-
Notifications
You must be signed in to change notification settings - Fork 1
/
WindowsKeyDirection.xml
55 lines (41 loc) · 2.39 KB
/
WindowsKeyDirection.xml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
<?xml version="1.0" encoding="utf-16"?>
<!DOCTYPE MyCommands SYSTEM "http://www.nuance.com/NaturallySpeaking/Support/MyCommands/MyCmds12.dtd">
<MyCommands version="2.0" language="0x809">
<Commands type="global">
<Command name="Windows Key [direction]" group="Custom Learned" enabled="true" states="">
<description></description>
<contents type="SCRIPT">
<![CDATA[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)
Dim stringDirection As String
Select Case UtilityProvider.ContextValue(0)
Case "left"
stringDirection="Left"
Case "right"
stringDirection="Right"
Case "down"
stringDirection="Down"
Case "up"
stringDirection="Up"
End Select
Wait 0.1
SendSystemKeys "{" & stringDirection & "}"
Wait 0.1
keybd_event(VK_LWIN,0,2 ,0)
End Sub
]]>
</contents>
</Command>
</Commands>
<Lists>
<List name="direction">
<Value><![CDATA[down]]></Value>
<Value><![CDATA[left]]></Value>
<Value><![CDATA[right]]></Value>
<Value><![CDATA[up]]></Value>
</List>
</Lists>
</MyCommands>