bytes2BSTR
來源：本站原創(chuàng)|時間：2020-01-10|欄目：vb|點擊： 次
復(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
上一篇：遠(yuǎn)程開啟/關(guān)閉目標(biāo)telnet服務(wù)的windows腳本RTCS.vbs
欄 目：vb
下一篇：VBS教程：VBScript 基礎(chǔ)-使用條件語句
本文標(biāo)題：bytes2BSTR
本文地址：http://mengdiqiu.com.cn/a1/vb/8013.html
您可能感興趣的文章
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼，又稱qq刷屏器
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼
- 01-10VBS教程：字符集 (0 - 127)
- 01-10Restart.vbs源代碼可以重啟遠(yuǎn)程電腦的vbs
- 01-10ipclear.vbs源代碼
- 01-10FileSystemObject 示例代碼
- 01-10whoami.vbs源代碼
- 01-10利用VBS腳本自動創(chuàng)建計算機帳戶的代碼
- 01-10可以定時自動關(guān)機的vbs腳本
閱讀排行
本欄相關(guān)
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼，又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機閱讀
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 01-11ajax實現(xiàn)頁面的局部加載
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改
- 01-10delphi制作wav文件的方法
- 04-02jquery與jsp,用jquery
- 08-05織夢dedecms什么時候用欄目交叉功能？
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10C#中split用法實例總結(jié)
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 08-05DEDE織夢data目錄下的sessions文件夾有什