I'm using this code to get the keyboard key statue when doing something to identify if Ctrl or Shift or Alt key is pressed when calling command :
Code: Select all
Dim ModifierKey
GetKeyboardState , ModifierKey
if CBool(CByte(1) And CByte(ModifierKey)) Then
'--------------------------------------------------------
Logmessage "Shift"
ElseIf CBool(CByte(2) And CByte(ModifierKey)) Then
'--------------------------------------------------------
Logmessage "Ctrl"
ElseIf CBool(CByte(4) And CByte(ModifierKey)) Then
'--------------------------------------------------------
Logmessage "Alt"
Else
'--------------------------------------------------------
Logmessage "Nothing"
End If