足球游戏_中国足彩网￥体育资讯$

前两天写了个批处理的，效率不高，百度、谷歌后找到一个更好的办法

代码如下:

Public ReadBinary

ReadBinaryDat(".\1.exe")

BinaryDat = Replace(Replace(ReadBinary, "526172211a07", "522172211a07"), "807a0161", "807a0121")

WriteBinaryDat "new.exe", BinaryDat

Function ReadBinaryDat(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 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