CapsLock(), InsMode() , NumLock()
Posted: Wed Apr 14, 2021 5:03 am
Hi Robert,
i finally added "XS" to the names of the two new members and the two modified structures. i think that signals that not the original structure declarations are used.
regards
Karl-Heinz
i finally added "XS" to the names of the two new members and the two modified structures. i think that signals that not the original structure declarations are used.
Code: Select all
INTERNAL CLASS Win32
CONST INTERNAL KEYEVENTF_KEYUP := 2 AS INT
CONST INTERNAL VK_INSERT := 45 AS INT
CONST INTERNAL VK_NUMLOCK := 144 AS INT
CONST INTERNAL VK_CAPITAL := 20 AS INT
CONST INTERNAL TYPE_KEYBOARD := 1 AS INT
[DllImport("user32.dll", SetLastError := TRUE)] ;
INTERNAL STATIC METHOD SendInput(nInputs AS DWORD , pInputs AS winInputXS[], cbSize AS LONG ) AS DWORD
[DllImport("user32.dll", SetLastError := TRUE)] ;
INTERNAL STATIC METHOD GetKeyState(nVirtkey AS INT) AS SHORTINT
[StructLayout(LayoutKind.Sequential)];
INTERNAL STRUCTURE winKeyboardInputXS
INTERNAL wVk AS WORD
INTERNAL wScan AS WORD
INTERNAL dwFlags AS DWORD
INTERNAL time AS DWORD
INTERNAL dwExtraInfo AS IntPtr
INTERNAL Unused1XS AS DWORD
INTERNAL UnUsed2XS AS DWORD
END STRUCTURE
[StructLayout(LayoutKind.Sequential)] ;
INTERNAL STRUCTURE winInputXS
INTERNAL Type AS DWORD
INTERNAL Input AS winKeyboardInputXS
END STRUCTURE
END CLASS
Karl-Heinz