刷屏代码

VBSScript

使用方法：

复制需要转发的内容，点击QQ或者微信窗口，，再双击VBS脚本即可自动运行

On Error Resume Next

Dim xda,ye

set xda=createobject("wscript.shell")

`循环次数(这是备注 运行前请删除）

for i =1 to 200

`循环间隔时间(这是备注 运行前请删除）

wscript.sleep 70

xda.AppActivate

xda.sendKeys "^v"

xda.sendKeys "%s"

next

wscript.quit