keyboard.bas

来自「键盘信息报告例子」· BAS 代码 · 共 7 行

Attribute VB_Name = "Keyboard"
Declare Function GetCaretBlinkTime Lib "user32" () As Long
Public Const SPI_GETKEYBOARDSPEED = 10
Public Const SPI_GETKEYBOARDDELAY = 22
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long