#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <InetConstants.au3>

OnAutoItExitRegister("clean")

$hGUI = GUICreate("Radio Record Timer", 294, 284, 1035, 358)
GUICtrlCreateLabel("Start Time:", 10, 10, 150, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00B050)
GUICtrlCreateLabel("Hour", 10, 40, 40, 25)
$Combo = GUICtrlCreateCombo("", 10, 60, 40, 25)
GUICtrlSetData(-1, "00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23")
GUICtrlCreateLabel("Minute", 64, 40, 40, 25)
$Combo2 = GUICtrlCreateCombo("", 64, 60, 40, 25)
GUICtrlSetData(-1, "00|01|02|03|04|05|06|07|08|09|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")
GUICtrlCreateLabel("", 0, 100, 296, 5)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("Stop Time:", 170, 8, 150, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("Hour", 170, 40, 40, 25)
$Combo4 = GUICtrlCreateCombo("", 170, 60, 40, 25)
GUICtrlSetData(-1, "00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23")
GUICtrlCreateLabel("Minute", 232, 40, 40, 25)
$Combo5 = GUICtrlCreateCombo("", 232, 60, 40, 25)
GUICtrlSetData(-1, "00|01|02|03|04|05|06|07|08|09|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")
GUICtrlCreateLabel("Enter URL:", 10, 120, 100, 25)
$loc = GUICtrlCreateEdit("", 10, 140, 280, 50)
GUICtrlRead($loc)
$set = GUICtrlCreateButton("Set Timer", 66, 240, 158, 30)
GUISetIcon(@HomeDrive & "\classic.dll", 27) ;radio
TraySetIcon(@HomeDrive & "\classic.dll", 27) ;radio
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $set
			ConsoleWrite(@CRLF & GUICtrlRead($Combo) & ":" & GUICtrlRead($Combo2) & " to " & GUICtrlRead($Combo4) & ":" & GUICtrlRead($Combo5) & @CRLF & GUICtrlRead($loc) & @CRLF)
				FileWrite("Record.log", GUICtrlRead($loc) & @CRLF & GUICtrlRead($Combo) & ":" & GUICtrlRead($Combo2) & ":00" & @CRLF & GUICtrlRead($Combo4) & ":" & GUICtrlRead($Combo5)& ":00")
				Sleep(2000)
				If FileExists("Record.log") Then
					record()
				EndIf
	EndSwitch
WEnd

Func record()
GUISetState(@SW_MINIMIZE)
;GUISetIcon(@HomeDrive & "\classic.dll", 27) ;radio
;TraySetIcon(@HomeDrive & "\classic.dll", 27) ;radio

$url = FileReadLine("Record.log", 1)
$StartTime = FileReadLine("Record.log", 2)
$EndTime = FileReadLine("Record.log", 3)

ConsoleWrite(@CRLF & $url & @CRLF & $StartTime & @CRLF & $EndTime & @CRLF)

Do

If @HOUR & ":" & @MIN & ":" & @SEC = $StartTime Then
	TraySetIcon(@HomeDrive & "\classic.dll", 48) ;yellow
	TraySetState(4)
	Sleep(1000)
	InetGet($url, @ScriptDir & "\Recorded_" & @YDAY & @HOUR & @MIN & ".wav", $INET_IGNORESSL, $INET_DOWNLOADBACKGROUND)
EndIf

If @HOUR & ":" & @MIN & ":" & @SEC = $EndTime Then
	TraySetState(8)
	Sleep(1000)
	TraySetIcon(@HomeDrive & "\classic.dll", 27)
	Sleep(5000)
	Exit
EndIf

	Sleep(200)
Until GUIGetMsg() = -3 ; $GUI_EVENT_CLOSE


EndFunc

Func clean()
FileDelete("Record.log")
EndFunc