转换中文为unicode 转换unicode到正常文本(2)
end If
next
bytes2BSTR = strReturn
end function
function getText(o,url)
dim oReq
on error resume next
if o is nothing then
'//创建XMLHTTP对象
set oReq = CreateObject("MSXML2.XMLHTTP")
else
set oReq = o
end if
oReq.open "get",url,false
oReq.send
if oReq.status = 200 or oReq.status = 0 then
getText = bytes2BSTR(oReq.responseBody)
else
getText = ""
end if
end function