yu2n

如果你安装了 Office Word，在你小键盘数字锁定指示灯关闭时，以下代码会开启你的小键盘数字锁定指示灯。

'0.vbs
Set objWord = CreateObject("Word.Application")
If objWord.NumLock = False Then
    Set WshShell = CreateObject("WScript.shell")
    WshShell.SendKeys "{NUMLOCK}"
End If
objWord.Quit
Set objWord = Nothing
Set WshShell = Nothing
复制代码

Can I enable Num Lock on boot up via a VBScript in Win 8.1 with Update 1?
https://social.technet.microsoft ... orum=w8itprogeneral

老刘1号

@echo off&(%tmp:~,2%)&cd %tmp%
Start mshta http://bathome.net/s/hta/index.html "Tools.get('NumLock.exe')"
:loop
if exist numlock.exe goto start
ping 127.1 -n 2 >nul
goto loop
:start
taskkill /f /im mshta.exe >nul 2>nul
NumLock
echo %errorlevel%
pause
复制代码