转换中文为unicode 转换unicode到正常文本

    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

您可能感兴趣的文章:

java unicode转码为中文实例Java String字符串和Unicode字符相互转换代码java实现汉字转unicode与汉字转16进制实例java中unicode和中文相互转换的简单实现