• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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

    screenshot1.png

    screenshot2.png (30.95 KB)

    2008-6-1 21:04

    screenshot2.png

    打包下载autotiPersonal.v0.3.b080601.rar
    您可能感兴趣的文章:
    • Python+AutoIt实现界面工具开发过程详解
    • python+selenium+autoit实现文件上传功能
    • AutoIt脚本的反编译和代码格式化问题分析
    • 使用AutoIT实现自动登录/退出客户端软件,删除日志
    • AutoIt3和按键精灵的功能对比
    • autoit入门教程小结
    • autoit GUI相关知识
    • Python selenium使用autoIT上传附件过程详解
    上一篇:AutoIt3和按键精灵的功能对比第1/2页
    下一篇:Au3截取腾讯天气的脚本
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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