admin 管理员组文章数量: 1184232
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 的介绍如下：
版权声明：本文标题：解锁代码新世界：VBSScript让键盘锁状态一览无余 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1771503693a3545355.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论