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

  1. 2012.12.26 Photoshop CS6(x86) 도우미 의 오토잇 소스 2
  2. 2012.12.23 파일 단일화 - 사치라면님 보세요.. 9
  3. 2012.09.27 중복 실행 방지..
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

posted by 범벙이 2012. 12. 23. 13:43

사치라면님께서 궁금 하실것 같아 올립니다..

ok님 단일파일 자료를 보시면 레지스트가 그대로 남아 있습니다..

 

DriverGenius-12k 실행후 작업관리자에서 2개의 실행파일 발견..

프로세스 위치 확인 -> 파일 위치 열기.....

Temp폴더에 압축이 풀린게 보이실 겁니다..

제가 보기엔 neos_packer_2 를 이용 하신것 같습니다..

예전에 http://usboffice.kr게뿔님 블로그에서 본것 같은데..

 

전에 세사기에 제가 자료 올린적이 있는데....

검색해 보니 아직 있네요 ㅎㅎ;;

neos_packer_2.exe

아래는  neos_packer_2 로 제가 만든 파일 캡쳐 입니다..

 

 

여기서 레지를 지울려면 레지스트만 추가 해주면 되네요..

만든분께서 여기에 대한 자세한 내용이 없어서 제가 몰랐나 봅니다..

방법은

1 ,토탈 언인스톨로 프로그램의 설치 및 삭제 레지스트를 추출 합니다..

2, 레지스트 설치 파일은 -> ins.reg   삭제 파일은 -> del.reg  로 만든 다음

    단일화할 폴더에 추가 해 줍니다..

3,  neos_packer 로 압축 하시면 끝..

 

실행후 레지스트 검색 결과 모두 삭제 되었습니다...

  

posted by 범벙이 2012. 9. 27. 20:11
If _Singleton("TEST") = 0 Then
    MsgBox(0, 'ERROR', '이미 프로그램이 실행중입니다.')
Else
    MsgBox(0, 'OK', '프로그램이 처음 실행되었습니다.')
EndIf

이 소스를 컴파일하여 Test.exe란 실행파일을 얻었습니다.
처음으로 Test.exe를 실행 시키면 "프로그램이 처음 실행되었습니다." 라는 메시지를 얻을 수 있겠죠...
이 상태에서 메시지 박스를 닫지 않은 상태에서  또 Test.exe 프로그램을 실행시킨다면 '이미 프로그램이 실행중입니다.'
라는 메시지를 얻을 수 있을 것입니다.

위 소스를 조금 수정해 보죠....

While 1
    If _Singleton("TEST") = 0 Then
        Exit
    Else
        Run('notepad.exe')
    EndIf
WEnd

컴파일하고 Test.exe를 실행합니다. 처음 Test.exe를 실행하면 노트패드가 실행되겠지만,

두번째 실행할 경우는노트패드 실행 없이 Test.exe가 종료될 것입니다.

물론 처음 실행된 것은 계속 실행되어 있겠죠...

예제에 조금 더 살을 붙이겠습니다. 우리가 원하는 Test.exe 프로그램은 노트패드가 이미 실행중이라면

더이상 노트패드가 실행되지 않기를 바랍니다.

Test.exe를 통하지 않고 실행된 노트패드까지 포함해서 말이죠...

누군가가 [시작]-[모든 프로그램]-[보조프로그램]-[메모장] 메뉴를 통해

노트패드를 실행하고 창을 숨겨두었습니다. 이경우 Test.exe를 실행하면 어떻게 될까요????
Test.exe가 실행되면서 노트패드를 열게 될것입니다. Test.exe 프로그램이 오류를 일으킨 셈이죠...

이럴 경우 사용 할 수 있는 방법이 ProcessExists()함수를 이용하는 방법입니다.

ProcessExists()함수는 인자로 받은 프로세스명 또는 프로세스ID가 이미 실행프로세스 상에

존재할 경우프로세스ID값을 반환합니다. 프로세스가 존재하지 않는다면 0을 반환하죠....

다음과 아래 예제는 위에서 언급한 문제를 해결한 소스입니다.

If ProcessExists('notepad.exe') = 0 Then
    Run('notepad.exe')

이제 이 소스를 컴파일한 Test.exe파일을 실행하면 이미 메모장이 실행되어 있을 경우

Test.exe는 아무 동작 없이 종료될 것이고 Test.exe를 몇번을 실행하더라도

메모장은 하나만 열려있을 것입니다.

펌(http://www.usboffice.kr/)