vbs脚本

每天一个小趣味

• 本地创建一个.vbs的文本文件，添加下面的代码。

On Error Resume Next

Dim chshyz

set chshyz=createobject("wscript.shell")

wscript.sleep 2000

for i=1 to 10 

wscript.sleep 8

chshyz.sendKeys "^v"

chshyz.sendKeys i #若不加提示，则去掉此行代码

chshyz.sendKeys "%s"

next

wscript.quit

• wx窗口，聊天框输入内容，复制，双击.vbs文件
• 返回wx点击发送