san11pk.exe 1.1 标题汉化工具vbs

老婆貂蝉

1. strFile = "san11pk.exe"
   
2. 
   
3. Set AdoStrm = CreateObject("ADODB.Stream")
   
4. AdoStrm.Mode = 3
   
5. AdoStrm.Open
   
6. AdoStrm.Type = 1
   
7. AdoStrm.LoadFromFile strFile
   
8. AdoStrm.SaveToFile strFile&".bak", 2
   
9. AdoStrm.Position = 3744252 '&H003921FC  '0x003921FC
   
10. AdoStrm.Write( HexToBin("C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6") )
    
11. AdoStrm.SaveToFile strFile, 2
    
12. AdoStrm.Close
    
13. 
    
14. '三國志11 威力加強版
    
15. 'BIG5内码: A454B0EAA7D3313120ABC2A44FA55BB16AAAA9
    
16. 'GBK 内码: C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6
    
17. 
    
18. function HexToBin(strHex)
    
19.     dim XmlDom, oNode, ret
    
20.     set XmlDom = CreateObject("MsXml2.DOMDocument.3.0")
    
21.     XmlDom.async = false
    
22.     XmlDom.loadXML("<root/>")
    
23.     set oNode = XmlDom.firstChild
    
24.     oNode.dataType = "bin.hex"
    
25.     oNode.nodeTypedValue = strHex
    
26.     ret = oNode.nodeTypedValue
    
27.     set XmlDom = nothing
    
28. HexToBin = ret
    
29. end function

复制代码

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

52LGZ

用WinHex打开san11pk.exe，搜索16进制值A454B0EAA7D3313120ABC2A44FA55BB16AAAA9，将其改为C8FD87F8D6BE313120CDFEC1A6BCD38F8AB0E6即可。

这么简单？为什么以前没想到，也没看到有人提过。不错，只是来得太晚了。

關雲長

直接用UE修改就是，改成简体字，繁体系统变乱码，改成英文最好，这样绝不会出现乱码字。

红尘紫陌

感谢~很有用~
虽然早就改了{:2:}

jimjinhu

还有这种法子，呵呵。

飞在风中的小雨

支持下技术贴