这是一个QQ炸弹的代码，怎样存为.vbs 在word里面不能存。另外那个脚本里面要填什么？

这是一个QQ炸弹的代码，怎样存为.vbs 在word里面不能存。另外那个脚本里面要填什么？

用记事本（.txt）存……把扩展名改成.vbs就行了……另外，你这脚本有错误，不用测试，我看得出来。这脚本恐怕没有用呢。我把我写的QQ炸弹给你吧。msgbox "启动后在两秒内将光标移到炸弹信息窗口哪儿。注意QQ发信息设置按Ctrl+ENTER弹信息。"xx=inputbox("炸弹信息","必须是英文，禁止中文标点。违者包你完蛋","qisiwole1")a=int(inputbox("炸弹次数",,100))jg=1000/int(inputbox("每秒炸弹次数（输1启动"机枪"模式）",,4))if jg=1000 thenyyy=msgbox ("启动机枪模式？可能对方/你死机！甚至服务器瘫痪……(连作者都没测试过：信息10000条，电脑最快速度发送)",16+vbyesno,"相当危险!")if yyy=vbyes thenjg=1a=10000else msgbox "已取消，默认设置。确认开始"a=100jg=250end ifend ifmsgbox "预计耗时"&a*jg/1000+a*0.05&"秒"dim i,pppppp=(10000/(a*jg))i=0wscript.sleep 2000Set Wshell=WScript.CreateObject("WScript.Shell")doi=i+1if a