大家好,今天小六子来为大家解答以下的问题，关于Qq轰炸代码vbs视频这个很多人还不知道，现在让我们一起来看看吧！

1、用这个name=Inputbox("请输入轰炸对象名称")Dim aa=inputbox("请输入轰炸次数")boom=Inputbox("请输入轰炸内容")msgbox("轰炸对象名称:"+name)msgbox("轰炸次数:"+a)msgbox("轰炸内容:"+boom)msgbox("即将开始轰炸！（若信息有误请退出重进）")Dim WordSet Word=CreateObject("Word.Application")Word.Documents.AddWord.Selection.Text=boomWord.Selection.CopyWord.Quit FalseSet WshShell= WScript.CreateObject("***.Shell")WshShell.AppActivate namefor i=1 to (int(a))WScript.Sleep 10WshShell.SendKeys "^v"WshShell.SendKeys "%s"Next。

本文分享完毕，希望对你有所帮助。