오토핫키 2분후 자동컴퓨터 종료

2분후 컴퓨터를 끄는 오토핫키? 코드 만들어본 결과물입니다.

gui에서 체크하고 EndingVar := 0  이 값이 변경되어야 끝낸다.

 

선언:

; 특정시간이 5시30분 지나서 끝나면 자동 꺼지는 기능구현을 위한 변수임
EndingVar := 0 

Gui, Font, S12 bold CRed,

If (TurnOff=1) gui, add, checkbox, x210 y105 vTurnOff checked, 작업종료 2분후 컴OFF else gui, add, checkbox, x210 y105 vTurnOff , 작업종료 2분후 컴OFF

서브선언:

ExitCheck: ; 종료시간 체크해서 5시30분이면 컴퓨터 오프시킴 Gui,submit,nohide Haystack := NowTime ; 시 분리 FoundPos := RegExMatch(Haystack, "\C(.*)\C시" , var)

;숫자와 알파벳 소문자 대문자만 남기고 모조리 삭제 Hvar := RegExReplace(var, "[^a-zA-Z0-9]")

; 분 분리 FoundPos := RegExMatch(Haystack, "시\C(.*)\C분" , var)

;숫자와 알파벳 소문자 대문자만 남기고 모조리 삭제 Mvar := RegExReplace(var, "[^a-zA-Z0-9]")

; 오후 5시 30분 넘으면 컴 꺼지는 기능 if(EndingVar and (Hvar >= 21 and Mvar >= 30) ) gosub, TurnOffsub Return

TurnOffsub: ; 2분후 컴퓨터 종료 run, shutdown -s -t 120 return

1초당 체크 루틴

viewtime: StartTime := StartTime := A_Now

Now := A_Now StartTime := A_TickCount

Save_StartTime := A_TickCount

settimer,Displaytime,1000

Settimer ExitCheck, 1000

formattime,StartTime,,h시m분s초 GuiControl,,StartTime,%StartTime%

return

EndingMessage:

Gui, EndGui:+AlwaysOnTop +Owner

Gui, EndGui:Font, S20 norm,

Gui, EndGui:Add, Text, x50 y20, 작도 완료

Gui, EndGui:Add, Text, xp yp+50, 수고하셨습니다.

Gui, EndGui:Show, x600 y400 w600 h150, 실행완료 알림

EndingVar := 1

return

 

선언

IniRead, TurnOff,%SetiniName%.ini,Settings,TurnOff

IniWrite, %TurnOff%,%SetiniName%.ini,Settings,TurnOff

 

EndingVar의 값을 실행의 마지막에 넣는 것이 중요함.