谁能给我个刷屏脚本

楼主还在吗？我可以给电脑的qq刷屏脚本900下的，刷屏内容在剪切板(百度上的有给自己留后路，有后缀，加上速度慢)

创建vbs

代码复制黏贴

如下

set a=CreateObject("wscript.shell")（创建对象，如果不知道对象什么意思你就把他当成创建一个人）

for i=1 to 900 （循环次数，就是刷几次 i＝2的话是1800下，不过2000以上会被qq的安全管家判成使用第三方软件封号）

wscript.sleep 50（限速（单位毫秒），不要调快，否则会被封号，电脑卡死）

wscript.sendkeys"^v"（黏贴剪切板）

wscript.sendkeys"%s"（你调一下enter发送，本意按enter）

Next(循环结束)

故答案：

Set a= WScript.CreateObject("WScript.Shell")

for i=1 to 900

WScript.Sleep 50

a.Sendkeys"^v"

a.sendkeys"%s"

Next

游戏的话我还在背按键代码，希望对你有用，我也是刚学，可能有bug，有Bug艾特我一声，不过你2006年会回复也是个谜团了，求你采纳我吧！

Set WshShell= WScript.Createobject("WScript.Shell")

Dim b,speeds,speed,ran

msgbox("用法:打开后输入您要刷屏的次数,然后复制一条短语,按确认,转到QQ聊天室,就可以了")

msgbox("请用在正义道路上,谢谢合作!——by QQ：494450105 随便转载")

b=inputbox("请输入您要刷屏的次数：")

speeds=inputbox("请输入您要刷屏的平率(单位:次/秒)（提示：过快可能导致死机，别怪老子）：")

speed = speeds*1000

if speed<300 then

speed = 300

end if

for i=1 to b

ran=int(rnd()*9999)

WScript.Sleep speed

WshShell.SendKeys "^v"

WshShell.SendKeys " "

WshShell.SendKeys ran

WshShell.SendKeys "{Enter}"

next

复制到new的文本文件下，改后缀vbs

建立时钟1，双击后得到时钟1时钟周期，内容写：模拟按键 (#Ctrl键, #V键, )

模拟按键 (#Ctrl键, #回车键, )‘可把组合键Ctrl键去掉变为单一回车键发送

双击“开始”按钮得到按钮被单击，内容写：置剪辑板文本 (编辑框1.内容+#换行符+编辑框2.内容+#换行符+编辑框3.内容……)

时钟1.时钟周期=到数值（间隔框.内容）

停止按钮单击：时钟1.时钟周期=0

---