定时提醒

; 自动段
; 定义热键
Hotkey, F1, TJXRW ; 添加新任务
Hotkey, F4, Allrenwu ; 查看所有任务
; 定时设置Gui
dingshiGui:
Gui, dingshi:font, s13, Microsoft YaHei UI
Gui, dingshi:Add,Text, , 设置时间：
Gui, dingshi:font, s20, Microsoft YaHei UI
Gui, dingshi:Add, Edit, vMb_Yue h40 Center, 00
Gui, dingshi:add, Text, x+5, 月
Gui, dingshi:Add, Edit, vMb_Ri x+5 h40 Center, 00
Gui, dingshi:add, Text, x+5, 日
Gui, dingshi:Add, Edit, vMb_Shi x+5 h40 Center, 00
Gui, dingshi:add, Text, x+5, 时
Gui, dingshi:Add, Edit, vMb_Fen x+5 h40 Center, 00
Gui, dingshi:add, Text, x+5, 分
Gui, dingshi:font, s13, Microsoft YaHei UI
Gui, dingshi:Add,Text, xm, 输入提醒：
Gui, dingshi:font, s20, Microsoft YaHei UI
Gui, dingshi:Add,Edit,vMb_Tixing h40 w340
Gui, dingshi:font, s16
Gui, dingshi:Add, Button, x210 y+20 Default h30 g添加, 添加
Gui, dingshi:Add, Button, x+20 h30 g取消, 取消

; 初始化
DuQu_renwu:
IniRead, Mb_JiLu, %A_WorkingDir%\定时提醒.ini, DingShiRenWu
If(RegExMatch(Mb_JiLu, "."))
{
	Loop, Parse, Mb_JiLu, `r`n
	{
		RegExMatch(A_LoopField, "^.+(?=\=)", Mb_Key)
		If(Mb_Key<=A_Now)
		IniDelete, %A_WorkingDir%\定时提醒.ini, DingShiRenWu, %Mb_Key%
	}
	SetTimer, jishi, 1000
	Return
}
Else
return

取消:
Gui, dingshi:Destroy
return

添加:
Gui, dingshi:Submit
KeyZhi := A_YYYY . Format("{:02}", Mb_Yue) . Format("{:02}", Mb_Ri) . Format("{:02}", Mb_Shi) . Format("{:02}", Mb_Fen) . "00"
IniWrite, %Mb_Tixing%, %A_WorkingDir%\定时提醒.ini, DingShiRenWu, %KeyZhi%
Gosub DuQu_renwu
return

TJXRW:	; 显示定时面板，添加新任务
Gui, dingshi:Destroy
Gosub dingshiGui
GuiControl, dingshi:Text, Mb_Yue, %A_Mm%
GuiControl, dingshi:Text, Mb_Ri, %A_DD%
GuiControl, dingshi:Text, Mb_Shi, %A_Hour%
GuiControl, dingshi:Text, Mb_Fen, %A_Min%
GuiControl, dingshi:Text, Mb_Tixing
Gui, dingshi:Show
return

; 计时
jishi:
Loop, Parse, Mb_JiLu, `r`n
{
	RegExMatch(A_LoopField, "^.+(?=\=)", Mb_Key)
	RegExMatch(A_LoopField, "\=\K.+$", Mb_Tixing)
	If(Mb_Key=A_Now)
	SetTimer, renwutixing, -1
}
return

Allrenwu:
Gui, daiban:New ;, +AlwaysOnTop
Gui, Font, s16
IniRead, DuQu_Key, %A_WorkingDir%\定时提醒.ini, DingShiRenWu
If(RegExMatch(DuQu_Key, "."))
{
	Key := StrSplit(DuQu_Key, "`n")
	Dll_key := []
	Loop % Key.MaxIndex()
	{
		daiban := StrSplit(Key[A_Index], "=")
		MingMing := "v" . daiban[1]
		FormatTime, XS_SJ, % daiban[1], MM-dd HH:mm
		ShiJian := daiban[2]
		Dll_key.Insert(daiban[1])
		Gui, daiban:Add, Checkbox, %MingMing%, %XS_SJ%  %ShiJian%
	}
	Gui, daiban:Add, Button, h30 Center vDelButton gDelXZ, 删除
	Gui, daiban:Show
}
Else
{
	Gui, daiban:Add, Text, ,>>>  无  任  务  <<<
	Gui, daiban:Show
}
Return

DelXZ:
Loop % Dll_key.MaxIndex()
{
	ControlGet, Dll_key_XH, Checked, , % "Button"A_Index
	If(Dll_key_XH = 1)
	IniDelete, %A_WorkingDir%\定时提醒.ini, DingShiRenWu, % Dll_key[A_Index]
}
Gui, daiban:Destroy
Gosub Allrenwu
return

renwutixing(){
	Global
	MsgBox % Mb_Tixing
	return
}

^F12::
Reload
return