怎么用VBS讀寫二進(jìn)制文件

這篇文章給大家分享的是有關(guān)怎么用VBS讀寫二進(jìn)制文件的內(nèi)容。小編覺得挺實(shí)用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

之前寫的那篇給出的方法雖然不錯，但是當(dāng)文件過大時（其實(shí)很小，也就幾M），對應(yīng)的數(shù)組也會很大，然后會出現(xiàn)運(yùn)行時錯誤，提示內(nèi)存耗盡，為此我郁悶了好久。

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

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

復(fù)制代碼 代碼如下:

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

函數(shù)的參數(shù)是要讀取的文件路徑，返回值是包含二進(jìn)制文件的十六進(jìn)制值的字符串。

復(fù)制代碼 代碼如下:

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

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

感謝各位的閱讀！關(guān)于“怎么用VBS讀寫二進(jìn)制文件”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！