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

powerbat

原文：http://game.ali213.net/thread-3900097-1-1.html

strFile = "san11pk.exe"

Set AdoStrm = CreateObject("ADODB.Stream")
AdoStrm.Mode = 3
AdoStrm.Open
AdoStrm.Type = 1
AdoStrm.LoadFromFile strFile
AdoStrm.SaveToFile strFile&".bak", 2
AdoStrm.Position = 3744252 '&H003921FC  '0x003921FC
AdoStrm.Write( HexToBin("C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6") )
AdoStrm.SaveToFile strFile, 2
AdoStrm.Close

'三國志11 威力加強版
'BIG5内码: A454B0EAA7D3313120ABC2A44FA55BB16AAAA9
'GBK 内码: C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6

function HexToBin(strHex)
    dim XmlDom, oNode, ret
    set XmlDom = CreateObject("MsXml2.DOMDocument.3.0")
    XmlDom.async = false
    XmlDom.loadXML("<root/>")
    set oNode = XmlDom.firstChild
    oNode.dataType = "bin.hex"
    oNode.nodeTypedValue = strHex
    ret = oNode.nodeTypedValue
    set XmlDom = nothing
HexToBin = ret
end function
复制代码

保存为"标题汉化工具.vbs"，放在游戏所在目录双击运行即可，会自动备份。
代码中的地址0x003921FC不知道会不会因每个人自己对程序的修改而改变，如果不放心，手动修改方法：
用WinHex打开san11pk.exe，搜索16进制值A454B0EAA7D3313120ABC2A44FA55BB16AAAA9，将其改为C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6即可。
再打开游戏窗口标题就不会显示为乱码"�T瓣в11 �陇O�[眏��"，而是"三國志11 威力加強版"。

ivor

不好玩╮(╯﹏╰）╭

find

回复 2# ivor


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

CrLf

HexToBin 好东西，收下了