네이트온 자동설치 프로그램

AutoIt 프로그램을 사용하여 자동설치 프로그램 제작

autoit-v3-setup.exe

위의 프로그램 다운로드 후 설치

아래의 스크립트를 복사한 후 메모장에 넣고 au3 확장자로 저장
저장된 파일의 마우스 오른쪽 클릭후 CompileScript 선택하면 자동으로 exe 파일이 만들어진다.

#requireadmin
$CHK = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{697E41EA-AEBE-4B5F-884E-87B5CD6C70AC}","InstallLocation")
$downfile = "http://br.nate.com/index.php?code=F043"     ;설치 파일 다운로드 주소 입력
$filesize = InetGetSize( $downfile )

If $CHK = "" Then
 DirCreate("C:\keducenter")  ;임시 폴더 만들기
 ProgressOn("네이트온 다운로드", "다운로드 진행상황", "0% 다운로드 중...")    ;다운로드 창 타이틀 설정
 InetGet($downfile, "C:\keducenter\NATEON41.exe",1,1)  ;파일 다운로드 하기
 While @InetGetActive
 $downsize = @InetGetBytesRead
 $per = ($downsize / $filesize) * 100
 $per = Int( $per )
 ProgressSet( $per, $per & "% 다운로드 중...")
 Sleep(200)
 WEnd
 ProgressSet(100 , "다운로드를 완료하였습니다.", "완료")
 Sleep(500)
 ProgressOff()
 
 ;지금까지 네이트온 다운로드 스크립트였습니다.
 ;지금부터 네이트온 설치 스크립트를 시작하겠습니다.
 
 RUN("C:\keducenter\NATEON41.exe") ;다운받은 경로 잘 써야겠죠

 WINWAITACTIVE("네이트온 설치 프로그램","네이트온 설치")
 SEND("!N")

 WINWAITACTIVE("네이트온 설치 프로그램","사용권 계약")
 SEND("{TAB 2}{SPACE}{TAB 5}{SPACE}!N")

 WINWAIT("네이트온 설치 프로그램","대상 위치 선택")
 IF NOT WINACTIVE("네이트온 설치 프로그램","대상 위치 선택") THEN WINACTIVATE("네이트온 설치 프로그램","대상 위치 선택")
 WINWAITACTIVE("네이트온 설치 프로그램","대상 위치 선택")
 SEND("!N")

 WINWAITACTIVE("네이트온 설치 프로그램","이제 프로그램을 설치할 수 있습니다.")
 SEND("!I")

 WINWAIT("네이트온 설치 프로그램","네이트온 설치완료")
 IF NOT WINACTIVE("네이트온 설치 프로그램","네이트온 설치완료") THEN WINACTIVATE("네이트온 설치 프로그램","네이트온 설치완료")
 WINWAITACTIVE("네이트온 설치 프로그램","네이트온 설치완료")
 SEND("{TAB 3}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}!N")

 WINWAIT("네이트온 설치 프로그램","네이트온 설치 완료")
 IF NOT WINACTIVE("네이트온 설치 프로그램","네이트온 설치 완료") THEN WINACTIVATE("네이트온 설치 프로그램","네이트온 설치 완료")
 WINWAITACTIVE("네이트온 설치 프로그램","네이트온 설치 완료")
 Send("{ENTER}")

 Run("C:\Program Files\NATEON\BIN\NATEON.exe")
 
 Sleep(3000)
 FileDelete("C:\keducenter\NATEON41.exe") ;네이트온 설치파일 지우기
 DirRemove("C:\keducenter") ;임시폴더 지우기

 Exit

else
        MsgBox(16,"네이트온 설치 실패","네이트온이 이미 설치되어 있습니다.",3)
        Run("C:\Program Files\NATEON\BIN\NATEON.exe")
        Exit
EndIf

완성파일

NateOn.au3

NateOn.exe