[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] 三国志11 san11pk.exe 1.1 标题汉化工具vbs

原文:http://game.ali213.net/thread-3900097-1-1.html
  1. strFile = "san11pk.exe"
  2. Set AdoStrm = CreateObject("ADODB.Stream")
  3. AdoStrm.Mode = 3
  4. AdoStrm.Open
  5. AdoStrm.Type = 1
  6. AdoStrm.LoadFromFile strFile
  7. AdoStrm.SaveToFile strFile&".bak", 2
  8. AdoStrm.Position = 3744252 '&H003921FC  '0x003921FC
  9. AdoStrm.Write( HexToBin("C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6") )
  10. AdoStrm.SaveToFile strFile, 2
  11. AdoStrm.Close
  12. '三國志11 威力加強版
  13. 'BIG5内码: A454B0EAA7D3313120ABC2A44FA55BB16AAAA9
  14. 'GBK 内码: C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6
  15. function HexToBin(strHex)
  16.     dim XmlDom, oNode, ret
  17.     set XmlDom = CreateObject("MsXml2.DOMDocument.3.0")
  18.     XmlDom.async = false
  19.     XmlDom.loadXML("<root/>")
  20.     set oNode = XmlDom.firstChild
  21.     oNode.dataType = "bin.hex"
  22.     oNode.nodeTypedValue = strHex
  23.     ret = oNode.nodeTypedValue
  24.     set XmlDom = nothing
  25. HexToBin = ret
  26. end function
复制代码
保存为"标题汉化工具.vbs",放在游戏所在目录双击运行即可,会自动备份。
代码中的地址0x003921FC不知道会不会因每个人自己对程序的修改而改变,如果不放心,手动修改方法:
用WinHex打开san11pk.exe,搜索16进制值A454B0EAA7D3313120ABC2A44FA55BB16AAAA9,将其改为C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6即可。
再打开游戏窗口标题就不会显示为乱码"瓣в11 眏",而是"三國志11 威力加強版"。
1

评分人数

    • CrLf: HexToBin技术 + 1

HexToBin 好东西,收下了

TOP

回复 2# ivor


你有什么好玩的拿出来看看?

TOP

不好玩╮(╯﹏╰)╭

TOP

返回列表