用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"