懟人腳本，QQ消息轟炸

純屬娛樂：

Dim WshShell
Set WshShell= Wscript.CreateObject("WScript.Shell")
WshShell.AppActivate "被懟人暱稱"
for i=1 to 300
WScript.Sleep 100
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next

正確用法：

    提醒：運行提示語法錯誤，請另存爲 ANSI編碼

    1、代碼複製粘貼到任意文件，並命名爲.vbs結尾

    2、發送消息複製粘貼到消息待發送區域

    3、接着雙擊，vbs腳本自動循環發送消息

    效果圖： 發現對方已屏蔽掉我，(灬ꈍ ꈍ灬)