Dim durationInMins
Set obj = CreateObject("WScript.Shell")
Set obj = CreateObject("WScript.Shell")
durationInMins = 300
For i=1 to durationInMins
WScript.Sleep (2*60*1000)
obj.SendKeys ("{CAPSLOCK 2}")
Next
WScript.Sleep (2*60*1000)
obj.SendKeys ("{CAPSLOCK 2}")
Next
本文介绍了一段使用VBScript编写的脚本,该脚本能够每两分钟触发一次Caps Lock键,持续300分钟。通过创建WScript.Shell对象并利用SendKeys方法实现按键操作。
5565

被折叠的 条评论
为什么被折叠?



