复制代码 代码如下:
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
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- 群星《烈焰 影视原声带》[320K/MP3][226.72MB]
- 张国荣1997-狂恋张国荣国语经典[巨星发烧HI-END20bit系列][宝丽金]WAV+CUE
- [发烧音乐]顶级音质《尊宝试音碟》绝版限量非卖品[WAV+CUE]
- 群星《紫水晶试音王2号》三维环绕特效天碟[WAV+CUE]
- SNH48袁一琦《24》[320K/MP3][32.74MB]
- SNH48袁一琦《24》[FLAC/分轨][100.42MB]
- 蓝奕邦《Snug In My Arms Live》[320K/MP3][138.99MB]
- CaraDillon-2006《AfterTheMorning》[WAV+CUE]
- 少女時代-BabyBaby[WAV分轨]
- [华语]群星《一人一首成名曲ONEHIFI歌手》2CD[WAV分轨]
- 【乡村摇滚(H)】EgilMydland-2024-Roverhistoria(FLAC)
- 小玥VS张佳《阿里山姑娘DSD》火烈鸟[WAV+CUE]
- 张小英2002-金嗓恋曲之旅2CD[马来西亚版][WAV+CUE]
- Ren Kai《Flow》[320K/MP3][33.02MB]
- Jasper Yu《鬼》[320K/MP3][32.11MB]