bytes2BSTR
摘要:复制代码代码如下:Functionbytes2BSTR(vIn)strReturn=""Fori=1ToLenB(vIn)ThisCharC...
复制代码 代码如下:
Functionbytes2BSTR(vIn)
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction
【bytes2BSTR】相关文章:
★ vbScript中WScript.Shell对象的run和exec使用心得分享
★ xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本vbs
★ VBS教程:方法-GetExtensionName 方法
★ windows.vbs.FSO.文件操作信息.磁盘驱动信息.文件夹操作信息全集
下一篇:
vbs/js脚本编程教学(1)