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
温馨提示:答案为网友推荐,仅供参考