Windows 預設路徑修改器

rictirse

Windows 預設路徑修改器
適用 xp vista w7

1. #include <GUIConstants.au3>
   
2. 
   
3. Const $cnt = 18
   
4. Global $Input[$cnt],$BUT_1[$cnt],$BUT_2[$cnt],$BUT_3[$cnt]
   
5. Global $i,$Var
   
6. Global $Height[2] = [20,25],$Width[5] = [70,400,25,50,50]
   
7. Global $x[5] = [12,$Width[0]+20,$Width[0]+$Width[1]+25,$Width[0]+$Width[1]+$Width[2]+30,$Width[0]+$Width[1]+$Width[2]+$Width[3]+35],$y = 30
   
8. Global $FormWidth =  $x[4]+65, $FormHeight = 43+($cnt*$y)
   
9. Global $FormName = "修改路徑"
   
10. Global $GUI_BUT_Text[3] = ["...","Apply","Default"]
    
11. Global $RegName[$cnt] = [ "AppData", "Cache", "Cookies", "Desktop", "Favorites", "History", "Local AppData", "Local Settings", "My Pictures", "NetHood", "Personal", "PrintHood", "Programs","Recent", "SendTo", "Start Menu", "Startup", "Templates"]
    
12. Global $DefaultRoute[$cnt] = ["%USERPROFILE%Application Data", "%USERPROFILE%Local SettingsTemporary Internet Files", "%USERPROFILE%Cookies", "%USERPROFILE%桌面", "%USERPROFILE%Favorites", "%USERPROFILE%Local SettingsHistory", "%USERPROFILE%Local SettingsApplication Data", "%USERPROFILE%Local Settings", "%USERPROFILE%My DocumentsMy Pictures", "%USERPROFILE%NetHood", "%USERPROFILE%My Documents", "%USERPROFILE%PrintHood", "%USERPROFILE%「開始」功能表程式集", "%USERPROFILE%Recent", "%USERPROFILE%SendTo", "%USERPROFILE%「開始」功能表", "%USERPROFILE%「開始」功能表程式集啟動", "%USERPROFILE%Templates"]
    
    
13. GUICreate ( $FormName, $FormWidth, $FormHeight, Default, Default,1)
    
14. 
    
15. For $i=0 to $cnt-1
    
16.         GUICtrlCreateLabel ( $RegName[$i],  $x[0], 13+($i*$y), $Width[0], $Height[0])
    
17.         $Input[$i] = GUICtrlCreateInput ( RegRead ( "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders", $RegName[$i]), $x[1], 10+($i*$y), $Width[1], $Height[0])
    
18.         $BUT_1[$i] = GUICtrlCreateButton ( $GUI_BUT_Text[0], $x[2], 7+($i*$y), $Width[2], $Height[1])
    
19.         $BUT_2[$i] = GUICtrlCreateButton ( $GUI_BUT_Text[1], $x[3], 7+($i*$y), $Width[3], $Height[1])
    
20.         $BUT_3[$i] = GUICtrlCreateButton ( $GUI_BUT_Text[2], $x[4], 7+($i*$y), $Width[4], $Height[1])
    
21. Next
    
22. 
    
23. GUISetState (@SW_SHOW)
    
24. WinSetOnTop ( $FormName, "", 1)
    
25. 
    
26. 
    
27. While 1
    
28.         $nMsg = GUIGetMsg()
    
29.         For $i = 0 To $cnt-1
    
30.                 If $nMsg = $BUT_1[$i] Then
    
31.                         SelectFolder($i)
    
32.                 EndIf
    
33.                 If $nMsg = $BUT_2[$i] Then
    
34.                         apply($i)
    
35.                 EndIf
    
36.                 If $nMsg = $BUT_3[$i] Then
    
37.                         ReDefault($i)
    
    
38.                 EndIf
    
39.         Next
    
40.         
    
41.         Switch $nMsg
    
42.                 Case $GUI_EVENT_CLOSE
    
43.                         Exit
    
44.         EndSwitch
    
45. WEnd
    
46. 
    
47. 
    
48. Func SelectFolder($i)
    
49.         WinSetOnTop ( $FormName, "", 0)
    
50.         $Var = FileSelectFolder ( "請選擇目錄", "", 1, RegRead ( "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders", $RegName[$i]))
    
51.         WinWaitClose ( "瀏覽資料夾", "請選擇目錄")
    
52.         WinSetOnTop ( $FormName, "", 1)
    
53.         If $Var = "" Then
    
54.                 Error1()
    
55.                 GUICtrlSetData ( $Input[$i], RegRead ( "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders", $RegName[$i]))
    
56.         Else
    
57.                 If FileExists ($Var) = 1 Then
    
58.                         GUICtrlSetData ( $Input[$i], $Var)
    
59.                 Else
    
60.                         Error2()
    
    
61.                 EndIf
    
62.         EndIf
    
63. EndFunc
    
64. 
    
65. Func apply($i)
    
66.         If FileExists ($Var) = 1 Then
    
67.                 RegWrite ( "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders", $RegName[$i],"REG_SZ", GUICtrlRead ($Input[$i]))
    
68.         Else
    
69.                 Error2()
    
70.                 Return
    
71.         EndIf
    
72.         Reboot()
    
73. EndFunc
    
74. 
    
75. Func ReDefault($i)
    
76.         RegWrite ( "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders", $RegName[$i], "REG_SZ", $DefaultRoute[$i])
    
77.         Reboot()
    
78. EndFunc
    
79. 
    
80. Func Reboot()
    
81.         GUISetState (@SW_HIDE)
    
82.         If  MsgBox ( 36, $FormName,"已修改完成"&@CR&"重新啟動電腦後才會生效"&@CR&"是否馬上重新啟動") = 6 Then
    
83.                 Shutdown (2)
    
84.         Else
    
85.                 Exit
    
86.         EndIf
    
87. EndFunc
    
88. 
    
89. Func Error1()
    
90.         If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
    
91.                 ToolTip (@CR&"　　　　取消　　　　"&@CR&" ")
    
    
92.         Else
    
93.                 ToolTip (@CR&"　　　　取消　　　　"&@CR)
    
94.         EndIf
    
95.         Sleep (1500)
    
96.         ToolTip ( "")
    
97. EndFunc
    
98. 
    
99. Func Error2()
    
100.         If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
     
101.                 ToolTip (@CR&"　　　　路徑錯誤　　　　"&@CR&" ")
     
102.         Else
     
103.                 ToolTip (@CR&"　　　　路徑錯誤　　　　"&@CR)
     
104.         EndIf
     
105.         Sleep (1500)
     
106.         ToolTip ( "")
     
107. EndFunc

複製代碼

gary8349

請問噹噹超版，如何將右上角的XX加上去
或是在下面新增一個結束按鈕
謝謝囉~

rictirse

gary8349 發表於 2013-1-29 00:14
請問噹噹超版，如何將右上角的XX加上去
或是在下面新增一個結束按鈕
謝謝囉~ ...

[code=autoit]#include <GUIConstants.au3>

Const $cnt = 18
Global $Input[$cnt],$BUT_1[$cnt],$BUT_2[$cnt],$BUT_3[$cnt]
Global $i,$Var
Global $Height[2] = [20,25],$Width[5] = [70,400,25,50,50]
Global $x[5] = [12,$Width[0]+20,$Width[0]+$Width[1]+25,$Width[0]+$Width[1]+$Width[2]+30,$Width[0]+$Width[1]+$Width[2]+$Width[3]+35],$y = 30
Global $FormWidth =  $x[4]+60, $FormHeight = 10+($cnt*$y)
Global $FormName = "修改路徑"
Global $GUI_BUT_Text[3] = ["...","Apply","Default"]
Global $RegName[$cnt] = [ "AppData", "Cache", "Cookies", "Desktop", "Favorites", "History", "Local AppData", "Local Settings", "My Pictures", "NetHood", "Personal", "PrintHood", "Programs","Recent", "SendTo", "Start Menu", "Startup", "Templates"]
Global $DefaultRoute[$cnt] = ["%USERPROFILE%\Application Data", "%USERPROFILE%\Local Settings\Temporary Internet Files", "%USERPROFILE%\Cookies", "%USERPROFILE%\桌面", "%USERPROFILE%\Favorites", "%USERPROFILE%\Local Settings\History", "%USERPROFILE%\Local Settings\Application Data", "%USERPROFILE%\Local Settings", "%USERPROFILE%\My Documents\My Pictures", "%USERPROFILE%\NetHood", "%USERPROFILE%\My Documents", "%USERPROFILE%\PrintHood", "%USERPROFILE%\「開始」功能表\程式集", "%USERPROFILE%\Recent", "%USERPROFILE%\SendTo", "%USERPROFILE%\「開始」功能表", "%USERPROFILE%\「開始」功能表\程式集\啟動", "%USERPROFILE%\Templates"]
GUICreate ( $FormName, $FormWidth, $FormHeight)

For $i=0 to $cnt-1
        GUICtrlCreateLabel ( $RegName[$i],  $x[0], 13+($i*$y), $Width[0], $Height[0])
        $Input[$i] = GUICtrlCreateInput ( RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", $RegName[$i]), $x[1], 10+($i*$y), $Width[1], $Height[0])
        $BUT_1[$i] = GUICtrlCreateButton ( $GUI_BUT_Text[0], $x[2], 7+($i*$y), $Width[2], $Height[1])
        $BUT_2[$i] = GUICtrlCreateButton ( $GUI_BUT_Text[1], $x[3], 7+($i*$y), $Width[3], $Height[1])
        $BUT_3[$i] = GUICtrlCreateButton ( $GUI_BUT_Text[2], $x[4], 7+($i*$y), $Width[4], $Height[1])
Next

GUISetState (@SW_SHOW)
WinSetOnTop ( $FormName, "", 1)


While 1
        $nMsg = GUIGetMsg()
        For $i = 0 To $cnt-1
                If $nMsg = $BUT_1[$i] Then
                        SelectFolder($i)
                EndIf
                If $nMsg = $BUT_2[$i] Then
                        apply($i)
                EndIf
                If $nMsg = $BUT_3[$i] Then
                        ReDefault($i)
                EndIf
        Next

        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd


Func SelectFolder($i)
        WinSetOnTop ( $FormName, "", 0)
        $Var = FileSelectFolder ( "請選擇目錄", "", 1, RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", $RegName[$i]))
        WinWaitClose ( "瀏覽資料夾", "請選擇目錄")
        WinSetOnTop ( $FormName, "", 1)
        If $Var = "" Then
                Error1()
                GUICtrlSetData ( $Input[$i], RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", $RegName[$i]))
        Else
                If FileExists ($Var) = 1 Then
                        GUICtrlSetData ( $Input[$i], $Var)
                Else
                        Error2()
                EndIf
        EndIf
EndFunc

Func apply($i)
        If FileExists ($Var) = 1 Then
                RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", $RegName[$i],"REG_SZ", GUICtrlRead ($Input[$i]))
        Else
                Error2()
                Return
        EndIf
        Reboot()
EndFunc

Func ReDefault($i)
        RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", $RegName[$i], "REG_SZ", $DefaultRoute[$i])
        Reboot()
EndFunc

Func Reboot()
        GUISetState (@SW_HIDE)
        If  MsgBox ( 36, $FormName,"已修改完成"&@CR&"重新啟動電腦後才會生效"&@CR&"是否馬上重新啟動") = 6 Then
                Shutdown (2)
        Else
                Exit
        EndIf
EndFunc

Func Error1()
        If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
                ToolTip (@CR&"　　　　取消　　　　"&@CR&" ")
        Else
                ToolTip (@CR&"　　　　取消　　　　"&@CR)
        EndIf
        Sleep (1500)
        ToolTip ( "")
EndFunc

Func Error2()
        If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
                ToolTip (@CR&"　　　　路徑錯誤　　　　"&@CR&" ")
        Else
                ToolTip (@CR&"　　　　路徑錯誤　　　　"&@CR)
        EndIf
        Sleep (1500)
        ToolTip ( "")
EndFunc[/code]

rictirse

bear1alex1 發表於 2015-6-1 09:11
rictirse版大，這個程式碼看起來，僅僅寫入regedit吧？並沒有幫忙把檔案給複製過去，能否也把檔案給複製過 ...

對這只是一個改路徑 owner 跟 robocopy 或 xcopy 那也只是一兩行的function而已修改起來不困難..

rictirse

bear1alex1 發表於 2015-6-1 10:18
可是小弟遇到的重點是
1. 如果要遷移的帳號目錄是登入使用中的系統管理員的話, 則必需建立及登入使用另一 ...

使用中user 的 file會被lock是正常的
你現在要做的事情我還是不太懂
可以條列式的詳細敘述嗎?
你想達到什麼，目前使用什麼方法