QQ，微信刷屏VBS——（娛樂使用）

新建文本文檔，打開，

複製以下代碼：

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 10
wscript.sleep 700
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys i
xda.sendKeys "%s"
next
wscript.quit

保存，更改後綴名爲vbs，複製你要刷屏的內容，打開QQ對話框，雙擊打開寫好的vbs，最後點擊QQ的輸入框就可以自動刷屏了。

注：10代表發送10次，700代表每次發送的時間間隔爲700毫秒，可以根據需要自己修改數值，娛樂就好，千萬不要設置短間隔發送幾十幾百次刷屏（電腦有可能會卡住，還有可能會被拉黑！！！）