刷屏vbs代码

当和别人吵架怼不过，或是斗图时斗不过时，来看看这个吧

废话不多说，先上代码

当当当当！（施法中...）

···············（一片寂静）

找不到代码了

······

······

······

不要走，在这儿！

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 100 //100是循环次数，要多少自己改，用的时候把这句话删了
wscript.sleep 70
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys "%s"
next
wscript.quit

在不知道哪里新建一个文本文档（就是.txt那家伙），然后打开，把这段代码复制进去

保存后退出，把后缀改成“.vbs”

没有引号！没有引号！没有引号！

打开聊天软件，复制你想要发的对话或是图片

然后打开这个文件，迅速把光标移到对话框

要快

一大段直接跳出来，你想怼的人就懵了

一脸懵逼，这是怎么回事？难道是自己眼花了？

本文完

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

你怎么还不走

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

你还在等什么，快走啊

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

好吧，再给你一个酷酷的关机代码

slidetoshutdown

把这段代码复制到文本文档，后缀改为“.bat”，然后就好了

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

你怎么还不走，我已经没有库存了，走吧

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

既然你看到这里，谢谢你的支持

水了一篇文章，点给赞，收藏一下，这个要求不过分吧 (#^.^#)