刷屏代碼？

VBSScript

使用方法：

復(fù)制需要轉(zhuǎn)發(fā)的內(nèi)容，點(diǎn)擊QQ或者微信窗口，，再雙擊VBS腳本即可自動(dòng)運(yùn)行

On Error Resume Next

Dim xda,ye

set xda=createobject("wscript.shell")

`循環(huán)次數(shù)(這是備注 運(yùn)行前請(qǐng)刪除）

for i =1 to 200

`循環(huán)間隔時(shí)間(這是備注 運(yùn)行前請(qǐng)刪除）

wscript.sleep 70

xda.AppActivate

xda.sendKeys "^v"

xda.sendKeys "%s"

next

wscript.quit