vbs 自动复制粘贴文字，批量定时在窗口发文字

1、记事本新建一个txt文件，复制输入下面代码后保存，改txt文件后缀为.vbs后缀。

复制需要重复发送内容后，打开浏览器等打字窗口，运行写入代码后的vbs文件，立即在这窗口粘贴，自动回车发送

2、点击文件后，立即在后台运行，不会弹窗，复制粘贴内容到当前打字窗口

dim ws

set ws=wscript.createobject("wscript.shell")

for i=1 to 10

ws.AppActivate("")

ws.sendKeys"^v"

ws.sendkeys "%s"

ws.sendkeys"{enter}"

wscript.sleep 8000

next

wscript.quit

3、会在当前打开窗口，比如浏览器，qq等，粘贴发送复制的内容 10 次

wscript.sleep 8000 是8秒发送一次