dim EntryUrl EntryUrl="http://www.blogbus.com/buyaobuyaobuyao-logs/44092257.html" set HtmlRes=createobject("Microsoft.XMLHTTP") HtmlRes.open "get",EntryUrl,false 《博客美化DIY》 HtmlRes.send dim StartPos, EndPos, EntryText StartPos = InStr(1, HtmlRes.responseText, "", 1) EndPos = InStr(1, HtmlRes.responseText, "", 1) EntryText= Mid(HtmlRes.responseText, StartPos, EndPos-StartPos-6) & "" EntryText=replace(EntryText,"
Tag:

所以猶豫再三…

猶豫再三啊……

猶豫再三,就棄博而逃了……

 


分页共1页 1