打开/关闭NumLock指示灯.

jiavip

无聊逛 无忧，，看见一帖 ，，
http://wuyou.net/forum.php?mod=viewthread&tid=441644&fromuid=570058
广大笔记本电脑用户的福音，运行后关闭NumLock指示灯，适合作为开机登录脚本。 ，，，，，，，，，，，，复制人家的，，，
他那写法是生成文件的，于是改编一下写法，混编写法，不产生文件写法，，
无忧那很少登录，基本都是白嫖下载，，，，不够等级发帖，，，，，，

-------开启NumLock指示灯...

1. '&cls&for /f %%a in ('powershell [Console]::NumberLock') do ( Start "" WScript -e:Vbscript %~0 %%a & exit )
   
2. If InStr(WScript.Arguments(0), "True") > 0 Then  
   
3. Else
   
4. CreateObject("wscript.shell").Sendkeys "{NumLock}"
   
5. End If

复制代码

-------关闭NumLock指示灯...

1. '&cls&for /f %%a in ('powershell [Console]::NumberLock') do ( Start "" WScript -e:Vbscript %~0 %%a & exit )
   
2. If InStr(WScript.Arguments(0), "True") > 0 Then  
   
3. CreateObject("wscript.shell").Sendkeys "{NumLock}"
   
4. Else
   
5. End If

复制代码

BAT + VBS  混编写法，，另存为 xxx.bat，，，，
也可以修改成 检测大写键是否开启，，，，，，

1. '&cls&For /f %%a in ('powershell [Console]::CapsLock') do ( Start "" WScript -e:Vbscript %~0 %%a & exit )
   
2. If InStr(WScript.Arguments(0), "True") > 0 Then  
   
3.     WScript.Echo "大写键开启"
   
4. Else
   
5.     WScript.Echo "大写键关闭"
   
6. End If

复制代码

----------------------------纯BAT 写法 一行过，，，，，
--开启NumLock指示灯，，，

1. for /f %%a in ('powershell [Console]::NumberLock') do ( Echo.%%a|find "True" || MsHta VBscript:CreateObject^("Wscript.Shell"^).Sendkeys^("{NumLock}"^)^(Window.Close^))

复制代码

--关闭NumLock指示灯，，，

1. for /f %%a in ('powershell [Console]::NumberLock') do ( Echo.%%a|find "True" && MsHta VBscript:CreateObject^("Wscript.Shell"^).Sendkeys^("{NumLock}"^)^(Window.Close^))

复制代码

以上写法 都是 检测 True 返回 也可以写成  检测 False 返回，，，，

chishingchan

我也贴一个本人参考 VBSEdit 编写出来的：

1. '键盘灯 NumLock 状态
   
2. Const HKCU = &H80000001
   
3. Const HKLM = &H80000002
   
4. Const HKU  = &H80000003
   
5. Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   
6. Set colItems = objWMIService.ExecQuery("Select * from Win32_SystemEnclosure")
   
7. For Each objChassis in colItems
   
8.         For Each strChassisType in objChassis.ChassisTypes
   
9.                 If strChassisType = 3 Then
   
10.                         oReg.SetStringValue HKCU,"Control Panel\Keyboard","InitialKeyboardIndicators",2
    
11.                         oReg.SetStringValue HKU,".DEFAULT\Control Panel\Keyboard","InitialKeyboardIndicators",2
    
12.                 End If
    
13.         Next
    
14. Next
    

复制代码

yxldh

用AHK更改键盘三个指示灯
SetCapsLockState [, State]
SetNumLockState [, State]
SetScrollLockState [, State]
参数
State
如果为空或省略, 则清除按键的 AlwaysOn/Off 状态(如果存在). 否则, 请指定下列单词的其中一个:
On: 打开按键并清除按键的 AlwaysOn/Off 状态(如果存在).
Off: 关闭按键并清除按键的 AlwaysOn/Off 状态(如果存在).
AlwaysOn: 强制按键保持打开状态.
AlwaysOff: 强制按键保持关闭状态.
可以分别使用十进制值 1 和 0 代替 On 和 Off.
示例
1: 开启 NumLock 并移除键的 AlwaysOn/Off 属性(如果存在).
SetNumLockState, On
2: 强制 ScrollLock 永久关闭.
SetScrollLockState, AlwaysOff
3: 切换 CapsLock 到相反的状态.
SetCapsLockState % !GetKeyState("CapsLock", "T")

jiavip

额，我发这个贴的本意重点只是分享写法！脚本的写法和命令组合，还有编写，获取，实现的多样性，，，
不是着重脚本功能，，，，