易语言取电脑键盘指示灯状态

.子程序 系统_取键盘指示灯状态, 逻辑型, 公开, 取得三个键盘提示灯当前状态。开返回真；关返回假。本命令为初级命令。
.参数 指示灯类别, 整数型, , 键盘指示灯类别，为以下常量值之一：0、#接口常量.数字锁定键盘灯； 1、#接口常量.大小写锁定键盘灯； 2、#接口常量.滚动锁定键盘灯。
.局部变量 缓冲区, 字节型, , "256"
.局部变量 ret, 整数型
.局部变量 viale, 整数型

ret ＝ 虚拟键状态_ (缓冲区)
.如果 (ret ≠ 0)
.判断开始 (指示灯类别 ＝ 0)
viale ＝ 取字节集数据 (取字节集中间 (到字节集 (缓冲区), 144 ＋ 1, 1), #整数型, )
.判断 (指示灯类别 ＝ 1)
viale ＝ 取字节集数据 (取字节集中间 (到字节集 (缓冲区), 20 ＋ 1, 1), #整数型, )
.判断 (指示灯类别 ＝ 2)
viale ＝ 取字节集数据 (取字节集中间 (到字节集 (缓冲区), 145 ＋ 1, 1), #整数型, )
.默认
viale ＝ 0
.判断结束

.否则
viale ＝ 0
.如果结束
返回 (viale ≠ 0)