keyboard.bas

很好的教程原代码！

Attribute VB_Name = "Keyboard"
Declare Function GetCaretBlinkTime Lib "user32" () As Long

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

Public Const SPI_GETKEYBOARDSPEED = 10
Public Const SPI_GETKEYBOARDDELAY = 22