刷QQ群的VBS脚本

使用方法：讲以下代码保存为QQ.vbs,然后复制你要发送的东西，双击QQ.vbs就可以自动刷屏拉!

注意：本代码仅作为技术研究之用，请勿非法使用!

1. Set WshShell= WScript.CreateObject("WScript.Shell")  
2. WshShell.AppActivate "群 － 交流群"  
3. for i=1 to 10 ‘要发送的次数  
4. WScript.Sleep 500  
5. WshShell.SendKeys "^v"  
6. WshShell.SendKeys i  
7. WshShell.SendKeys "%s"  
8. next