三国志11 san11pk.exe 1.1 标题汉化工具vbs

powerbat

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

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

复制代码

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

ivor

不好玩╮(╯﹏╰）╭

find

回复 2# ivor


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

CrLf

HexToBin 好东西，收下了