复制代码 代码如下:
Public BinaryData
If (lcase(right(wscript.fullname,11))="wscript.exe") Then
WScript.Quit(0)
End If
If wscript.arguments.count<4 Then
Wscript.Echo "Change File Hex. By: lxzzr lxzzr@21cn.com"
Wscript.Echo ""
Wscript.Echo "Usage: cscript.exe " & WScript.ScriptName & " FilePath SavePath sHEX dHEX"
Wscript.Echo " : cscript.exe CHex.vbs "".\test.exe"" "".\new.exe"" ""80 7A 01 61"" ""80 7A 01 61"""
WScript.Quit(0)
End If
sHEX = Replace(LCase(Wscript.Arguments(2)), " ", "")
dHEX = Replace(LCase(Wscript.Arguments(3)), " ", "")
Wscript.Echo "File: " & Wscript.Arguments(0)
Wscript.Echo "sHEX: " & Wscript.Arguments(2)
Wscript.Echo "dHEX: " & Wscript.Arguments(3)
ReadBinary(Wscript.Arguments(0))
MyData = Replace(BinaryData, sHEX, dHEX)
WriteBinary Wscript.Arguments(1), MyData
Wscript.Echo "All done."
Wscript.Quit(0)
Function ReadBinary(FileName)
Dim Stream, ObjXML, MyNode
Set ObjXML = CreateObject("Microsoft.XMLDOM")
Set MyNode = ObjXML.CreateElement("binary")
Set Stream = CreateObject("ADODB.Stream")
MyNode.DataType = "bin.hex"
Stream.Type = 1
Stream.Open
Stream.LoadFromFile FileName
MyNode.NodeTypedValue = Stream.Read
Stream.Close
BinaryData = MyNode.Text
Set MyNode = Nothing
Set Stream = Nothing
Set ObjXML = Nothing
End Function
Function WriteBinary(FileName, BufferData)
Dim Stream, ObjXML, MyNode
Set ObjXML = CreateObject("Microsoft.XMLDOM")
Set MyNode = ObjXML.CreateElement("binary")
Set Stream = CreateObject("ADODB.Stream")
MyNode.DataType = "bin.hex"
MyNode.Text = BufferData
Stream.Type = 1
Stream.Open
Stream.Write MyNode.NodeTypedValue
Stream.SaveToFile FileName, 2
Stream.Close
Set stream = Nothing
Set MyNode = Nothing
Set ObjXML = Nothing
End Function
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- 星穹铁道劫火莲灯铸炼宫遗器强度 崩铁2.3劫火莲灯铸炼宫攻略
- Burmester《ArtForTheEar柏林之声4》【WAV+CUE】
- 《黑神话:悟空》Steam关注数增长6.7万人!热度飙升
- 三国谋定天下公测预下载开启 多职业战争策略手游
- AmanecerEcuador-TheWolfSpirit(2008)[wav]
- 崩坏星穹铁道2.3流萤抽专武还是命座 崩铁流萤专武命座选择攻略
- 成为烧鸟大师!沙雕游戏《制作烧鸟》将在Switch发售
- 索尼官宣《神秘海域》电影续作!前作豆瓣仅6分
- 陶德:不着急推出《辐射5》 剧集填补了一定的空白
- GS评游戏中令人印象深刻的父亲:杰洛特、乔尔上榜
- 10v10:4条分路、黄buff、随进随出详细解读
- 狂暴半肉诸葛亮半步T0?换套出装依然拉胯
- 体验服5.30:全变了!英雄、装备大调整
- 孙耀威.1998-爱有借有还【侠客唱片】【WAV+CUE】
- 群星.1990-6Pair半+城市民歌白金珍藏版【SONY】【WAV+CUE】