Dim b，速度，速度，跑
Msgbox("用法:打開屏幕後輸入想要刷屏的次數，然後復制壹個短語，按OK，進入QQ聊天室，就這樣了")
Msgbox("請在正義之路上使用，謝謝合作！——by QQ:494450105+005，轉載即可”)
B=inputbox("請輸入您想要刷新屏幕的次數:")
Speeds=inputbox("請輸入妳要篩選的統壹速率(單位:次/秒)(提示:太快可能導致崩潰，不要怪我):")
速度=速度*1000
如果速度& lt那就300吧
速度= 300
如果…就會結束
對於i=1到b
ran=int(rnd()*9999)
WScript。睡眠速度
WshShell。仙客來“^v”
WshShell。發送鍵" "
WshShell。SendKeys ran
WshShell。發送鍵“{Enter}”
然後
復制到新的文本文件，並更改後綴vbs。