6行代碼實現QQ刷屏

申明
本文章僅供學習使用

---

這個代碼是利用腳本語言實現的，代碼如下：

Set WshShell = WScript.Createobject("WScript.Shell")
for i = 1 to 2
WScript.Sleep 30
WshShell.SendKeys"^v"
wshShell.SendKeys"{ENTER}"
next

接下來一行一行進行分析：

Set WshShell = WScript.Createobject("WScript.Shell")
for i = 1 to 20          #for循環控制刷屏次數
WScript.Sleep 30        #設置暫停的時間（sleep睡一覺）
WshShell.SendKeys"^v"       #模仿Ctrl+V（粘貼）
wshShell.SendKeys"{ENTER}"        #模仿ENTER（發送）
next         #重新進行for循環

這裏只做了粘貼操作，那麼在使用前需要把你想發的東西複製一下，然後打開腳本後迅速點開會話，這個操作不分敵我，所以在刷屏的時候如果打開了其他的會話窗口，哦豁完蛋。

這個代碼用的是腳本語言，使用方法爲：
新建文本文檔，將6行代碼複製進文檔中並保存。關掉文檔，將文檔重命名爲xxx.vbs（或者將文件另存爲，選擇文件類型的時候選擇所有文件，然後命名爲xxx.vbs）

雙擊後即爲執行······

大家注意安全，小心被物理攻擊