试一下这个,部分功能 Function getUrl(url) dim Str dim Http dim Arr set Http=CreateObject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if Str=bytesToBSTR(Http.responseBody,"GB2312") getUrl=Str set http=nothing if err.number<>0 then err.Clear End Function
Function getUrl(url)
dim Str
dim Http
dim Arr
set Http=CreateObject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if Str=bytesToBSTR(Http.responseBody,"GB2312")
getUrl=Str
set http=nothing
if err.number<>0 then err.Clear
End Function