通过本文主要向大家介绍了rar右键菜单,rar右键菜单没了,rar右键菜单没有,右键rar,内涵图右键rar你懂得等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com
原理: http://demon.tw/programming/vbs-binary-file-another.html
Sub WriteBinaryDat(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
</div>