bytes2BSTR
更新时间：2007年01月22日 00:00:00 作者：
复制代码 代码如下:
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
相关文章
忽然想到要用VBS来代替BAT或CMD文件进行命令集成，于是开始下苦工学习了一番！在网上找了好久终于找到东西。2008-06-06
msxml3.dll 错误 80070005拒绝访问。 解决办法： 赋予程序所在文件夹 internet 来宾帐号(IUSR_WEB)可写。2011-01-01
今天我们学习基础篇的最后一个部分:自定义函数和过程. 我们每天都在和函数打交道, inputbox()是函数, msgbox()是函数, int()也是函数...这些函数都是系统内建的, 我们只能用不能改. 今天我就教大家怎样自己制作一个函数2007-07-07
自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码
本次文章其中所用脚本代码为ghiconan版主提供的由Branimir petrovic编写的代码，我在后面根据我公司现有的网络情况做了一些文件管理的添加与删除，最后有用ＦＴＰ批处理的方法上传到服务器内！2008-12-12
vbs解答 一道初中数学题 i+100=x^2 i+168=y^2 求 i,x,y2008-07-07
这篇文章主要介绍了通过VBS 提取狗狗影视中的ED2K连接，需要的朋友可以参考下2013-07-07
用vbs删除前一天创建的备份文件...2007-03-03
VBS教程：函数-Asc 函数...2006-11-11
这篇文章主要介绍了如何用vbs实现监控磁盘更改事件，需要的朋友可以参考下2013-07-07
在系统维护或者数据库维护是常常需要查看的日志文件，然为日志文件往往都比较大，甚至用记事本无法打开。2010-11-11
最新评论