用vb语言七行写一个QQ轰炸机（附一个抖音很火的小程序）

我今天整理电脑文件，突然发现了我一年前写的QQ自动聊天工具，曾经在我学校也是风靡一时，现在我发现了它一个更好的名字：QQ轰炸机，我来给大家分享一下，让我们刷爆我们的小伙伴！
先看看效果 gif 图：

是不是看不到效果？哈哈哈，那是因为我电脑运行速度太快了！我们来看一下在手机上的显示：

如果你的电脑性能很好，你完全可以写个死循环，把对方手机刷爆，哈哈哈哈。好啦，下面我就给大家依次讲解一下，如何实现。

1. 首先创建一个文本文档，然后将后缀名改为vbs，例如：

qq.vbs

2. 然后将下面代码放到刚刚建立的文件中，注意："改成你要发消息的人的备注"要改成你要发送的人的备注即：需要被激活窗口的名字，下面有解释。上代码：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"改成你要发消息的人的备注"
for i=1 to 999
WScript.Sleep 10
WshShell.SendKeys"^v"
WshShell.SendKeys "%s"
Next

3. 先将QQ || TIM || 微信 窗口打开，将需要发送的内容复制一下（将内容放到剪切板）同样可以复制图片，推荐使用QQ截图，会自动保存在剪切板
4. 双击运行文件

这样，我们的程序就开始运行了，你的好朋友也要开始遭殃了。

我来依次讲解一下代码含义，小程序好玩，我们可以不用学会所有的 vb 语法，但作为一个优秀的程序员我们应该知道这几行代码都是什么含义！

创建通过方法WScript.CreateObject创建一个 WshShell 对象，这个对象可以运行程序、操作注册表、创建快捷方式、访问系统文件夹、管理环境变量。并赋值给一个变量 WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

通过 AppActivate 方法激活一个指定的窗口，此时的窗口，就是你打开的 QQ 或者 TIM 亦或者微信窗口时，要发送的人显示的名字。（尽量不要在微信上实验，亲测微信连续发多了会被禁言一段时间）

WshShell.AppActivate"改成你要发消息的人的备注"

for循环，我就不多说了，你要循环发送多少次，可手动修改次数

for i=1 to 999

发送间隔时多少

WScript.Sleep 10

下面的代码就是将剪切板中的内容，执行一个 ctrl + v 复制操作，将内容复制到激活的窗口

WshShell.SendKeys"^v"

将激活窗体的内容发送出去，类似与执行一个 enter 键

WshShell.SendKeys "%s"

好啦，qq轰炸机的代码就到这里了，下面送福利：我们通常在抖音看到的vbs小程序。我加了惩罚措施：自动关机！

dim wsh
msgbox("下面X哥要问你一个严肃的问题！")
msgbox("请你严肃慎重的选择，")
if msgbox("你是不是觉得X哥贼帅？！",vbyesno,"请回答是或否")=vbyes then
msgbox("哈哈哈 我也是这么觉的 ！")
msgbox("X哥无敌帅！")
elseif msgbox("你确定？再给你一次机会，你X哥帅不帅？！",vbyesno,"好好想想再说")=vbyes then
msgbox("算你识相，给你轻一点的惩罚吧！点99次X哥最帅吧！")
for i=1 to 99
msgbox("X哥最帅！")
Next
else 
msgbox("小老弟有点意思哈")
msgbox("我发现你是想搞事情啊")
msgbox("你竟然觉得X哥我不帅？")
msgbox("接下来你就接受X哥的制裁吧！")
msgbox("抓紧保存没保存的文件!")
msgbox("因为你的电脑将在20s后关机！！！")
set wsh=createobject("wscript.shell")
wsh.run "shutdown -s -t 20"
end if

下面这两行是自动关机代码：

set wsh=createobject("wscript.shell")
wsh.run "shutdown -s -t 20"