bytes2BSTR
来源：本站原创|时间：2022-11-25|栏目：vb|
复制代码 代码如下:
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
您可能感兴趣的文章
- 01-10下载文件到本地运行的vbs
- 01-10飘叶千夫指源代码，又称qq刷屏器
- 01-10VBScript教程 第二课在HTML页面中添加VBscript代码
- 01-10VBS教程：字符集 (0 - 127)
- 01-10Restart.vbs源代码可以重启远程电脑的vbs
- 01-10ipclear.vbs源代码
- 01-10FileSystemObject 示例代码
- 01-10whoami.vbs源代码
- 01-10利用VBS脚本自动创建计算机帐户的代码
- 01-10可以定时自动关机的vbs脚本
