AU3-更改个人文件夹的小工具

风一样的男孩

#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\工具\3.2.11.0.1\Aut2Exe\Icons\ce.ico
#AutoIt3Wrapper_Outfile=个人文件夹设置工具.V0.3.exe
#AutoIt3Wrapper_Res_Comment=用于改变个人文件夹的路径,应用后请立即重新启动计算机。
#AutoIt3Wrapper_Res_Description=Alex作品
#AutoIt3Wrapper_Res_Fileversion=0.3.1.080601
#AutoIt3Wrapper_Res_LegalCopyright=Alexandrer King
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#CS 注册表路径 ＝ HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
0 \"AppData\"=应用程序数据
1 \"Cookies\"=Cookies
2 \"Desktop\"=桌面
3 \"Favorites\"=收藏夹
4 \"NetHood\"=网上邻居，用于存贮添加到网上邻居中的其他计算机的快捷方式。
5 \&quotersonal\"=我的文档
6 \"PrintHood\"=打印机，用于存贮添加的打印机的快捷方式。
7 \"Recent\"=最近打开文件
8 \"SendTo\"=发送到
9 \"Start Menu\"=「开始」菜单
10 \"Templates\"=模板
11 \"Programs\"=「开始」菜单\\程序
12 \"Startup\"=「开始」菜单\\程序\\启动
13 \"Local Settings\"=Local Settings
14 \"Local AppData\"=Local Application Data
15 \"Cache\"=Internet缓存文件
16 \"History\"=历史
17 \"My Pictures\"=我的图片
18 \"Fonts\"=字体
19 \"My Music\"=我的音乐
20 \"CD Burning\"=CD Burning
21 \"My Video\"=我的视频
#CE
#include <GUIConstants.au3>
#include <Array.au3>
Opt(\"GUIOnEventMode\", 1) ; 切换为OnEvent模式
;下面是变量定义
Local Const $AllItem = 22
Global $HomeDriver, $HomePath, $HomeEnvironment, $nNumber
Dim $aDict[3][$AllItem] = [[\"AppData\", \"Cookies\", \"Desktop\", \"Favorites\", \"NetHood\", \"Personal\", _
\"PrintHood\", \"Recent\", \"SendTo\", \"Start Menu\", \"Templates\", \"Programs\", _
\"Startup\", \"Local Settings\", \"Local AppData\", \"Cache\", \"History\", _
\"My Pictures\", \"Fonts\", \"My Music\", \"CD Burning\", \"My Video\"],[\"应用程序\", _
\"Cookies\", \"桌面\", \"收藏夹\", \"网上邻居\", \"我的文档\", \"打印机\", \"最近打开\", _
\"发送到\", \"开始菜单\", \"模板\", \"程序\", \"启动\", \"本地设置\", \"本地数据\", \"缓存\", _
\"历史\", \"我的图片\", \"字体\", \"我的音乐\", \"CD 烧录\", \"我的视频\"]]
Dim $aIndex[6] = [\"2\", \"3\", \"5\", \"17\", \"19\", \"21\"]
$nNumber = UBound($aIndex)
;用一个8×X的数组放置相关信息，这些信息自aDict数组由aIndex作为索引获得，本数组分别存放的是：项目名，中文，键值，LabelID，InputID，ChangeButtonID，新键值,DefaultButtonID
Dim $avArray[$nNumber][8]
Dim $Form_Main, $Form_Child, $Button_Apply
Dim $TempIndex[$AllItem]
;下面是GUI
MainGUI()
;下面是程序主体
While 1
Sleep(1000) ; 空循环
WEnd
;下面是子函数
Func MainGUI()
Local Const $mWidth = 641
Local $mHeight = 81 + $nNumber * 30
$HomeDriver = RegRead(\"HKEY_CURRENT_USER\Volatile Environment\", \"HOMEDRIVE\")
$HomePath = RegRead(\"HKEY_CURRENT_USER\Volatile Environment\", \"HOMEPATH\")
$HomeEnvironment = $HomeDriver & $HomePath
#Region ### START Koda GUI section ###
$Form_Main = GUICreate(\"个人文件夹设置 by Alexandrer King\", $mWidth, $mHeight, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, \"CLOSE\")
GUISetFont(9, 800, 0, \"微软雅黑\")
$Label_Home = GUICtrlCreateLabel(\"当前用户的主路径：\" & $HomeEnvironment, 10, 10, 520, 20)
For $Loop1 = 1 To $nNumber
$sTemp1 = RegRead(\"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", $aDict[0][$aIndex[$Loop1 - 1]])
$avArray[$Loop1 - 1][0] = $aDict[0][$aIndex[$Loop1 - 1]]
$avArray[$Loop1 - 1][1] = $aDict[1][$aIndex[$Loop1 - 1]]
$avArray[$Loop1 - 1][2] = $sTemp1
$avArray[$Loop1 - 1][3] = GUICtrlCreateLabel($avArray[$Loop1 - 1][1], 10, 10 + 30 * $Loop1, 60, 20)
$avArray[$Loop1 - 1][4] = GUICtrlCreateInput($avArray[$Loop1 - 1][2], 70, 10 + 30 * $Loop1, 490, 20)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, 0xf0f0f0) ; 淡色
$avArray[$Loop1 - 1][5] = GUICtrlCreateButton(\"C\", 570, 10 + 30 * $Loop1, 30, 20)
GUICtrlSetOnEvent(-1, \"PointFolder\")
$avArray[$Loop1 - 1][7] = GUICtrlCreateButton(\"D\", 600, 10 + 30 * $Loop1, 30, 20)
GUICtrlSetOnEvent(-1, \"PointDefault\")
Next
$Button_Child = GUICtrlCreateButton(\"配置项目\", 10, $mHeight - 40, 70, 25)
GUICtrlSetOnEvent(-1, \"ChildGUI\")
$Button_Apply = GUICtrlCreateButton(\"应用更改\", 550, $mHeight - 40, 70, 25)
GUICtrlSetOnEvent(-1, \"WriteREG\")
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### START Koda GUI section ###
EndFunc ;==>MainGUI
Func ChildGUI()
#CS ===================================================================
下面是常见的矩阵式排布算法：
XBase 距离坐标0,0的X轴基础坐标
YBase 距离坐标0,0的Y轴基础坐标
XOffset 控件的X轴尺寸＋间距
YOffset 控件的Y轴尺寸＋间距
Scale Y轴的行控制变量
Matrix 矩阵系数
positionX X轴坐标
positionY Y轴坐标
#CE ===================================================================
GUIDelete($Form_Main)
Local Const $Matrix = Round(Sqrt($AllItem), 0)
Local Const $XOffset = 90, $YOffset = 30
Local Const $XBase = 10, $YBase = 10
Local $Scale = 0
Local Const $cWidth = 481, $cHeight = 241
$Form_Child = GUICreate(\"选择要配置的项目\", $cWidth, $cHeight, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, \"NewGUI\")
GUISetFont(-1, 8, 400, 0, \"微软雅黑\")
GUICtrlCreateLabel(\"请在下面的列表中勾选需要配置的项目\", 10, 15, 300, 20)
For $Loop4 = 1 To $AllItem
$positionX = $XBase + Mod(($Loop4 - 1), $Matrix) * $XOffset
If $positionX = $XBase Then
$Scale = $Scale + 1
EndIf
$positionY = $YBase + $Scale * $YOffset
$TempIndex[$Loop4 - 1] = GUICtrlCreateCheckbox($aDict[1][$Loop4 - 1], $positionX, $positionY, 90, 20)
Next
While UBound($aIndex)
GUICtrlSetState($TempIndex[_ArrayPop($aIndex)], $GUI_CHECKED)
WEnd
$Button_SelectAll = GUICtrlCreateButton(\"全选\", $cWidth / 2 + 60, $cHeight - 40, 50, 25)
GUICtrlSetOnEvent(-1, \"SelectAll\")
$Button_UnselectAll = GUICtrlCreateButton(\"全取消\", $cWidth / 2 - 110, $cHeight - 40, 50, 25)
GUICtrlSetOnEvent(-1, \"UnselectAll\")
$Button_ChildExit = GUICtrlCreateButton(\"确定\", $cWidth / 2 - 30, $cHeight - 40, 60, 30)
GUICtrlSetOnEvent(-1, \"NewGUI\")
GUISetState(@SW_SHOW)
EndFunc ;==>ChildGUI
Func SelectAll()
For $Loop6 = 1 To $AllItem
GUICtrlSetState($TempIndex[$Loop6 - 1], $GUI_CHECKED)
Next
EndFunc ;==>SelectAll
Func UNselectAll()
For $Loop7 = 1 To $AllItem
GUICtrlSetState($TempIndex[$Loop7 - 1], $GUI_UNCHECKED)
Next
EndFunc ;==>UNselectAll
Func NewGUI()
Dim $aIndex[1]
For $Loop5 = 1 To $AllItem
If GUICtrlRead($TempIndex[$Loop5 - 1]) = $GUI_CHECKED Then
_ArrayAdd($aIndex, $Loop5 - 1)
EndIf
Next
If UBound($aIndex) = 1 Then
$yonc = MsgBox(0x1024, \"注意\", \"您取消了 全部 的选项\" & @CRLF & _
\"这将使本程序没有可配置的项目\" & @CRLF & _
\"点 <是> 重新选择, 点 <否> 退出本程序.\")
If $yonc = 6 Then
Return
Else
Exit
EndIf
EndIf
_ArrayDelete($aIndex, 0)
$nNumber = UBound($aIndex)
ReDim $avArray[$nNumber][8]
MainGUI()
GUIDelete($Form_Child)
EndFunc ;==>NewGUI
Func WriteREG()
For $Loop3 = 1 To $nNumber
If $avArray[$Loop3 - 1][6] <> \"\" Then
RegWrite(\"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\", $avArray[$Loop3 - 1][0], \"REG_EXPAND_SZ\", $avArray[$Loop3 - 1][6])
$avArray[$Loop3 - 1][6] = \"\"
GUICtrlSetBkColor($avArray[$Loop3 - 1][4], 0xf0f0f0) ; 淡色
EndIf
Next
GUICtrlSetState($Button_Apply, $GUI_DISABLE)
EndFunc ;==>WriteREG
Func PointFolder()
Local $iIndex, $sNEWFolder
$iIndex = _ArraySearch($avArray, @GUI_CtrlId, 0, 0, 0, 1, 1, 5)
$sNEWFolder = FileSelectFolder(\"指定新的位置\", \"\", 7)
If Not @error Then
$avArray[$iIndex][6] = $sNEWFolder
GUICtrlSetData($avArray[$iIndex][4], $sNEWFolder)
GUICtrlSetBkColor($avArray[$iIndex][4], 0xd5f0f0) ; 淡色略深
GUICtrlSetState($Button_Apply, $GUI_Enable)
EndIf
EndFunc ;==>PointFolder
Func PointDefault()
Local $iIndex, $sNEWFolder
$iIndex = _ArraySearch($avArray, @GUI_CtrlId, 0, 0, 0, 1, 1, 7)
$sNEWFolder = RegRead(\"HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\", $avArray[$iIndex][0])
If Not @error Then
$sTempNEWFolder = StringReplace($sNEWFolder, \"%USERPROFILE%\", $HomeEnvironment)
$avArray[$iIndex][6] = $sTempNEWFolder
GUICtrlSetData($avArray[$iIndex][4], $sTempNEWFolder)
Else
$avArray[$iIndex][6] = \"\"
GUICtrlSetData($avArray[$iIndex][4], \"\")
EndIf
GUICtrlSetBkColor($avArray[$iIndex][4], 0xd5f0f0) ; 淡色略深
GUICtrlSetState($Button_Apply, $GUI_Enable)
EndFunc ;==>PointDefault
Func CLOSE()
Exit