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)文章
忽然想到要用VBS來代替BAT或CMD文件進行命令集成，于是開始下苦工學(xué)習(xí)了一番！在網(wǎng)上找了好久終于找到東西。2008-06-06
msxml3.dll 錯誤 80070005拒絕訪問。 解決辦法： 賦予程序所在文件夾 internet 來賓帳號(IUSR_WEB)可寫。2011-01-01
今天我們學(xué)習(xí)基礎(chǔ)篇的最后一個部分:自定義函數(shù)和過程. 我們每天都在和函數(shù)打交道, inputbox()是函數(shù), msgbox()是函數(shù), int()也是函數(shù)...這些函數(shù)都是系統(tǒng)內(nèi)建的, 我們只能用不能改. 今天我就教大家怎樣自己制作一個函數(shù)2007-07-07
自動寫入文件上傳到指定服務(wù)器SoftwareMeteringCLS.vbs源碼
本次文章其中所用腳本代碼為ghiconan版主提供的由Branimir petrovic編寫的代碼，我在后面根據(jù)我公司現(xiàn)有的網(wǎng)絡(luò)情況做了一些文件管理的添加與刪除，最后有用ＦＴＰ批處理的方法上傳到服務(wù)器內(nèi)！2008-12-12
vbs解答 一道初中數(shù)學(xué)題 i+100=x^2 i+168=y^2 求 i,x,y2008-07-07
這篇文章主要介紹了通過VBS 提取狗狗影視中的ED2K連接，需要的朋友可以參考下2013-07-07
用vbs刪除前一天創(chuàng)建的備份文件...2007-03-03
VBS教程：函數(shù)-Asc 函數(shù)...2006-11-11
VBScript 監(jiān)控磁盤更改事件實現(xiàn)代碼
這篇文章主要介紹了如何用vbs實現(xiàn)監(jiān)控磁盤更改事件，需要的朋友可以參考下2013-07-07
在系統(tǒng)維護或者數(shù)據(jù)庫維護是常常需要查看的日志文件，然為日志文件往往都比較大，甚至用記事本無法打開。2010-11-11