vbs刷屏代码或套酒乎

vbs刷屏代码或套酒乎

问题补充说明：On Error Resume NextDim wsh,yeset wsh=createobject("***.shell")for i=1 to 2wscript.sleep 700wsh.AppActivate("抖音木鱼")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit 代码没有问题，但是在qq里发的话是这么编辑的？求解，那个大神帮帮我啊？

msgbox"单击“确定”后请点击QQ文字输入区,并把“回车”设置为发送消息。",4096,"提示"

setws=createobject("***.shell")

来自wscript.sleep3360问答000

a=0

dountila=100

ws.sendkeysa

a=a+1

wscript.sleep100

ws.sendkeys"~"

loop