信赖电脑界的每个人都憎恨盘算机病毒，她给我们带来了许多贫苦和损失，可你知道编写病毒的方式和历程吗？在此我仅以VB编写为例，揭开她的面纱。 用VB编写病毒需要考虑到如下几点： * 熏染主机 首先染毒文件运行后先要判断主机是否以熏染病毒，也就是判断病毒主体文件是否存在，若是不存在则将病毒主体拷贝到指定位置(如：将病毒文件拷贝到c:\windows\system\)，可用filecopy语句实现；若是病毒已熏染主机则竣事判断。 例如，判断C:\windows\system\Killer.exe是否存在，若是有则退出判断，若是没有则证实本机未熏染病毒，立刻拷入病毒文件。 病毒源文件名为game.exe 声明部门： “”界说 FileExists 函数public successFunction FileExists(fname)On Local Error Resume NextDim ffff = FreeFileOpen fname For Input As ffIf Err ThenFileExists = FalseElseFileExists = TrueEnd IfClose ffEnd Function 代码部门： “”判断文件是否存在success = FileExists(”C:\windows\system\Killer.exe”)If success = False Then “”病毒不存在则拷贝病毒到盘算机FileCopy “game.exe”, “C:\windows\system\Killer.exe”… “”修改注册表，将其加入RUN中。(省略若干代码)End If * 开机启动病毒 在病毒熏染主机的同时，将自身加入注册表的开机运行中，这与向主机拷入病毒是同时举行的，主机熏染后不再修改注册表。可通过编程和挪用API函数对WIN注册表举行操作来实现，这样在每次启动盘算机时病毒自动启动。(详细编写方式请查阅其它资料) * 义务管理器 在义务管理器列表中克制病毒自己被列出，可以通过编程来实现。用代码 App.TaskVisible = false 就可以实现；再有就是通过挪用Win API函数来实现，这里就不作先容了。 * 病毒发作条件 可用Day(Date)来判断今天是几号，再与确定好的日期作比较，相同则表现出病毒主体的破坏性，否则不发作。也可用Time、Date或其它方式作为病毒发作条件的判断。例： if day(date)=16 then “”16是发作日期，取值为1-31的整数… … “”kill ******* 当日期相符时运行的破坏性代码(格式化、删除指定的文件类型、发送数据包杜塞网路等，省略若干代码)end if * 病毒的破坏性 编写的此部门代码决议了病毒威力的强弱。轻的可以使系统资源迅速削减直至死机(需要你明白一点蠕虫的原理)，也就是实现开机即死的效果；也可以加入硬盘炸弹代码、系统后台删文件等。重的可以使盘算机彻底瘫痪(不作先容，你可以参阅其它病毒的有关资料)。 * 病毒的滋生 原理很简单，就是将其自身与其它可执行文件合并，也就是两个文件并成一个文件。也可通过E-Mail流传，方式是病毒读取被熏染主机的邮件列表，将带有病毒附件的E-Mail发给列表中的每一个人(这需要你明白VB网络编程)。 读完本文章信赖您已对病毒的编写思绪有了开端的领会，若是你是个VB爱好者，你已经可以编写一个很简单的病毒了，但你要是醒目VB的话，请不要有编写后流传她的想法，由于流传她造成很大的影响将改变你的运气(被公安捉住就挂了)。