VBS小脚本_ 玩坏键盘的指示灯

Posted 2021-01-13 feiyucha

代码简单，功能好玩，富有趣味

1 set ws=wscript.createobject("wscript.shell")
2 do
3 wscript.sleep 50
4 ws.sendkeys"{NUMLOCK}"
5 wscript.sleep 50
6 ws.sendkeys"{CAPSLOCK}"
7 wscript.sleep 50
8 ws.sendkeys"{SCROLLLOCK}"
9 Loop

效果吗，发挥想象

简单介绍：

1，set  ws创建对象

2，do...Loop 为无限循环

3，ws.sendkeys 为按键模拟

4，wscript.sleep 50  为暂停的时间

其他补充：

sendkeys    用于输入键盘按键    appactivate 用于聚焦程序

on error resume next

set ws = createObject("wscript.shell")

appactiveate可以指定title 或者 pid

如下

(1)指定标题

ws.run "notepad.exe"

wscript.sleep 1000

ws.appactivate("无标题-记事本")

ws.sendkeys "abc"

wscript quit

因为脚本运行速度 大于 记事本打开速度 ，因此需要延迟1秒

(2)指定pid

ws.run "calc"

wscript.sleep 1000

ws.appactivate("2936")

ws.sendkeys "35"

wscript.quit

在记事本上写内容

ws.run "notepad.exe"

wscript.sleep 1000

ws.appactivate "无标题-记事本"

ws.sendkeys "{capslock}abc{enter}"

ws.sendkeys "{capslock}+ab+c{enter}"

ws.sendkeys "+(abc)"

在记事本上指定按键数量

ws.run "notepad.exe"

wscript.sleep 1000

ws.sendkeys "{tab 6} {H 3}"

ws.sendkeys "{ }"  ‘发送空格