刷QQ群的VBS脚本
(编辑：jimmy 日期: 2025/4/6 浏览：3 次 )
使用方法：讲以下代码保存为QQ.vbs,然后复制你要发送的东西，双击QQ.vbs就可以自动刷屏拉！
注意：本代码仅作为技术研究之用，请勿非法使用！
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "群 － 交流群"
for i=1 to 10 ‘要发送的次数
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
注意：本代码仅作为技术研究之用，请勿非法使用！
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "群 － 交流群"
for i=1 to 10 ‘要发送的次数
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
下一篇：VBS基础编程教程 (第6篇)