Вызов определенных действий через каждый час

#include <Date.au3>
Dim $aArray[4]
$aArray[0]="17:06"
$aArray[1]="18:06"
$aArray[2]="19:06"
$aArray[3]="20:06"

 func timecheck_()
	if _NowTime(4)= $aArray Then
	beep(5000,1000)
	endif
 endfunc
				 
		 while 1 
			 timecheck_()
			 sleep(1000)
			 wend

#include <Date.au3>
$Time = '0:00:00|1:00:00|2:00:00|3:00:00|4:00:00|5:00:00|6:00:00|7:00:00|8:00:00|9:00:00|10:00:00|11:00:00|12:00:00|'
$Time &= '13:00:00|14:00:00|15:00:00|16:00:00|17:00:00|18:00:00|19:00:00|20:00:00|21:00:00|22:00:00|23:00:00'
$Split = StringSplit($Time, '|')

While 1
	For $i = 1 to $Split[0]
		If _NowTime() = $Split[$i] Then MsgBox(0, 'Time', 'Hello')
	Next
WEnd

#include <Date.au3>
$Time = '0:00|1:00|2:00|3:00|4:00|5:00|6:00|7:00|8:00|9:00|10:00|11:00|12:00|13:00|14:00|15:00|16:00|17:00|18:00|19:00|20:00|21:00|22:00|23:00'
$Split = StringSplit($Time, '|')

While 1
	For $i = 1 to $Split[0]
		If _NowTime(4) = $Split[$i] Then MsgBox(0, 'Time', 'Hello')
	Next
WEnd