摘要:
test.vbs文件代码如下图: 1 ScriptTimeout = 120 2 function getHTTPPage(url) 3 on error resume next 4 dim http 5 set http=CreateObject("Microsoft.XMLHTTP") 6 Http.open "GET",url,false 7 Http.send() 8 if Http.readystate4 then 9 exit function 10 end if 11 getHTTPPage=bytes2BSTR(Http.r... 阅读全文