bytes2BSTR
更新時間:2007年01月22日 00:00:00 作者:
復(fù)制代碼 代碼如下:
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
相關(guān)文章
自動寫入文件上傳到指定服務(wù)器SoftwareMeteringCLS.vbs源碼
本次文章其中所用腳本代碼為ghiconan版主提供的由Branimir petrovic編寫的代碼,我在后面根據(jù)我公司現(xiàn)有的網(wǎng)絡(luò)情況做了一些文件管理的添加與刪除,最后有用FTP批處理的方法上傳到服務(wù)器內(nèi)!2008-12-12
VBScript 監(jiān)控磁盤更改事件實現(xiàn)代碼
這篇文章主要介紹了如何用vbs實現(xiàn)監(jiān)控磁盤更改事件,需要的朋友可以參考下2013-07-07

