Что нового

[Время, дата] Высвечивание сообщения в определенное время

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Нужно реализовать появление MsgBox в определенное время, то есть в 12:45 , 13:45 , 14:45 и т.д. высвечивается MsgBox.
 

Arei

Скриптер
Сообщения
938
Репутация
115
Код:
if (@HOUR = 12) and  (@MIN= 45) Then
	MsgBox("","","Привет")
	Endif

Вот, следующие по аналогии.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 320
_Lexa98_,
Можно так попробовать.
Код:
HotKeySet('{Esc}', '_Exit')

Global $sDay = @MDAY, $aHourMin[6][3] = [[5],[12, 45],[13, 25],[14, 30],[15, 15],[16, 00]]
AdlibRegister('Show', 1000)
While 1
	Sleep(500)
WEnd

Func Show()
	If $sDay <> @MDAY Then
		$sDay = @MDAY
		For $i = 1 To $aHourMin[0][0]
			$aHourMin[$i][2] = 0
		Next
	EndIf
	For $i = 1 To $aHourMin[0][0]
		If $aHourMin[$i][0] = @HOUR And $aHourMin[$i][1] = @MIN And Not $aHourMin[$i][2] Then
			$aHourMin[$i][2] = 1
			AdlibUnRegister('Show')
			MsgBox(64, 'Info', $aHourMin[$i][0] & ':' & $aHourMin[$i][1])
			AdlibRegister('Show', 1000)
		EndIf
	Next
EndFunc   ;==>Show

Func _Exit()
	Exit
EndFunc   ;==>_Exit
 
Автор
_Lexa98_

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Спасибо всем! :laugh:
 

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
659
Более лёгкий способ:
Код:
While 1
    $Time = @HOUR & ':' & @MIN & ':' & @SEC
    Switch $Time
        Case '12:45:00', '13:45:00', '14:45:00' ;.....и.т.д
            MsgBox(0, '', '')
    EndSwitch
WEnd
 
Верх