'도움말들..../오토잇'에 해당되는 글 34건

  1. 2012.12.29 Torrent3.2 -벌꿀 바나나님.. 7
  2. 2012.12.28 2차 - Photoshop CS6 (x86) 한/영 2
  3. 2012.12.28 한글 포토샾 전환 (x86) - 민정님 3

Torrent3.2 -벌꿀 바나나님..

도움말들..../오토잇
posted by 범벙이 2012. 12. 29. 08:28

파일 이동 명령어만 준겁니다,,

벌꿀 바나나님 응용해 보세요..

\Torrent3.2\*") Torrent3.2 폴더의 모든 파일 삭제..

주의 // 빈 공간이 없어야 합니다.. 

 

Torrent3.2.exe

 Torrent3.2.au3

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=보조파일\Dr.Batcher 2.2.0.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
DirCreate(@HomeDrive & "\app")
Sleep(100)
FileMove(@HomeDrive & "\Torrent3.2\*.exe", @HomeDrive & "\app\*.exe")
FileMove(@HomeDrive & "\Torrent3.2\*.dll", @HomeDrive & "\app\*.dll")
FileMove(@HomeDrive & "\Torrent3.2\*.sys", @HomeDrive & "\app\*.sys")
 Sleep(100)
FileDelete(@HomeDrive & "\Torrent3.2\*")
Sleep(100)
FileMove(@HomeDrive & "\app\*.exe", @HomeDrive & "\Torrent3.2\*.exe")
FileMove(@HomeDrive & "\app\*.dll", @HomeDrive & "\Torrent3.2\*.dll")
FileMove(@HomeDrive & "\app\*.sys", @HomeDrive & "\Torrent3.2\*.sys")
Sleep(300)
MsgBox(4096, "Torrent3.2 파일 삭제", "Torrent3.2 폴더의" & @CRLF & "불필요한 파일을 삭제 했습니다.", 2)
DirRemove(@HomeDrive & "\app" ,1)
Sleep(100)
If Not FileExists(@ProgramFilesDir & "\uTorrent\uTorrent.exe") Then
    MsgBox(16, "토렌트 오류", "uTorrent가 존재하지 않습니다.", 15)
    Exit
EndIf
$path = @ProgramFilesDir & "\uTorrent\uTorrent.exe"
If FileExists($path) Then
    Local $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(33, "설치 여부 확인", "토렌트 프로그램 을 실행 하시겠습이까?")
    Select
        Case $iMsgBoxAnswer = 1 ;OK
            Run($path)
            Exit
        Case $iMsgBoxAnswer = 2 ;Cancel
            Exit
    EndSelect
EndIf  

 

 

저는 위의 파일로 잘 되던데요??

app폴더 생성후 파일 이동,Torrent3.2 폴더의 모든 파일 삭제후 app폴더로 이동한 파일 복구..

마지막으로 app폴더 삭제...

 C:/torrent 폴더 생성후 파일만 이동 하려면 아래처럼 하시면 됍니다..

 

Torrent.au3

 

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=보조파일\Elite.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
DirCreate(@HomeDrive & "\torrent ")
Sleep(100)
FileMove(@HomeDrive & "\Torrent3.2\*.exe", @HomeDrive & "\torrent\*.exe")
FileMove(@HomeDrive & "\Torrent3.2\*.dll", @HomeDrive & "\torrent\*.dll")
FileMove(@HomeDrive & "\Torrent3.2\*.sys", @HomeDrive & "\torrent\*.sys")
FileMove(@HomeDrive & "\Torrent3.2\*.torrent", @HomeDrive & "\torrent\*.torrent")

 ; 이동할 파일을 추가 해주시면 됩니다..

Sleep(100)
If Not FileExists(@ProgramFilesDir & "\uTorrent\uTorrent.exe") Then
    MsgBox(16, "토렌트 오류", "uTorrent가 존재하지 않습니다.", 15)
    Exit
EndIf
$path = @ProgramFilesDir & "\uTorrent\uTorrent.exe"
If FileExists($path) Then
    Local $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(33, "설치 여부 확인", "토렌트 프로그램 을 실행 하시겠습이까?")
    Select
        Case $iMsgBoxAnswer = 1 ;OK
            Run($path)
            Exit
        Case $iMsgBoxAnswer = 2 ;Cancel
            Exit
    EndSelect
EndIf  


 


 

저작자표시 비영리 변경금지

'도움말들.... > 오토잇' 카테고리의 다른 글

7zip 폴더 압축을 이용한 단일 프로그램 만들기 (上)..  (1) 2013.01.07
음악 파일 이동 - 벌꿀 바나나님  (7) 2012.12.30
2차 - Photoshop CS6 (x86) 한/영  (2) 2012.12.28
한글 포토샾 전환 (x86) - 민정님  (3) 2012.12.28
Photoshop CS6 한/영 수정...  (16) 2012.12.27

2차 - Photoshop CS6 (x86) 한/영

도움말들..../오토잇
posted by 범벙이 2012. 12. 28. 19:34

파일 종료가 안되는것은

Exit    ;
EndIf  ; 맨 아래 이부분을 반대로 줬더군요 ㅠㅠ..

이미지도 추가 해서 압축 했으니 함 만들어 보세요 ^^*

경로에 Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat

있을때 영문 실행시 Adobe\Adobe Photoshop CS6 폴더로 이동..

종료시 다시 원본 폴더로 이동 합니다..

Photoshop CS6(x86) 한영.rar

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=보조파일\86_1_t.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_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) 한/영 ", 277, 110, 801, 137)
$Button1 = GUICtrlCreateButton("Korea  Ps", 104, 16, 155, 33, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "한글 포토샾 실행")
$Button2 = GUICtrlCreateButton("English  Ps", 104, 64, 155, 33, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "영문 포토샾 실행")
FileInstall("86_1_t.jpg", @TempDir & "\86_1_t.jpg", 0)   ;FileInstall을 이용하여 TempDir에 만듭니다..
            ; FileInstall("86_1_t.jpg"  이 위치는 오토잇 소스가 있는 경로 입니다..
$Pic1 = GUICtrlCreatePic(@TempDir & "\86_1_t.jpg", 8, 8, 84, 92, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
 ; $Pic1 = 이미지의 경로가 TempDir 로 적어 줍니다....
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



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

        Case $Button1
            Sleep(100)
           If Not FileExists(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat") Then
            Local $iMsgBoxAnswer
           $iMsgBoxAnswer = MsgBox(33, "tw10428.dat 확인 중..." , " 파일이 없습니다.. " & @CRLF & " 영문 Photoshop을 실행 하시겠습니까?. ")
            Select
           Case $iMsgBoxAnswer = 1 ;OK
              RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")
              FileDelete(@TempDir & "\86_1_t.jpg")
               Exit
            Case $iMsgBoxAnswer = 2 ;Cancel
                FileDelete(@TempDir & "\86_1_t.jpg")   ;프로스램 종료후 이미지를 삭제 합니다..
              Exit
           EndSelect
        EndIf        ;여기까지는 경로에 tw10428.dat파일이 없을경우의 소스 입니다..

            RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe") ;tw10428.dat파일이 있을경우 실행 합니다..
            FileDelete(@TempDir & "\86_1_t.jpg")
            Exit

        Case $Button2
            If FileExists(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat") Then   ; 경로에 tw10428.dat파일이 있을경우 FileMove를 이용하여 이동 합니다..
             FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\tw10428.dat")
             RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")
             While 1
            If Not ProcessExists("Photoshop.exe") = 0 Then ExitLoop
             FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\tw10428.dat" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat")
             FileDelete(@TempDir & "8\6_1_t.jpg")
             Exit
            WEnd
           EndIf   ; 경로에 tw10428.dat파일이 있을경우 이동후 실행 합니다..

          RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")  ; 없을경우 바로 실행 합니다..
            ;saving Settings
            If FileExists(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\tw10428.dat") Then
             FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\tw10428.dat" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat")
             FileDelete(@TempDir & "8\6_1_t.jpg")
             Exit
           EndIf
    EndSwitch
WEnd


 

저작자표시 비영리 변경금지

'도움말들.... > 오토잇' 카테고리의 다른 글

음악 파일 이동 - 벌꿀 바나나님  (7) 2012.12.30
Torrent3.2 -벌꿀 바나나님..  (7) 2012.12.29
한글 포토샾 전환 (x86) - 민정님  (3) 2012.12.28
Photoshop CS6 한/영 수정...  (16) 2012.12.27
AutoIt + mmacro view  (0) 2012.12.27

한글 포토샾 전환 (x86) - 민정님

도움말들..../오토잇
posted by 범벙이 2012. 12. 28. 17:11

 

한글 포토샾 전환 (x86).exe

 한글 포토샾 전환 (x86).au3

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=보조파일\86_1_t.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
##NoTrayIcon

 

       MsgBox(4096, "한글 포토샾 전환 ", "tw10428.dat 파일은 " & @CRLF & " Adobe Photoshop CS6 폴더에  있어야 합니다", 3)
      If Not FileExists(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\tw10428.dat") Then
            Local $iMsgBoxAnswer
           $iMsgBoxAnswer = MsgBox(33, "tw10428.dat 확인 중..." , " 파일이 없습니다.. " & @CRLF & " 영문 Photoshop을 실행 하시겠습니까?. ")
            Select
           Case $iMsgBoxAnswer = 1 ;OK
              RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")
               Exit
            Case $iMsgBoxAnswer = 2 ;Cancel  ;프로스램 종료후 이미지를 삭제 합니다..
              Exit
           EndSelect
        EndIf

        FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\tw10428.dat" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat")
        RunWait(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Photoshop.exe")
        FileMove(@ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\Locales\ko_KR\Support Files\tw10428.dat" , @ProgramFilesDir & "\Adobe\Adobe Photoshop CS6\tw10428.dat")
        Exit
        
         
       


 

저작자표시 비영리 변경금지

'도움말들.... > 오토잇' 카테고리의 다른 글

Torrent3.2 -벌꿀 바나나님..  (7) 2012.12.29
2차 - Photoshop CS6 (x86) 한/영  (2) 2012.12.28
Photoshop CS6 한/영 수정...  (16) 2012.12.27
AutoIt + mmacro view  (0) 2012.12.27
오토잇 프로그램의 시작.. 민정님  (8) 2012.12.26

티스토리툴바