分享QQ刷屏vbs脚本一个

由于不支持上传文件，大家自己把这些文字输入到一个全新的txt里，让后重命名为：loopmsg.vbs即可
===文章和代码的分割线===
msgbox"powered by ZPRO"
msgbox"警告：接下来的内容禁止使用复制输入！请复制要循环发送的内容，随后点击[确定]。"
Dim name
name=inputbox("输入备注名","设置本次[name]变量值")
Dim addmax
addmax=inputbox("输入要循环的次数","设置本次[addmax]变量值")
Set loopmsg=WScript.CreateObject("Wscript.Shell")
loopmsg.SendKeys "{ENTER}"
loopmsg.AppActivate name
For adder = 0 to addmax
loopmsg.SendKeys "^v"
loopmsg.SendKeys "{ENTER}"
Next
===代码和文章的分割线===
注意：仅供娱乐，禁止用于非法用途。否则后果自负！