Script lines most recently executed (oldest first).  Press [F5] to refresh.  The seconds elapsed between a line and the one after it is in parentheses to the right (if not 0).  The bottommost line's elapsed time is the number of seconds since it executed.

---- C:\Users\NS\Documents\AutoHotkey\led3.ahk
003: led := KeyboardLED(7)
010: KeyboardLED.SCROLL_LOCK := 0x0001
011: KeyboardLED.NUM_LOCK := 0x0002
012: KeyboardLED.CAPS_LOCK := 0x0004
014: KeyboardLED.LED_MASK := 0x0007
015: KeyboardLED.kip_size := 4
000: }
019: this.hDevice := KeyboardLED.CreateFile('\\.\GLOBALROOT\Device\KeyboardClass' . kbdIndex)
097: Static shareFlag := (FILE_SHARE_READ  := 0x1) | (FILE_SHARE_WRITE := 0x2)
097: Static OPEN_EXISTING := 3
097: Static INVALID_HANDLE_VALUE := -1
101: res := DllCall('CreateFile', 'Str', devPath, 'UInt', 0, 'UInt', shareFlag, 'Ptr', 0 , 'UInt', OPEN_EXISTING, 'UInt', 0, 'UInt', 0, 'Ptr')
103: If (res = INVALID_HANDLE_VALUE)
105: Return res
020: }
005: {
006: {
008: KeyboardLED
008: {
018: {
022: {
026: {
027: {
031: {
032: {
036: {
037: {
040: {
042: {
044: {
049: {
054: {
059: {
061: {
072: {
083: {
090: {
096: {
108: Exit (27.55)

Press [F5] to refresh.

#Requires AutoHotkey v2

led := KeyboardLED(7) ; ваш индекс клавиатуры

^1:: led.CapsLock := 1 ; включение
^2:: led.CapsLock := 0 ; отключение

class KeyboardLED
{
    static SCROLL_LOCK := 0x0001
    static NUM_LOCK    := 0x0002
    static CAPS_LOCK   := 0x0004

    static LED_MASK := 0x0007
    static kip_size := 4 ; KEYBOARD_INDICATOR_PARAMETERS_SIZE

    ; kbdIndex — index of keyboard (probably 0 or 2)
    __New(kbdIndex := 0) {
        this.hDevice := KeyboardLED.CreateFile('\\.\GLOBALROOT\Device\KeyboardClass' . kbdIndex)
    }

    __Delete() => DllCall('CloseHandle', 'Ptr', this.hDevice)

    ; setters accept 'on', 'off', 'switch' or 1, 0, -1
    NumLock {
        get => KeyboardLED.GetKey(this.hDevice, KeyboardLED.NUM_LOCK)
        set => KeyboardLED.SetKey(this.hDevice, KeyboardLED.NUM_LOCK, value)
    }

    CapsLock {
        get => KeyboardLED.GetKey(this.hDevice, KeyboardLED.CAPS_LOCK)
        set => KeyboardLED.SetKey(this.hDevice, KeyboardLED.CAPS_LOCK, value)
    }

    ScrollLock {
        get => KeyboardLED.GetKey(this.hDevice, KeyboardLED.SCROLL_LOCK)
        set => KeyboardLED.SetKey(this.hDevice, KeyboardLED.SCROLL_LOCK, value)
    }

    GetAll() => KeyboardLED.QueryIndicators(this.hDevice)

    SetAll(ledFlags) => KeyboardLED.SetIndicators(this.hDevice, ledFlags)

    Set(ledMask) {
        currentLeds := KeyboardLED.QueryIndicators(this.hDevice)
        return KeyboardLED.SetIndicators(this.hDevice, currentLeds | ledMask)
    }

    Clear(ledMask) {
        currentLeds := KeyboardLED.QueryIndicators(this.hDevice)
        return KeyboardLED.SetIndicators(this.hDevice, currentLeds & (ledMask ^ KeyboardLED.LED_MASK))
    }

    Toggle(ledMask) {
        currentLeds := KeyboardLED.QueryIndicators(this.hDevice)
        return KeyboardLED.SetIndicators(this.hDevice, currentLeds ^ ledMask)
    }

    static GetKey(hDevice, key) => !!(this.QueryIndicators(hDevice) & key)

    static SetKey(hDevice, key, cmd) {
        currentLeds := this.QueryIndicators(hDevice)
        switch cmd, false {
            case 'switch', -1 : keyLed := currentLeds ^ key
            case 'on'    ,  1 : keyLed := currentLeds | key
            case 'off'   ,  0 : keyLed := currentLeds & (key ^ this.LED_MASK)
            default           : throw Error('Incorrect cmd')
        }
        return this.SetIndicators(hDevice, keyLed)
    }

    static QueryIndicators(hDevice) {
        ioctlQuery := this.CTL_CODE(0x10) ; KBD_QUERY_FUNCTION
        inBuf  := Buffer(this.kip_size, 0)
        outBuf := Buffer(this.kip_size, 0)
        DllCall('DeviceIoControl', 'Ptr', hDevice, 'UInt', ioctlQuery,
                                   'Ptr',  inBuf, 'UInt', this.kip_size,
                                   'Ptr', outBuf, 'UInt', this.kip_size,
                                   'UInt*', &ret := 0, 'Ptr', 0)
        return NumGet(outBuf, 2, 'UShort')
    }

    static SetIndicators(hDevice, ledFlags) {
        ioctlSet := this.CTL_CODE(0x2) ; KBD_SET_FUNCTION
        return DllCall('DeviceIoControl', 'Ptr', hDevice, 'UInt', ioctlSet,
                                          'Int*', ledFlags << 16, 'UInt', this.kip_size,
                                          'Ptr', 0, 'UInt', 0, 'UInt*', &ret := 0, 'Ptr', 0)
    }

    static CTL_CODE(function) {
        static FILE_DEVICE_KEYBOARD := 0x0b, FILE_ANY_ACCESS := 0, METHOD_BUFFERED := 0
             , opt := (FILE_DEVICE_KEYBOARD << 16) | (FILE_ANY_ACCESS << 14) | METHOD_BUFFERED
        return opt | (function << 2)
    }

    static CreateFile(devPath) {
        static shareFlag := (FILE_SHARE_READ  := 0x1)
                          | (FILE_SHARE_WRITE := 0x2)
             , OPEN_EXISTING := 3, INVALID_HANDLE_VALUE := -1

        res := DllCall('CreateFile', 'Str', devPath, 'UInt', 0, 'UInt', shareFlag, 'Ptr', 0
                                   , 'UInt', OPEN_EXISTING, 'UInt', 0, 'UInt', 0, 'Ptr')
        if (res = INVALID_HANDLE_VALUE)
            throw Error('CreateFile failed. Error: INVALID_HANDLE_VALUE')
        return res
    }
}

#Requires AutoHotkey v2.0

SetCapsLockState("AlwaysOff")
+CapsLock::{
    if (GetKeyState("CapsLock", "T")) {
        SetCapsLockState('Off')
    } else {
        SetCapsLockState('On')
    }
}
CapsLock::Send("{Ctrl down}{Shift down}{Shift up}{Ctrl up}")