(资料图片)
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。
本文到此分享完毕，希望对大家有所帮助。
