Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr(.responsebody)'对取得信息进行验证,如果信息长度小于100则说明截取失败if len(.responsebody) function gethttppage(url)dim httpset http=createobject("MICROSOFT.XMLHTTP")http.open "GET",url,falsehttp.send()if http.readystate 4 thenexit fu...
[ 查看全文 ]