掌握VBS与键盘锁命门：NumLock、CapsLock、ScrollLock全解密

Vbscript SendKeys and Get NumLock ,CapsLock, ScrollLock Key Status

在 VBS 脚本语言中只提供了 SendKeys 来发送击键，却不能得到一些功能键的状态，如大小写功能键，数字功能键 … , 尽管如些，我们还是有一些方法通过第三方来获取功能键的状态。

我可以通过调用 word 或 excel 等软件，来判断一此功能键的状态，但却只能得到 NumLock ,CapsLock 的状态，却没办法获取 ScrollLock 的状态。

这里我这介绍一个能够获取 NumLock ,CapsLock, ScrollLock Key Status 的一个第三方很好用的小工具。

VBS 程序如下：

'-----------------------------------------------------------------

' Description: Vbscript Send Key and Call Third Party Tool(klocks)

' Get NumLock, CapsLock,ScrollLock Key Status.

'

' Author: Lilo.Zhu

'

' Date: 2009-10-21

'------------------------------------------------------------------

Set WshShell = WScript.CreateObject( "wscript.shell" )

Set d = CreateObject( "Scripting.Dictionary" )

'----Turn On/Off All NumLock, CapsLock,ScrollLock----

For i =0 To 4

WshShell.Run "D:/Z/Tips/Script/Sample/klocks +n +c +s" ,0

WScript.Sleep 500

WshShell.Run "D:/Z/Tips/Script/Sample/klocks -n -c -s" ,0

WScript.Sleep 500

i = i + 1

Next

'----SendKeys For NumLock, CapsLock,ScrollLock----

For i =0 To 50

WshShell.SendKeys "{NUMLOCK}"

WScript.Sleep 500

WshShell.SendKeys "{CAPSLOCK}"

WScript.Sleep 500

WshShell.SendKeys "{SCROLLLOCK}"

WScript.Sleep 500

i=i+1

Next

'----Call Word Get NumLock,CapsLock Keys Status,But Can't Get ScrollLock Status----

'Function IsNumLocked()

'Dim oWrd

'Set oWrd = CreateObject("Word.Application")

'IsNumLocked = oWrd.NumLock

'oWrd.Application.Quit True

'End Function

'Function IsCapsLock()

'Dim oWrd

'Set oWrd = CreateObject("Word.Application")

'IsNumLocked = oWrd.CapsLock

'oWrd.Application.Quit True

'End Function

关于第三方小工具 Klocks.zip 的介绍如下：