(과거게시물) 자동종료 프로그램 소스코드

개발 관련/SW, App 관련

(과거게시물) 자동종료 프로그램 소스코드

소서리스25 2023. 3. 23. 23:55

※ 과거 게시물은 현재의 모든 적용사항과 환경이 다를 수 있으며 단순한 기록으로 남깁니다.

자동종료 프로그램 소스코드

앞서 제작한 간단한 자동종료 프로그램 소스코드..
잘 쓰지 않는 기능의 "GUICtrlSetOnEvent" 명령어를 시험삼아 만들어 보았다.
코드를 보면 이해하기 쉽게 제작해 놓았다..
다음엔 더 멋진 프로그램을 만들어보자..

## 소스코드 ##

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

Opt('MustDeclareVars', 1)
Opt("GUIResizeMode", 1)
Opt("GUIOnEventMode", 1)
 
 
$filechk = FileOpen("자동종료.ini", 0)
If $filechk = -1 Then
FileWrite("자동종료.ini", "[setup]"&@CRLF&"mhour = 0"&@CRLF&"mmin = 0")
sleep(500)
EndIf
 
 
local $winact = WinActivate("자동종료 v0.6")
If $winact = 1 Then Exit 0
 
 
ini_read()
Func ini_read()
$mhour = IniRead("자동종료.ini", "setup", "mhour", "Err")
$mmin = IniRead("자동종료.ini", "setup", "mmin", "Err")
EndFunc
 
 
start()
Func start()
  GUICreate("자동종료 v0.5", 185, 155)
  GUICtrlCreateGroup("현재시간", 10, 8, 165, 43)
  GUICtrlSetColor(-1, 0x0000FF)
 
 
  GUICtrlCreateGroup("종료시간", 10, 60, 165, 50)
  GUICtrlSetColor(-1, 0xFF0000)
  GUICtrlCreateLabel("시", 72, 75, 22, 34)
  GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
  GUICtrlSetColor(-1, 0xFF0000)
  GUICtrlCreateLabel("분", 142, 75, 22, 34)
  GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
  GUICtrlSetColor(-1, 0xFF0000)
 
 
  $Input_hour = GUICtrlCreateInput($mhour, 30, 77, 40, 24)
  GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
  GuiCtrlCreateUpDown(-1)
  GUICtrlSetLimit(-1, 23)
  $Input_min = GUICtrlCreateInput($mmin, 100, 77, 40, 24)
  GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
  GuiCtrlCreateUpDown(-1)
  GUICtrlSetLimit(-1, 59)
 
 
  $setup = GUICtrlCreateButton("시간저장", 65, 115, 65, 33, $WS_GROUP)
  GUICtrlSetOnEvent(-1, "_time_save")
 
 
  $_exit = GUICtrlCreateButton("종료", 135, 115, 40, 33, $WS_GROUP)
  GUICtrlSetState(-1, $GUI_FOCUS)
  GUICtrlSetOnEvent(-1, "_events")
 
 
  GUICtrlCreateLabel("By Uhm"&@CR&" SCIX", 10, 120, 50, 30)
  $tlabel = GUICtrlCreateLabel(@HOUR&" : "&@MIN&" : "&@SEC, 45, 22, 118, 26);, $SS_CENTER, $WS_EX_CLIENTEDGE)
  GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
  GUISetState(@SW_SHOW)
 
 
  GUISetOnEvent($GUI_EVENT_CLOSE, "_events")
  GUISetOnEvent($GUI_EVENT_MINIMIZE, "_events")
  GUISetOnEvent($GUI_EVENT_RESTORE, "_events")
  GUISetOnEvent($_exit, "_events")
 
 
  While 1
    if @HOUR = $mhour and @MIN = $mmin and @SEC = 0 Then Shutdown (9)
    GUICtrlSetData($tlabel, @HOUR&" : "&@MIN&" : "&@SEC)
    sleep(1000)
  WEnd
EndFunc
 
 
Func _time_save()
  IniWrite("자동종료.ini", "setup", "mhour", GUICtrlRead($Input_hour))
  IniWrite("자동종료.ini", "setup", "mmin", GUICtrlRead($Input_min))
  MsgBox(32, "저장", "저장되었습니다.", 3)
  ini_read()
EndFunc
 
 
Func _events()
  Switch @GUI_CtrlId
    Case $GUI_EVENT_CLOSE
         Exit
    Case $GUI_EVENT_MINIMIZE
    Case $GUI_EVENT_RESTORE
    Case $_exit
         Exit
  EndSwitch
EndFunc
Colored by Color Scripter

cs

헤더 파일과 변수선언에 해당되는 것은 기본적인 것이니 직접 구성해보고..

※ 추가 : Autoit3 에서 위의 초기 '$' 으로 시작되는 것이 변수임.. (예 $filecheck)