如何在Visual Basic中编写病毒

我相信在使用电脑的时候，病毒应该是大家最讨厌的，因为它给我们带来了很多的麻烦和损失，让大家都可以摆脱可恶的病毒。那么你知道病毒是怎么写的吗？相信大部分人都不知道，那么就以VB编写为例，再来看看编写病毒的过程。

　　用VB编写病毒需要考虑到如下几点：

　　* 感染主机

首先，感染文件运行后，需要判断主机是否感染病毒，即病毒主体文件是否存在。如果不存在，则将病毒主体复制到指定位置(例如：将病毒文件复制到c:windowssystem)，可以通过filecopy语句实现；而如果病毒已经感染了宿主，就结束了判断。

比如判断C:windowssystemKiller.exe是否存在，如果存在，退出判断，如果不存在，证明机器没有感染病毒，并立即复制病毒文件。

病毒源文件名为game.exe

申报第：部分

定义文件存在%函数

公开成功百分比

函数文件存在(% fname $)

下次本地错误恢复时

Dim ff%

ff%=FreeFile

输入为ff%时打开fname$

如果错误，那么

文件存在%=假

其他

文件存在%=真

如果…就会结束

关闭ff%

结束功能

代码部分：

确定文件是否存在

成功%=文件存在%(' c : windowssystemkiller . exe ')

如果成功%=假，则''如果病毒不存在，则将病毒复制到计算机。

FileCopy 'game.exe '，' C:windowssystemKiller.exe '

.''修改注册表并将其添加到RUN。(省略一些代码)

如果…就会结束

　　* 开机启动病毒

当病毒感染主机时，会将自己加入注册表的引导操作中，这是在将病毒复制到主机的同时进行的，主机感染后注册表不会被修改。可以通过编程和调用API函数来操作WIN注册表来实现，这样每次启动电脑病毒都会自动启动。(具体写作方法请参考其他材料)

　　* 任务管理器

禁止病毒被列入任务管理器列表可以通过编程实现。可以用代码App来实现。TaskVisible=false然后是通过调用Win API函数实现，这里就不介绍了。

　　* 病毒发作条件

Day(Date)可以用来判断今天的日期，然后与确定的日期进行比较，同样显示了病毒主体的破坏性，否则不会发作。时间、日期或其他方法也可以用来判断病毒的攻击条件。示例：

如果day(date)=16，则“16”是攻击日期，该值是从1到31的整数

.' ' kill *******当日期匹配时运行的破坏性代码(格式化、删除指定的文件类型、向拥塞网络发送数据包等。省略一些代码)

如果…就会结束

　　* 病毒的破坏性

这部分代码决定了病毒的强度。Light可以快速减少系统资源直到崩溃(你需要稍微了解一下蠕虫的原理)，也就是达到启动和死亡的效果；也可以在系统后台添加硬盘炸弹代码，删除文件。重则可以彻底瘫痪电脑(无需介绍，可以参考其他病毒相关信息)。

　　* 病毒的繁殖

原理很简单，就是把自己和其他可执行文件合并，也就是把两个文件合并成一个文件。它也可以通过电子邮件传播。方法是病毒读取被感染主机的邮件列表，将带有病毒附件的E-Mail发送给列表中的每个人(这需要你懂VB网络编程)。

看完这篇文章，相信你对病毒的写作思路有了初步的了解。如果你是一个VB爱好者，可以写一个很简单的病毒，但是如果你精通VB，请不要在写完后传播她的想法，因为传播她会有很大的影响，会改变你的命运(如果被警察抓住，你会死)。

以上就是用VB编译病毒的过程。我不知道你怎么想。总之，请不要做病毒的制造者和传播者。