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

使用方法

1. 新建txt文件，将后缀名改为xxxx.vbs

2. 将上述代码复制粘贴进文件中，并删除(这是备注 运行前请删除）这几行文字

3.复制需要转发的内容，点击QQ或者微信窗口，，再双击VBS脚本即可自动运行