MuiCache Tools

gary8349

【軟體名稱】：MuiCache Tools
【軟體版本】：1.0.0.1
【檔案大小】：604KB
【檔案格式】：exe
【測試環境】：Windows 10 x64 教育版（Win7以下未測試）
【放置空間】：Google
【下載網址】：傳送門
【校驗工具】：Google

檔案 : MuiCache.exe
檔案大小 : 604.5 KB
建立日期 : 2019/09/18
修改日期 : 2019/09/18
CRC32碼 : 5AEEA73A
MD5碼 : 329FEB6DE29D9248859558F3D5B8544D
SHA1碼 : DDB3F47900E846B2413019EF1A84AB3787867042

剛好看到論壇上有人有改MuiCache的需求，
就順手寫了一支小工具雖然不及市面上的軟體直觀方便
但應該也夠用了XD
如果有Bug再請回饋，感謝~

載點內有附上AutoIt3源碼
後來寫得有點亂，傷眼見諒0.0


以下為功能介紹：（以 "文字文件" 做示範）

支援以下三個路徑：

'HKCUSoftwareMicrosoftWindowsShellNoRoamMUICache'
'HKCUSoftwareClassesLocal SettingsSoftwareMicrosoftWindowsShellMuiCache'
'HKCUSoftwareClassesLocal SettingsMuiCache***'

本工具可以讓你：
更方便於修改MuiCache項目的對應值（文字）
只要先選擇要修改的項目，

然後將要修改的文字修改好，
按下變更就好囉~

本工具亦支援使用命令行，格式如下（軟體路徑如有空格，請自行補上雙引號）

指令：MuiCache.exe "@C:WINDOWSsystem32notepad.exe,-469" "TXT文字項目"
說明：軟體名稱 "參數1 >>項目的名稱" "參數2>>要修改成的文字"

工具預覽：


變更示例：

gary8349

1. #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7
   
2. 
   
3. #cs
   
4. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   
5. |                                文件說明                                |
   
6. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   
7.         Dim   ==> 如變數名稱不存在於 Global 中，則設定為 Local 區域範圍
   
8.         Local ==> 宣告為 區域變數, 生命週期只有在 Fuction 裡面
   
9.         Gobal ==> 宣告為 全域變數, 生命週期從程式開始一直到結束
   
10.         Const ==> 常數，使用 Const 時，第一次一定要給右值，因其後便無法再 指定數值 給 Const 變數
    
11. #ce
    
12. 
    
13. 
    
14. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
15. ;;|                            編譯程式後的資訊                            |
    
16. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
17. #RequireAdmin
    
18. #AutoIt3Wrapper_Icon=C:\Program Files (x86)\AutoIt3\Icons\Kakeru.ico
    
19. #AutoIt3Wrapper_Compression=4
    
20. #AutoIt3Wrapper_UseUpx=y
    
21. #AutoIt3Wrapper_Res_HiDpi = y
    
22. #AutoIt3Wrapper_UseX64=n ;;; x86系統應將=y改為=n。;;將程序編譯為32位，能完美運行於64位系統中
    
23. #AutoIt3Wrapper_Res_Comment=MuiCache Tool
    
24. #AutoIt3Wrapper_Res_Description=MuiCache Tool
    
25. #AutoIt3Wrapper_Res_Fileversion=1.0.0.1
    
26. #AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2019 SHIWASU KAKERU 版權所有。保留一切權利。
    
27. #AutoIt3Wrapper_Res_Language=1028
    
28. #AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable
    
29. 
    
30. 
    
31. #cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
    
32. 
    
33.         Au3版本：3.3.14.5
    
34.         SciTE版本：3.6.6
    
35.         腳本作者：しわす かける（SHIWASU KAKER）
    
36. 
    
37.         腳本功能：MuiCache 修改
    
38.         參考代碼：
    
39. 
    
40. #ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿腳本開始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
    
41. 
    
42. 
    
43. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
44. ;;|                              載入Fuction                              |
    
45. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
46. #include <GUIConstantsEx.au3> ;;基本
    
47. #include <Misc.au3> ;;防止重複執行
    
48. #include <StaticConstants.au3> ;;控件
    
49. #include <ComboConstants.au3> ;;Combo
    
50. #include <WindowsConstants.au3> ;;Combo
    
51. #include <EditConstants.au3> ;;Input
    
52. #include <ButtonConstants.au3> ;;按鈕樣式
    
53. 
    
54. 
    
55. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
56. ;;|                              防止重複執行                              |
    
57. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
58. _Singleton(@ScriptName)
    
59. 
    
60. 
    
61. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
62. ;;|                         判斷是否以管理員身份執行                        |
    
63. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
64. Local $ADMIN
    
65. If IsAdmin() Then
    
66.         $ADMIN="當前管理員權限運行"
    
67. Else
    
68.         $ADMIN="當前非管理員權限運行"
    
69.         MsgBox(262144,'',$ADMIN)
    
70. EndIf
    
71. 
    
72. 
    
73. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
74. ;;|                                 宣告變數                                |
    
75. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
76. Global $GUIWidth = 800 ;;介面寬
    
77. Global $GUILength = 300 ;;介面高
    
78. Global $fontsize=13, $font_xing=300, $font_var=Default, $font_name='Microsoft JhengHei', $font_quality=5 ;;全局字體及大小（備用字體：'Comic Sans Ms'、'YaHei Consolas Hybrid'）
    
79. 
    
80. Global Const $Title = 'MuiCache Tool' ;;軟體名稱
    
81. Global Const $ver = '1.0.0.1' ;;版本號碼
    
82. 
    
83. Global $rootPath[5] = ["HKLM64", "HKU64", "HKCU64", "HKCR64", "HKCC64"]
    
84. Global $fa = 1
    
85. 
    
86. Global $RegAims1 = $rootPath[2] & '\Software\Microsoft\Windows\ShellNoRoam\MUICache'
    
87. Global $RegAims2 = $rootPath[2] & '\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache'
    
88. Global $RegAims3 = $rootPath[2] & '\Software\Classes\Local Settings\MuiCache'
    
89. 
    
90. Global $Valbtn = 'N'
    
91. Global $path
    
92. Global Const $help = '請使用正確的 參數1 和 參數2 喔~ ヽ(*´∀`)ﾉﾟ' & @CRLF & @CRLF & _
    
93.                                          '格式如下：' & @CRLF & _
    
94.                                          'MuiCache.exe "@C:\WINDOWS\system32\notepad.exe,-469" "TXT文字項目"' & @CRLF & @CRLF & _
    
95.                                          '指令說明：本軟體名稱 "註冊表項目" "說明文字(值)"'
    
96. 
    
97. Local $enVal, $val, $naPath, $na
    
98. Global $RunMode
    
99. Local $a,$b,$c,$d,$e,$f
    
100. 
     
101. 
     
102. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
103. ;;|                                模式判斷                                |
     
104. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
105. If $CmdLine[0] = 0 Then
     
106.         $RunMode = 'Windows'
     
107. ElseIf $CmdLine[0] = 2 Then
     
108.         $RunMode = 'Dos'
     
109. Else
     
110.         MsgBox(262144+16,'錯誤',$help,10)
     
111.         Exit
     
112. EndIf
     
113. 
     
114. 
     
115. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
116. ;;|                                Dos模式                                |
     
117. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
118. If $RunMode = 'Dos' Then
     
119.         ;;遍歷HKCU64\Software\Classes\Local Settings\MuiCache\
     
120.         readReg2($RegAims1, $fa)
     
121.         readReg2($RegAims2, $fa)
     
122.         readReg($RegAims3, $fa)
     
123. 
     
124.         ;;判斷是否REG含有要變更的值之項目
     
125.         If $Valbtn = 'Y' And $CmdLine[2] <> '' And $CmdLine[2] <> Null Then ;;檢查項值是否為空
     
126.                 _regWrite($path,$CmdLine[1],$CmdLine[2])
     
127.                 Sleep(50)
     
128.                 If RegRead($path,$CmdLine[1]) = $CmdLine[2] Then ;;檢查是否修改成功
     
129.                         ;;ConsoleWrite('修改完成' & @CRLF)
     
130.                         MsgBox(262144+64,'完成','已成功執行變更。',3)
     
131.                 Else
     
132.                         MsgBox(262144+48,'錯誤','無法變更項目值，請檢查是否有執行權限。',3)
     
133.                 EndIf
     
134.         ElseIf $Valbtn = 'N' Then
     
135.                 ;;ConsoleWrite('找不到項目' & @CRLF)
     
136.                 MsgBox(262144+48,'錯誤','找不到項目',3)
     
137.         Else
     
138.                 ;;ConsoleWrite('例外狀況' & @CRLF)
     
139.                 MsgBox(262144+48,'錯誤','例外狀況',3)
     
140.         EndIf
     
141.         Exit
     
142. EndIf
     
143. 
     
144. 
     
145. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
146. ;;|                                 主窗體                                 |
     
147. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
148. Opt("GUIOnEventMode",1);;使用事件模式
     
149. 
     
150. Global $Form1 = GUICreate($Title & ' v' & $ver,$GUIWidth,$GUILength,-1,-1)
     
151. GUISetFont($fontsize,$font_xing,$font_var,$font_name,$Form1,$font_quality) ;;全局字型
     
152. GUISetBkColor(0xffe6ea) ; 將變更背景色彩
     
153. GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
     
154. 
     
155. 
     
156. GUICtrlCreateLabel('MuiCache 路徑：',10,10,180,25)
     
157. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);;控件透明
     
158. GUICtrlSetFont(-1,$fontsize,700)
     
159. Global $MuiCachePath = GUICtrlCreateInput('',10,40,780,30,$ES_READONLY)
     
160. GUICtrlSetFont(-1,$fontsize-3)
     
161. 
     
162. GUICtrlCreateLabel('MuiCache 項目：',10,80,180,25)
     
163. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);;控件透明
     
164. GUICtrlSetFont(-1,$fontsize,700)
     
165. Global $MuiCacheItem = GUICtrlCreateCombo('',10,110,780,150,BitOR($CBS_DROPDOWN,$WS_VSCROLL,$CBS_NOINTEGRALHEIGHT,$CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
     
166. GUICtrlSetData($MuiCacheItem,'請選擇項目','請選擇項目')
     
167. GUICtrlSetFont(-1,$fontsize-4)
     
168. GUICtrlSetOnEvent(-1, "_combo")
     
169. 
     
170. #CS 樣式說明：
     
171. （$CBS_DROPDOWN,$WS_VSCROLL,$CBS_NOINTEGRALHEIGHT,$CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL）
     
172. 1.默认只显示编辑控件. 用户需点击编辑控件下拉箭头显示列表框.
     
173. 2.窗口带有垂直滚动条.
     
174. 3.创建组合框控件的应用程序确定组合框尺寸. 通常 Windows CE(掌上型电脑的操作系统) 的组合框, 部份项目不能显示.
     
175. 4.在列表框框中显示当前选择的静态文本字段.
     
176. 5.在编辑控件行右边结束的位置输入字符时自动卷动文本. 如果没有设置这个样式, 则只能输入适合编辑控件矩形边界的有限文本.
     
177. #CE
     
178. 
     
179. GUICtrlCreateLabel('MuiCache 項值：',10,155,180,25)
     
180. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);;控件透明
     
181. GUICtrlSetFont(-1,$fontsize,700)
     
182. Global $MuiCacheVal = GUICtrlCreateInput('',10,185,780,30)
     
183. GUICtrlSetFont(-1,$fontsize-3)
     
184. GUICtrlSetState(-1,$GUI_FOCUS) ;;預設光標所在位置
     
185. ;;GUICtrlSetColor(-1,0xb50000)
     
186. GUICtrlSetBkColor(-1,0xfff8e6)
     
187. 
     
188. Global $runBtn = GUICtrlCreateButton('變更',($GUIWidth/2)-(90/2),240,90,35,$BS_DEFPUSHBUTTON)
     
189. GUICtrlSetOnEvent(-1, "_apply")
     
190. 
     
191. GUICtrlCreateLabel('Power By MicroDuo',$GUIWidth-210,7,200,25,$SS_CENTER)
     
192. GUICtrlSetOnEvent(-1, "_OpenSite1")
     
193. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);;控件透明
     
194. GUICtrlSetFont(-1,$fontsize-1,700,2,$font_name)
     
195. GUICtrlSetColor(-1,0xf695a6)
     
196. GuiCtrlSetCursor(-1, 0)
     
197. 
     
198. GUICtrlCreateLabel('命令行用法',10,$GUILength-25-5,100,25)
     
199. GUICtrlSetOnEvent(-1, "_helper")
     
200. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);;控件透明
     
201. GUICtrlSetFont(-1,$fontsize-4,$font_var,4,$font_name)
     
202. GUICtrlSetColor(-1,0xCB0DF7)
     
203. GuiCtrlSetCursor(-1, 0)
     
204. 
     
205. GUISetState(@SW_SHOW)
     
206. 
     
207. readReg2($RegAims1, $fa)
     
208. readReg2($RegAims2, $fa)
     
209. readReg($RegAims3, $fa)
     
210. 
     
211. 
     
212. While 1
     
213.         Sleep(50)
     
214.         _ReduceMemory(@AutoItPID) ;;記憶體優化
     
215. WEnd
     
216. 
     
217. 
     
218. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
219. ;;|                                基本函數                                |
     
220. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
221. Func AForm1Close() ;;關閉本程序
     
222.         Exit
     
223. EndFunc
     
224. 
     
225. Func _ReduceMemory($i_PID = -1) ;;整理記憶體
     
226.         #CS ------ Function 來（修改）源 -------------------------
     
227.                 作者：eaglelin（綠色風's Blog）
     
228.                 網址：http://www.jianyiit.com/post-277.html
     
229.         #CE -------------------------------------------------------------------
     
230.         Local $ai_Return
     
231.         If $i_PID <> -1 Then
     
232.                 Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
     
233.                 $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
     
234.                 DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
     
235.         Else
     
236.                 $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
     
237.         EndIf
     
238.         Return $ai_Return[0]
     
239. EndFunc   ;==>_ReduceMemory
     
240. 
     
241. 
     
242. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
243. ;;|                                核心函數                                |
     
244. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
245. Func readReg($faPath, $step) ;;遍歷註冊表項，遍歷子鍵
     
246.         #CS ------ Function 來（修改）源 -------------------------
     
247.                 作者：vigiles
     
248.                 網址：https://autoit8.com/forum.php?mod=redirect&goto=findpost&ptid=43706&pid=569929&fromuid=7662477
     
249.         #CE -------------------------------------------------------------------
     
250. 
     
251.        
     
252.         While 1
     
253.                         ;獲取子鍵（父鍵，索引）
     
254.                         $naPath = RegEnumKey($faPath, $step)
     
255.                         If Not @error Then
     
256. 
     
257.                                         ;----------------------遍歷本鍵的項--------------------
     
258.                                         $na = 1
     
259.                                         While 1
     
260.                                                         ;;Sleep(50)
     
261.                                                         ;獲取項（鍵，索引）
     
262.                                                         $enVal = RegEnumVal($faPath & "\" & $naPath, $na)
     
263.                                                         If @error Then ExitLoop
     
264. 
     
265.                                                         ;讀取項的值（鍵，項）
     
266.                                                         $val = RegRead($faPath & "\" & $naPath, $enVal)
     
267. 
     
268.                                                         If $RunMode = 'Dos' Then
     
269.                                                                 ;;假如項目有與參數1相符
     
270.                                                                 If $enVal = $CmdLine[1] And $CmdLine[2] <> '' And $CmdLine[2] <> Null Then
     
271.                                                                         ;;開關打開
     
272.                                                                         $Valbtn = 'Y'
     
273.                                                                         ;;紀錄項目位置
     
274.                                                                         $path = $faPath & "\" & $naPath
     
275.                                                                 EndIf
     
276.                                                         ElseIf $RunMode = 'Windows' Then
     
277.                                                                 ;;GUICtrlSetData($MuiCachePath,$faPath & "\" & $naPath)
     
278.                                                                 GUICtrlSetData($MuiCacheItem,$enVal &  ' -- ' & $val,'請選擇項目')
     
279.                                                         EndIf
     
280. 
     
281.                                                         $na = $na + 1
     
282.                                         WEnd
     
283. 
     
284.                                         ;----------------------遍歷下一級 鍵---------------------
     
285.                                         readReg($faPath & "\" & $naPath, 1)
     
286.                         Else
     
287.                                         ExitLoop ;如果獲取結束，退出
     
288.                         EndIf
     
289. 
     
290.                         $step = $step + 1
     
291. 
     
292.         WEnd
     
293. EndFunc   ;==>readReg
     
294. 
     
295. Func readReg2($faPath, $step) ;;遍歷註冊表項，遍歷子鍵
     
296.         #CS ------ Function 來（修改）源 -------------------------
     
297.                 作者：vigiles
     
298.                 網址：https://autoit8.com/forum.php?mod=redirect&goto=findpost&ptid=43706&pid=569929&fromuid=7662477
     
299.         #CE -------------------------------------------------------------------
     
300. 
     
301.        
     
302.         While 1
     
303.                         If Not @error Then
     
304.                                         ;----------------------遍歷本鍵的項--------------------
     
305.                                         $na = 1
     
306.                                         While 1
     
307.                                                         ;;Sleep(50)
     
308.                                                         ;獲取項（鍵，索引）
     
309.                                                         $enVal = RegEnumVal($faPath, $na)
     
310.                                                         If @error Then ExitLoop
     
311.                                                         ;讀取項的值（鍵，項）
     
312.                                                         $val = RegRead($faPath, $enVal)
     
313.                                                         If $RunMode = 'Dos' Then
     
314.                                                                 ;;假如項目有與參數1相符
     
315.                                                                 If $enVal = $CmdLine[1] And $CmdLine[2] <> '' And $CmdLine[2] <> Null Then
     
316.                                                                         ;;開關打開
     
317.                                                                         $Valbtn = 'Y'
     
318.                                                                         ;;紀錄項目位置
     
319.                                                                         $path = $faPath & "\" & $naPath
     
320.                                                                 EndIf
     
321.                                                         ElseIf $RunMode = 'Windows' Then
     
322.                                                                 ;;GUICtrlSetData($MuiCachePath,$faPath & "\" & $naPath)
     
323.                                                                 GUICtrlSetData($MuiCacheItem,$enVal &  ' -- ' & $val,'請選擇項目')
     
324.                                                         EndIf
     
325.                                                         $na = $na + 1
     
326.                                         WEnd
     
327.                                         ;----------------------遍歷下一級 鍵---------------------
     
328.                                         If $faPath = $RegAims3 Then readReg($faPath & "\" & $naPath, 1)
     
329.                         Else
     
330.                                         ExitLoop ;如果獲取結束，退出
     
331.                         EndIf
     
332.                         $step = $step + 1
     
333.         WEnd
     
334. EndFunc   ;==>readReg
     
335. 
     
336. 
     
337. Func _regWrite($regpath,$regString,$regValue) ;;修改註冊表
     
338.         RegWrite($regpath,$regString,'REG_SZ',$regValue)
     
339. EndFunc
     
340. 
     
341. Func _FromComboToPath($item)
     
342.         $a = RegEnumKey($RegAims3,1)
     
343.         $b = RegEnumKey($RegAims3 & '\' & $a,1)
     
344.         $c = $RegAims3 & '\' & $a & '\' & $b
     
345.         $d = RegRead($c,$item)
     
346.         If @error = 0 Then Return $c
     
347. 
     
348.         $e = RegRead($RegAims1,$item)
     
349.         If @error = 0 Then Return $RegAims1
     
350. 
     
351.         $f = RegRead($RegAims2,$item)
     
352.         If @error = 0 Then Return $RegAims2
     
353.         Return '查無路徑'
     
354. EndFunc
     
355. 
     
356. 
     
357. 
     
358. 
     
359. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
360. ;;|                                其他函數                                |
     
361. ;;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     
362. Func _OpenSite($siteUrl) ;;修改註冊表
     
363.         Run(@ComSpec & " /c " & 'start ' & $siteUrl, "", @SW_HIDE)
     
364. EndFunc
     
365. 
     
366. Func _OpenSite1() ;;修改註冊表
     
367.         Local $url = 'https://www.microduo.tw/'
     
368.         _OpenSite($url)
     
369. EndFunc
     
370. 
     
371. Func _combo() ;;依選擇導入值
     
372.         Local $sStr = GUICtrlRead($MuiCacheItem)
     
373.         Local $str = StringSplit($sStr,' -- ',1)
     
374.         Local $mPath = _FromComboToPath($str[1])
     
375.         Local $val = RegRead($mPath, $str[1])
     
376. 
     
377.         If $sStr <> '請選擇項目' Then
     
378.                 GUICtrlSetData($MuiCachePath,$mPath)
     
379.                 GUICtrlSetData($MuiCacheVal,$val)
     
380.                 GUICtrlSetTip($MuiCacheItem,$val,'',0,0)
     
381.         EndIf
     
382.         Return
     
383. EndFunc
     
384. 
     
385. Func _apply() ;;執行修改
     
386.         If GUICtrlRead($MuiCacheItem) = '請選擇項目' Then Return
     
387.         If GUICtrlRead($MuiCacheVal) = '' Or GUICtrlRead($MuiCacheVal) = Null Then Return
     
388.         GUICtrlSetState($runBtn,$GUI_DISABLE)
     
389.         GUICtrlSetState($MuiCacheVal,$GUI_DISABLE)
     
390.         GUICtrlSetState($MuiCacheItem,$GUI_DISABLE)
     
391.         If MsgBox(262144+36, "", "確定要值行變更嗎？") <> 6 Then
     
392.                 GUICtrlSetState($runBtn,@SW_ENABLE)
     
393.                 GUICtrlSetState($MuiCacheVal,@SW_ENABLE)
     
394.                 GUICtrlSetState($MuiCacheItem,@SW_ENABLE)
     
395.                 Return
     
396.         EndIf
     
397.         Local $mPath = GUICtrlRead($MuiCachePath) ;;讀取MuiCache路徑
     
398.         Local $sStr = GUICtrlRead($MuiCacheItem) ;;讀取Combo
     
399.         Local $str = StringSplit($sStr,' -- ',1) ;;拆分Combo文字
     
400.         Local $sVal = RegRead($mPath,$str[1]) ;;從REG讀取原始項目值
     
401.         Local $newVal = GUICtrlRead($MuiCacheVal) ;;輸入的項目值
     
402. 
     
403.         If $sVal = $newVal Then ;;如果沒有輸入新的值，和舊值一樣則不更改
     
404.                 MsgBox(262144+48,'提示','舊值與新值相同，將不進行變更。',5)
     
405.                 GUICtrlSetState($runBtn,@SW_ENABLE)
     
406.                 GUICtrlSetState($MuiCacheVal,@SW_ENABLE)
     
407.                 GUICtrlSetState($MuiCacheItem,@SW_ENABLE)
     
408.                 Return
     
409.         Else
     
410.                 _regWrite($mPath,$str[1],$newVal) ;;執行項值更改
     
411.                 ;;判斷REG值和輸入值是否相同
     
412.                 If RegRead($mPath,$str[1]) = GUICtrlRead($MuiCacheVal) Then ;;修改成功
     
413.                         GUICtrlSetData($MuiCacheItem,'')
     
414.                         GUICtrlSetData($MuiCacheItem,'請選擇項目','請選擇項目')
     
415.                         readReg2($RegAims1, $fa)
     
416.                         readReg2($RegAims2, $fa)
     
417.                         readReg($RegAims3, $fa)
     
418.                         GUICtrlSetData($MuiCacheVal,'')
     
419.                         GUICtrlSetData($MuiCachePath,'')
     
420.                         MsgBox(262144+64,'完成','已成功執行變更。',5)
     
421.                         GUICtrlSetState($runBtn,@SW_ENABLE)
     
422.                         GUICtrlSetState($MuiCacheVal,@SW_ENABLE)
     
423.                         GUICtrlSetState($MuiCacheItem,@SW_ENABLE)
     
424.                         Return
     
425.                 Else ;;失敗
     
426.                         MsgBox(262144+16,'錯誤','無法變更項目值，請檢查是否有執行權限。',5)
     
427.                         GUICtrlSetState($runBtn,@SW_ENABLE)
     
428.                         GUICtrlSetState($MuiCacheVal,@SW_ENABLE)
     
429.                         GUICtrlSetState($MuiCacheItem,@SW_ENABLE)
     
430.                         Return
     
431.                 EndIf
     
432.         EndIf
     
433. EndFunc
     
434. 
     
435. Func _helper() ;;執行修改
     
436.         MsgBox(262144+64,'命令行用法',$help)
     
437. EndFunc
     
438. 
     
439. 
     

複製代碼