源码网商城，靠谱的源码在线交易网站我的订单购物车帮助

当前位置：首页 > 资讯 > 技术文档

bytes2BSTR

时间：2021-10-31 20:29 编辑：来源：阅读：
扫一扫，手机访问

摘要：bytes2BSTR

[u]复制代码[/u] 代码如下:

Function bytes2BSTR(vIn) 
 strReturn = "" 
 For i = 1 To LenB(vIn) 
 ThisCharCode = AscB(MidB(vIn,i,1)) 
 If ThisCharCode < &H80 Then 
 strReturn = strReturn & Chr(ThisCharCode) 
 Else 
 NextCharCode = AscB(MidB(vIn,i+1,1)) 
 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
 i = i + 1 
 End If 
 Next 
 bytes2BSTR = strReturn 
End Function  

全部评论(0)

上一篇：用VBS实现的发送带Cookie的HTTP请求的代码
下一篇：用vbs检索在运行对话框中键入的一系列命令的代码

资讯排行榜
更多>>

关于我们 | 广告合作 | 联系我们 | 隐私条款 | 免责声明 | 网站地图

苏ICP备2024110244号-2 苏公网安备32050702011978号增值电信业务经营许可证编号：苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有

联系客服

客服电话：
400-000-3129

微信版

扫一扫进微信版

返回顶部