VBS 刷屏代码

刷屏代码

• 出于无聊，跟朋友聊天突然聊到刷爆别人的屏幕，在网上搜索了一下，看到一个VBS脚本的东西，记录一下
• VBSScript
• 使用方法：
  复制需要转发的内容，点击QQ或者微信窗口，，再双击VBS脚本即可自动运行

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
`循环次数(这是备注 运行前请删除）
for i =1 to 200 
`循环间隔时间(这是备注 运行前请删除）
wscript.sleep 70
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys "%s"
next
wscript.quit