autoit 更改个人文件夹的小工具

V0.3 2008年6月1日
增加“在选项窗口的‘全选'、‘全取消'”的功能。
增加“在主窗口的将链接恢复到默认路径”的选项。

V0.2 2008年5月23日
增加“弹出式子窗口，用于添加项目并动态改变主窗口”的功能。
对更改过的路径，加深背景色突出显示。

V0.1 2008年5月23日
测试通过“我的文档，我的音乐，我的视频，我的收藏，我的桌面”的测试。
完成编程时动态增加选项功能。
#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 "Personal"=我的文档
 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
EndFunc   ;==>CLOSE

screenshot2.png (30.95 KB)

2008-6-1 21:04

打包下载autotiPersonal.v0.3.b080601.rar