转换中文为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