挺好玩的键盘指示灯跑马灯特效

就是个键盘指示灯跑马，挺有意思的很久之前写的了。

.子程序 取灯, 逻辑型, 公开, 返回真表示开启
.参数 指示灯类别, 整数型, , 0：数字锁定键盘灯，1：大小写锁定键盘灯，2：滚动锁定键盘灯。为空默认为0
.局部变量 状态, 整数型

.判断开始 (指示灯类别 ＝ 0)
状态 ＝ API_最近的输入虚拟键状态 (144)
.判断 (指示灯类别 ＝ 1)
状态 ＝ API_最近的输入虚拟键状态 (20)
.判断 (指示灯类别 ＝ 2)
状态 ＝ API_最近的输入虚拟键状态 (145)
.默认

.判断结束
返回 (状态 ＝ 1)