SENDKEYS Win32 API Constants

[SMcNeill]

OR... Use this little code to quickly get the value of your keys:

Code: (Select All)

$If WIN Then
    Declare Library 'function is already used by QB64 so "User32" is not required
        Function GetKeyState% (ByVal vkey As Long)
        Function GetAsyncKeyState% (ByVal vkey As Long)
    End Declare
$End If

_Delay .25
Cls

Do
    For i = 1 To 254
        If GetAsyncKeyState(i) Then Print "Keycode ="; i
    Next
    While _MouseInput: Wend
    _Delay .25
Loop