信息轰炸编程代码
刘耀文的大沙雕
钟意阿满
用vbs编写qq聊天刷屏的时候 代码是to10 结果发出去的是消息10段代码 请 问大神该如何解决
怎么通过qq用短信骚扰对方，我们在qq上总会遇见一些不断挑衅和一些你讨厌的人，用一串代码让他闭嘴，每个人的电脑都可以。
第一步，在电脑中建立一个空白文档，取名“信息轰炸”
第二步，输入代码，代码已给出如下：
set wshshell=wscript.createobject ("wscript.shell")。
wshshell.AppActivate "姓名"。
for i=1 to 100
wscript.sleep 100。
wshshell.sendkey "^v"。
wshshell.sendkey "%s"。
next
第三步，将文件改为vbs形式
第四步，打开qq找到你要信息轰炸的人。
第五步，将你需要说的话打在发送栏里，将这句话复制下来，双击“信息轰炸.vbs”，然后再双击发送栏，这样就可以了。
抱起亚轩找小葵
短信轰炸代码语法错误
用这个
name=Inputbox("请输入轰炸对象名称")。
Dim a
a=inputbox("请输入轰炸次数")。
boom=Inputbox("请输入轰炸内容")。
msgbox("轰炸对象名称:"+name)。
msgbox("轰炸次数:"+a)。
msgbox("轰炸内容:"+boom)。
msgbox("即将开始轰炸！（若信息有误请退出重进）")。
Dim Word
Set Word=CreateObject("Word.Application")。
Word.Documents.Add。
Word.Selection.Text=boom。
Word.Selection.Copy。
Word.Quit False。
Set WshShell= WScript.CreateObject("WScript.Shell")。
WshShell.AppActivate name。
for i=1 to (int(a))。
WScript.Sleep 10。
WshShell.SendKeys "^v"。
WshShell.SendKeys "%s"。
Next
大圣杰锅是
怎样用命令提示符轰炸别人（恶作剧用）
看得不是很清楚，根据我编程的经验，问题可能出现在：
1，一个句子分成了几行，结果导致解析不了；
2，引号使用出错，全角和半角的差别导致无法识别；
3，变量的使用没有提前定义
4，文本编码不符合要求
小韩在追星
这是一个QQ炸弹的代码，怎样存为.vbs 在word里面不能存。另外那个脚本里面要填什么？
那是你电脑没有安装防火墙吧？
这个东西都过时了，没有太大意思。
顶多就是发送大量数据包，让电脑死机，
还有就是远程控制关机重启！但是本地禁止服务也就没有办法了！
XP中的一个远程关机命令
在我们最长用的系统中，存在这很多的命令在这这命令中是分为两部分的．。
一部分是外部命令，另一部分则是内部命令。
在系统下我们可以在运行输入 cmd 可以调出带命令提示符窗口在这里我们就可以输入命令了．首先先给大家介绍一个外部命令远程关机的命令．。
首先为了让大家有一个明确的概念先说一下什么是外部命令与内部命令，外部命令则是系统继承并非DOS下命令．而内部命令则是DOS程序自身的命令了．。
是如开启远程关机呢？操作方法：
开始菜单－＞运行－＞输入 cmd 这个命令则回出现带命令提示符窗口。
然后在此输入： shutdown ? 这样的命令则是查看所有命令在这里你可以看到的就是这里面包含的所有命令参数．。
-i 显示 GUI 界面，必须是第一个选项。
-l 注销(不能与选项 -m 一起使用)。
-s 关闭此计算机
-r 关闭并重启动此计算机
-a 放弃系统关机
-m \\computername 远程计算机关机/重启动/放弃。
-t xx 设置关闭的超时为 xx 秒。
-c "comment" 关闭注释(最大 127 个字符)。
-f 强制运行的应用程序关闭而没有警告。
-d [u][p]:xx:yy 关闭原因代码。
u 是用户代码
p 是一个计划的关闭代码
xx 是一个主要原因代码(小于 256 的正整数)。
yy 是一个次要原因代码(小于 65536 的正整数)。
在这里你也可以做到给自己关机也可以给其他用户关机，在这里面有一个界面模式的方法也是输入： shutdown -i 这个命令将会出现界面模式方便与操作了！
在这里你可以输入对方的IP地址与关机原因和时间，然后确认，这时对方的计算机将会执行你所发送的命令 是关机 是注销 还是重新启动都可以操作的．。
这个命令一般都是为管理员方便管理所应用程序，在LAN中是可以使用的．这个关机的模式和冲击波病毒有点类似，所以假如在遇到一切强制关机的话，你可以是使用这个命令试验一下可以解决吗？
命令是： shutdown -a 这个是取消命令！
要想关别人机子，你要先在别人的电脑上做点手脚．因为你登陆被控制的机器是以guest的身份登陆的，当然没权限去关机了。解决的办法也很简单，只要在别人计算机中赋予guest用户远程关机的权限即可．。
1、在命令行中输入命令：gpedit.msc，这时便会打开组策略编辑器；
2、在“组策略”窗口的左窗格中打开“计算机配置”—“windows 设置”—“安全设置”—“本地策略”—“用户权利指派”。
3、在“组策略”窗口的右窗格中选择“force shutdown from a remote system （从远端系统强制关机）”，双击。
4、在弹出的对话框中显示目前只有“administrators”组的成员才有权从远程关机；单击对话框下方的“添加用户或组”按钮，然后在新弹出的对话框中输入“guest”，再单击“确定”。
5、这时在“从远端系统强制关机”的属性中便添加了一个“guest”用户，单击“确定”即可。
嘿嘿，再去试试．当然只是局域网内使用windows xp的电脑。
希望可以解决您的问题！
小韩在追星
我这qq聊天轰炸代码哪里错了？（帮忙改一下）谢谢！
用记事本（.txt）存……
把扩展名改成.vbs就行了……
另外，你这脚本有错误，不用测试，我看得出来。
这脚本恐怕没有用呢。
我把我写的QQ炸弹给你吧。
msgbox "启动后在两秒内将光标移到炸弹信息窗口哪儿。注意QQ发信息设置按Ctrl+ENTER弹信息。"。
xx=inputbox("炸弹信息","必须是英文，禁止中文标点。违者包你完蛋","qisiwole1")。
a=int(inputbox("炸弹次数",,100))。
jg=1000/int(inputbox("每秒炸弹次数（输1启动"机枪"模式）",,4))。
if jg=1000 then。
yyy=msgbox ("启动机枪模式？可能对方/你死机！甚至服务器瘫痪……(连作者都没测试过：信息10000条，电脑最快速度发送)",16+vbyesno,"相当危险!")。
if yyy=vbyes then。
jg=1
a=10000
else
msgbox "已取消，默认设置。确认开始"。
a=100
jg=250
end if
end if
msgbox "预计耗时"&a*jg/1000+a*0.05&"秒"。
dim i,ppp
ppp=(10000/(a*jg))。
i=0
wscript.sleep 2000。
Set Wshell=WScript.CreateObject("WScript.Shell")。
do
i=i+1
if a<i then
msgbox "轰炸完毕。"
exit do
end if
wscript.sleep jg。
WShell.SendKeys xx。
WShell.SendKeys "^{enter}"。
loop