posted by 범벙이 2012. 12. 26. 20:38

민정님의 요청에 의해 만든 소스를 올려 봅니다..

민정님께 도움이 되기를......

원본 파일과 예제 파일은 따로 올려 드리겠습니다..

아래 녹색의 ;(세미클론)은 프로그램에서 읽지 않습니다..

***  이 색상의 파일 이름 및 경로만 고쳐 주시면 됍니다..

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\모든파일\이미지모음\ICONS\ICO 즐겨쓰는\1000.ico  ; 프로그램의 아이콘 경로
#EndRegion ;**** Directives created by
utoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\jnb\desktop\form1.kxf
$Form1_1 = GUICreate("Photoshop CS6 (x86) 도우미", 333, 135, 197, 132)          ;프로그램 제목
$Button0 = GUICtrlCreateButton("CR 폴더 삭제/ 포토샾 실행..", 104, 16, 219, 41, $WS_GROUP)   ;버튼
GUICtrlSetTip(-1, "C:\cr폴더 삭제후 포토샾 실행 합니다..")    ;버튼을 눌렀을때 보이는 팁
$Button1 = GUICtrlCreateButton("reamme.txt 파일 이동 / 포토샾 실행..", 104, 72, 219, 41, $WS_GROUP)     ; 버튼
GUICtrlSetTip(-1, "Adobe Photoshop CS6 폴더로 이동 합니다." & @CRLF & "Adobe Photoshop 종료후 reamme.txt 파일 복구.")    ;버튼을 눌렀을때 보이는 팁
$Pic1 = GUICtrlCreatePic("C:\Users\jnb\Desktop\fb2d3997f1927e9e444009891b0c59e0.gif", 8, 8, 84, 116, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))      ;  이미지 경로
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button0   ; 첫번째 버튼
            DirRemove(@HomeDrive & "\cr", 1)  ; 삭제할 폴더 경로  ( DirRemove는 폴더를 삭제함!)
            FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Plug-ins\reamme.txt" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\reamme.txt")
            ;FileMove  는 파일 이동 - ProgramFiles의 원본 경로에서 ProgramFiles의 다른 곳으로 파일 이동
            RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")  ; 실행할 프로그램 .exe
            Exit
        Case $Button1    ;  두번째 버튼 1,경로에 reamme.txt 가 없는 경우
            If Not FileExists(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Plug-ins\reamme.txt") Then  ;만약 reamme.txt 가  없다면
            Local $iMsgBoxAnswer
           $iMsgBoxAnswer = MsgBox(33, "reamme.txt 확인 중..." , " 파일이 없습니다.. " & @CRLF & " Photoshop 실행 하시겠습니까?. ")
            Select
           Case $iMsgBoxAnswer = 1 ;프로그램 실행
              RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")  ;실행할 프로그램 경로
              While 1     ; 여기부터  Photoshop.exe프로세스가 종료 하기 전에  파일을 원하는 곳으로 이동(복구)
              If Not ProcessExists("Photoshop.exe") = 0 Then ExitLoop    
              FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\reamme.txt" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Plug-ins\reamme.txt")
              ; FileMove - reamme.txt 가 있는 경로에서 이동할곳 의 경로 지정
              Sleep(200)  ;2초 동안 아무것도 안함
              WEnd
               Exit  ; 종료
           Case $iMsgBoxAnswer = 2 ; 그냥 종료할 경우 종료
              Exit
           EndSelect
            EndIf      ;  두번째 버튼 1,경로에 reamme.txt 가 없는 경우 끝 ....................
            ;  여기서 부터 두번째 버튼 2,경로에 reamme.txt 가  있는 경우
            FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Plug-ins\reamme.txt" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\reamme.txt")
            ;FileMove  는 파일 이동 - ProgramFiles의 원본 경로에서 ProgramFiles의 다른 곳으로 파일 이동
            RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")  ;실행할 프로그램 경로
            While 1     ; 여기부터  Photoshop.exe프로세스가 종료 하기 전에  파일을 원하는 곳으로 이동(복구)
            If Not ProcessExists("Photoshop.exe") = 0 Then ExitLoop
           FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\reamme.txt" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Plug-ins\reamme.txt")
            ; FileMove - reamme.txt 가 있는 경로에서 이동할곳 의 경로 지정
            Sleep(200)
            WEnd
            Exit   ; 종료
    EndSwitch
WEnd
Exit


 

 

오토잇 프로그램은 - 세사기로 이동   http://ho82.kr/247294

 

Photoshop CS6 도우미.exe

 

Photoshop CS6 도우미.au3

 

도우미 예문.au3