민정님의 요청에 의해 만든 소스를 올려 봅니다..
민정님께 도움이 되기를......
원본 파일과 예제 파일은 따로 올려 드리겠습니다..
아래 녹색의 ;(세미클론)은 프로그램에서 읽지 않습니다..
*** 이 색상의 파일 이름 및 경로만 고쳐 주시면 됍니다..
#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
'도움말들.... > 오토잇' 카테고리의 다른 글
AutoIt + mmacro view (0) | 2012.12.27 |
---|---|
오토잇 프로그램의 시작.. 민정님 (8) | 2012.12.26 |
파일 단일화 - 사치라면님 보세요.. (9) | 2012.12.23 |
중복 실행 방지.. (0) | 2012.09.27 |
프로그램 시작시 나오는 알림창 끄기 (0) | 2012.09.27 |