如何使用.VBS代码检测NumLock键是否打开/关闭，然后将其打开

Question

是否可以使用.VBS中的代码来检测NumLock键是否打开，然后在检测到NumLock键关闭时向其添加打开NumLock键的代码？

检测NumLock是否打开的代码示例：

如果GetNumlockState((=True，则Wscript.Echo"；Numlock is ON"(数字锁打开(；其他的Wscript.Echo"；Numlock是FF"；如果结束

函数GetNumlockState((strResult=WScript.CreateObject("WScript.Shell"(.Exec("powershell.exe-command[控制台]：NumberLock"(.StdOut.ReadLine如果strResult＝"；真"然后GetNumlockState=True，否则GetNumlockState=False终端功能

打开NumLock键的代码示例：

设置WshShell=CreateObject("WScript.Shell"(WshShell.SendKeys"；{NUMLOCK}"；

我该怎么做：

1. 连接代码以检测NumLock键是打开还是关闭，这样第二个代码，即用于打开NumLock键的代码，只有在检测到NumLock关闭时才开始工作？？？

2. 不显示任何通知和信息窗口，也就是说，在后台以静默方式进行。

非常感谢您的回答。

Answer 1

我用这种方式处理了，现在它工作得很好：

If GetNumLockState() = True Then
' NumLock Already ON. Bypass (Or do something...)
Else 
' NumLock is Off
set WshShell = CreateObject("WScript.Shell") 
WshShell.SendKeys "{NUMLOCK}" 
End If 
Function GetNumLockState() 
strResult = WScript.CreateObject("WScript.Shell").Exec("powershell.exe -command [console]::NumberLock").StdOut.ReadLine
If strResult = "True" Then 
GetNumLockState = True
Else 
GetNumLockState = False 
End If
End Function

我只是不知道如何禁用.cmd控制台的外观，当按下NumLock键时，你可以在桌面上看到它大约一秒钟。

我可以要求回答吗？我必须输入什么才能在脚本运行时不显示.cmd控制台/不可见？

在此处输入图像描述