Unicode補完計畫，各Windows版本都適用「一鍵安裝版」

rictirse

因Vista導入iCacls存取權限機制，導致無法置換Code Page 950下的C_950.nls
造成Unicode安裝失敗，Unicode也停留在XP時代下的安裝模式，沒有一個新的配套措施
都需要使用手動新增擁有者，來置換C_950.nls，相當麻煩
在2010年時本人就在youtube上放上了Vista安裝補完計畫的教學影片
良久還是不見有人開發安裝版，所以就釋出了這個一件安裝版相容於各Windwos系統x64、x86平台
載點:點我下載
code 一樣開源，有需要的人自取

1. <font color="#000000">#RequireAdmin
   
2. #NoTrayIcon
   
3. 
   
4. #Region
   
5. #AutoIt3Wrapper_icon=C:NewDang.ico
   
6. #AutoIt3Wrapper_Compression=5
   
7. #AutoIt3Wrapper_Res_Comment=Unicode補完計畫
   
8. #AutoIt3Wrapper_Res_Description=Unicode補完計畫
   
9. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
   
10. #AutoIt3Wrapper_Res_LegalCopyright=噹噹
    
11. #EndRegion
    
12. 
    
13. Dim $DirPath = "C:WindowsSystem32"
    
14. Dim $FileName = "C_950.NLS"
    
15. Dim $FilePath = $DirPath&""&$FileName
    
16. Dim $C_950_MD_5 = "7f69955ce72ba9f187a686a637b8ffdd"
    
17. 
    
18. If StringInStr ( _MD5 ($FilePath), $C_950_MD_5) Then
    
19.         MsgBox ( 0, "", "已安裝過unicode，無須再次安裝。")
    
    
20. Else
    
21.         RunWait ( @ComSpec & " /c " & 'takeown /f '&$FilePath&' && icacls '&$FilePath&' /grant administrators:F ', $DirPath, @SW_HIDE)
    
22.         FileInstall ( "C_950.nls", $FilePath, 1)
    
23.         RunWait ( @ComSpec & " /c " & 'takeown /f '&$FilePath&' && icacls '&$FilePath&' /grant:r administrators:(RX)', $DirPath, @SW_HIDE)
    
24.         RunWait ( @ComSpec & " /c " & 'takeown /f '&$FilePath&' && icacls '&$FilePath&' /setowner "NT ServiceTrustedInstaller" /C', $DirPath, @SW_HIDE)
    
25.         MsgBox ( 0, "Unicode補完計畫", "Unicode補完計畫，已安裝完成，重開機即可。")
    
26. EndIf
    
27. 
    
28. Func _MD5($sFile)
    
29.         $hFile = FileOpen ($sFile, 16)
    
30.         $bData = FileRead ($hFile)
    
31.         $iLength = BinaryLen ($bData)
    
32.         FileClose($hFile)
    
33. 
    
34.         $tBuffer = DllStructCreate("byte[" & $iLength & "]")
    
35.         $pBuffer = DllStructGetPtr($tBuffer)
    
36.         DllStructSetData($tBuffer, 1, $bData)
    
37. 
    
38.         $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", 0x8003, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", 0, "dword*", 0)
    
39.         $tResult = DllStructCreate ("byte[" & $iResult[7] & "]")
    
    
40.         $pResult = DllStructGetPtr ($tResult)
    
41.         $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", 0x8003, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", $pResult, "dword*", $iResult[7])
    
42.         If $iResult[0] <> 0 Then Return StringTrimLeft (DllStructGetData ($tResult, 1), 2)
    
43. 
    
44.         $tBuffer = 0
    
45.         $tResult = 0
    
46. EndFunc</font>

複製代碼

ad6543210

現在大部分人會裝這個是因為網路上已經有很多裝了這個，並且用了裡面的擴充字來分享的內容

最常見的就是 BBS 上(很久沒玩了，不知道現在的 BBS 程式有沒有更新，以前只能 BIG5)

說他是另類病毒也不為過，用不用見仁見智囉～

用了就變成傳播者了

rictirse

ad6543210 發表於 2014-9-10 18:23
現在大部分人會裝這個是因為網路上已經有很多裝了這個，並且用了裡面的擴充字來分享的內容

最常見的就是 B ...

但是之前的檔案都是用他來命名的=.=
如果不繼續用，啥都看不到了Orz
只能一錯再錯嘍..

icemen

unicode補完計畫，針對許多早期公司用的資料庫程式，還是很有用的。

就算資料庫及OS支援unocode，但是許多早期的開發程式在無法正確顯示這些非big5支援字時，
unicode補完計畫還是很有用的。

列如VB6的GRID，或搭配Crystal Report 6等報表程式。

srooo

繁中系統  XP之後都會手動更改權限裝這個東西
資料夾 和 網路很多亂碼才會顯示
我想請教一下   我之前是連SYS 64 也一起替換 只要替換SYS 32的資料夾就好了嗎?(純粹問一下  哈哈)

bud

非常實用的補完計劃,收下了.感謝樓主的熱心!!!

ad6543210

rictirse 發表於 2014-9-10 19:48
但是之前的檔案都是用他來命名的=.=
如果不繼續用，啥都看不到了Orz
只能一錯再錯嘍..

基本上會有該問題是輸入法的關係(櫻花輸入法)

如果您使用的是網頁上的字複製貼上，都會自動轉換成 unicode 的，裝不裝補完計畫不會被影響

另外可以試試 myrename，本身可以將以前用 big5 寫的檔名轉換回 unicode

撒旦天使

問一下~裝了之後例如簡體或日文的軟體能正常顯示
是這樣的意思嗎?
我到現在還是用AppLocale來開簡體的軟體...不過還是很麻煩