qq群刷屏器VB小脚本

Question

如题所述

Answer 1

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"ghjj"
for i=1 to 15
WScript.Sleep 500
WshShell.Sendkeys"^v"
WshShell.Sendkeys i
WshShell.Sendkeys "%s"
Next

使用方法：先复制好一段文字，然后打开本VBS脚本，然后点击聊天窗口的输入框，OK。
for i=1 to 15，15是发送次数。
WScript.Sleep 500，500是发送时间间隔单位是毫秒。
WshShell.Sendkeys i 这一句可以去掉，去掉后发送时就不显示发送的次数。追问

VBS脚本是什么在哪弄

追答

新建一个文本文档，把代码复制上去，最后保存为（ .vbs） 格式的文件。

追问

不懂给个截图行吗

追答

这样应该行了吧。很简单的。自己再试试就知道了。

追问

这个图是那个软件

追答

用的记事本。