您好,今日明帅来为大家解答以上的问题。qq消息轰炸vbs代码，qq轰炸vbs代码相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、运行前请确定你的电脑安装了word。

2、复制代码 代码如下:i=0set wshshell=createobject("***.shell")Set objWord = CreateObject("Word.Application") Set colTasks = objWord.Tasks do while i<30For Each objTask in colTasks if left(***.Name,1)="与" thenwshshell.appactivate ***.NameWshShell.SendKeys "{enter}"wshshell.sendkeys "^v"WshShell.SendKeys iwscript.sleep 600WshShell.SendKeys "%s"i=i+1end if nextloo。

本文就为大家分享到这里，希望小伙伴们会喜欢。