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\#AutoIt3WrapperOutfile=개인 폴 더 설정 도구.V0.3.exe\#AutoIt3WrapperRes_Comment=개인 폴 더 의 경 로 를 바 꾸 는 데 사 용 됩 니 다.적용 후 바로 컴퓨터 를 다시 시작 하 십시오.\#AutoIt3Wrapper_Res_설명=Alex work\#AutoIt3WrapperRes_Fileversion=0.3.1.080601#AutoIt3Wrapper_Res_LegalCopyright=Alexandrer King#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
\#CS 레 지 스 트 경로=HKEYCURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders 0 "AppData"=응용 프로그램 데이터 1 "Cookies"=Cookies 2 "데스크 톱"=데스크 톱 3 "즐겨 찾기"=즐겨 찾기 폴 더 4 "넷 후드=인터넷 이웃,인터넷 이웃 에 추 가 된 다른 컴퓨터 를 저장 하 는 단축 키. 5 "Personal"=내 문서 6 "PrintHood=프린터,추 가 된 프린터 를 저장 하 는 단축 키 입 니 다. 7 "Recent"=최근 파일 열기 8 "SendTo"=보 내기 9 "Start Menu"="시작"메뉴 10 "템 플 릿"=템 플 릿 11 "Programs"="시작"메뉴\\프로그램 12 "시작"="시작"메뉴\\프로그램\\시작 13 "Local Settings"=Local Settings 14 "Local AppData"=Local Application Data 15 "캐 시"=인터넷 캐 시 파일 16 "역사 17 "My Pictures"=나의 그림 18 "글꼴"=글꼴 19 "My Music"=나의 음악 20 "CD Burning"=CD Burning 21 "My Video"=나의 영상\#CE
#include #include Opt("GUIOnEventMode", 1) ; OnEvent 모드 로 전환
;다음은 변수 정의 Local Const$AllItem=22 Global$HomeDriver,$HomePath,$HomeEnvironment,$nNumberDim$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 굽 기","My Video"],["응용 프로그램",  "Cookies","데스크 톱","즐겨 찾기 폴 더","인터넷 이웃","내 문서","프린터","최근 에 열기",  "","시작 메뉴","템 플 릿","프로그램","시작","로 컬 설정","로 컬 데이터","캐 시",  "역사","나의 그림","글씨체","나의 음악","CD 녹음","나의 영상"]]Dim$aIndex[6]=["2","3","5","17","19","21"]$nNumber=UBound($aIndex);하나 로×X 의 배열 은 관련 정 보 를 배치 합 니 다.이 정 보 는 aDict 배열 에서 aIndex 를 색인 으로 얻 을 수 있 습 니 다.이 배열 은 각각 항목 이름,중국어,키,LabelID,InputID,ChangeButtonID,새 키,DefaultButtonID Dim$avArray[$nNumber][8]Dim$Form 을 저장 합 니 다.Main, $Form_Child, $Button_ApplyDim $TempIndex[$AllItem]
;다음은 GUIMainGUI()입 니 다.
;다음은 프로그램 주체 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("Alexandrer King 의 개인 폴 더 설정",$mWidth,$mHeight,-1,-1) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE") GUISetFont(9,800,0,"마이크로소프트 아 흑") $Label_홈=GUICtrlCreate Label("현재 사용자 의 주 경로:"&$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_적용=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,"마이크로소프트 아 흑") GUICtrlCreate Label("아래 목록 에서 설정 할 항목 을 선택 하 십시오",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) NextEndFunc   ;==>SelectAll
Func UNselectAll() For $Loop7 = 1 To $AllItem  GUICtrlSetState($TempIndex[$Loop7 - 1], $GUI_UNCHECKED) NextEndFunc   ;==>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(0x 1024,"주의","모든 옵션 을 취 소 했 습 니 다"&@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) EndIfEndFunc   ;==>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() ExitEndFunc   ;==>CLOSE

screenshot2.png (30.95 KB)
2008-6-1 21:04

포장