校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > 用VBS讀寫二進制文件的另一種方法分享

用VBS讀寫二進制文件的另一種方法分享

熱門標簽:東營快遞外呼系統 除了地圖標注還有這種生意嗎 神行者美術館地圖標注 齊齊哈爾高德地圖標注店 如何用機器人進行電銷 地圖標注政府哪個部門管 佛山真人電銷機器人廠家 百度地圖標注點距離代碼 哪里有便宜的地圖標注公司
之前寫的那篇給出的方法雖然不錯,但是當文件過大時(其實很小,也就幾M),對應的數組也會很大,然后會出現運行時錯誤,提示內存耗盡,為此我郁悶了好久。

最近在博客的流量記錄中發現百度關鍵字“一些很惡作劇的vbs程序”(看來現在的年輕人很喜歡玩這口),于是打開久違的百度搜索了一下,發現出現在第三。出現在第二的是百度HI,上面也是一個惡作劇程序,而且還是加密的。我嘗試著解密,卻發現這個加密似乎比前幾天解密的那個病毒更變態,未果。

雖然我沒有把那個程序解密出來(如果哪位真正的高手會,麻煩指點一下),但是從中領悟出了用VBS讀寫二進制文件的另一種方法,即Microsoft.XMLDOM+ADODB.Stream。這個方法的效率比原來那個高得多,而且似乎沒有文件大小限制。
復制代碼 代碼如下:

Function ReadBinary(FileName)
Const adTypeBinary = 1
Dim stream, xmldom, node
Set xmldom = CreateObject("Microsoft.XMLDOM")
Set node = xmldom.CreateElement("binary")
node.DataType = "bin.hex"
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.LoadFromFile FileName
node.NodeTypedValue = stream.Read
stream.Close
Set stream = Nothing
ReadBinary = node.Text
Set node = Nothing
Set xmldom = Nothing
End Function

函數的參數是要讀取的文件路徑,返回值是包含二進制文件的十六進制值的字符串。
復制代碼 代碼如下:

Sub WriteBinary(FileName, Buf)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim stream, xmldom, node
Set xmldom = CreateObject("Microsoft.XMLDOM")
Set node = xmldom.CreateElement("binary")
node.DataType = "bin.hex"
node.Text = Buf
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.write node.NodeTypedValue
stream.saveToFile FileName, adSaveCreateOverWrite
stream.Close
Set stream = Nothing
Set node = Nothing
Set xmldom = Nothing
End Sub

第一個參數是要讀入的文件路徑,第二個參數是包含二進制文件的十六進制值的字符串。至于如何獲得二進制文件的十六進制值,那方法就很多了,最簡單的方法當然就是用fso對象將ReadBinary函數的返回值寫到文本文件中去,然后Ctrl+C,Ctrl+V。其實用十六進制工具也很簡單。

其他的就不多說了,看不懂的多看看MSDN參考文檔。寫了一個示例程序,里面包含了天空之城音樂的所有數據,雙擊后在同一文件夾生成天空之城的MP3文件并播放。

原文:http://demon.tw/programming/vbs-binary-file-another.html

標簽:海口 文山 邢臺 銅川 鶴壁 湖州 四平 西安

巨人網絡通訊聲明:本文標題《用VBS讀寫二進制文件的另一種方法分享》,本文關鍵詞  用,VBS,讀寫,二進制,文件,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《用VBS讀寫二進制文件的另一種方法分享》相關的同類信息!
  • 本頁收集關于用VBS讀寫二進制文件的另一種方法分享的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 理塘县| 漳浦县| 龙里县| 通化市| 双辽市| 宝清县| 乌兰察布市| 长泰县| 南木林县| 达州市| 黄陵县| 竹溪县| 阿拉尔市| 晋城| 巴彦县| 莎车县| 新巴尔虎左旗| 镇沅| 兴仁县| 巫山县| 丽江市| 龙南县| 汾阳市| 乌拉特后旗| 泰安市| 北流市| 宁海县| 桓台县| 合江县| 浪卡子县| 准格尔旗| 宣汉县| 辽阳市| 波密县| 建始县| 鸡西市| 乐安县| 五大连池市| 卓尼县| 吉安县| 望谟县|