[Creat0R]

Код:

Global $a_EventsOnTime[1][1]

HotKeySet("^+e", "_Quit")
_SetEventOnTime("20.00.00.100", "_OnEvening")

While 1
    Sleep(10)
WEnd

Func _SetEventOnTime($sEventTime, $sEventFunc, $sParams = "")
    $a_EventsOnTime[0][0] += 1
    ReDim $a_EventsOnTime[$a_EventsOnTime[0][0] + 1][3]

    If $a_EventsOnTime[0][0] <= 1 Then
        AdlibRegister("__SetEventOnTime_Handler", 1)
    EndIf

    $a_EventsOnTime[$a_EventsOnTime[0][0]][0] = $sEventTime
    $a_EventsOnTime[$a_EventsOnTime[0][0]][1] = $sEventFunc
    $a_EventsOnTime[$a_EventsOnTime[0][0]][2] = $sParams
EndFunc

Func __SetEventOnTime_Handler()
    Local $sNowTime = @HOUR & "." & @MIN & "." & @SEC & "." & @MSEC
    Local $sFutureTime = @HOUR & "." & @MIN & "." & @SEC & "." & @MSEC + 100
    Local $sPastTime = @HOUR & "." & @MIN & "." & @SEC & "." & @MSEC - 100

    For $i = 1 To $a_EventsOnTime[0][0]
        $sETime = $a_EventsOnTime[$i][0]

        If $sETime = $sNowTime Or (($sETime < $sNowTime And $sETime >= $sPastTime) Or ($sETime > $sNowTime And $sETime <= $sFutureTime)) Then
            Call($a_EventsOnTime[$i][1], $a_EventsOnTime[$i][2])

            If @error Then
                Call($a_EventsOnTime[$i][1])
            EndIf

            ExitLoop
        EndIf
    Next
EndFunc

Func _OnEvening()
    MsgBox(64, "Good Evning!", "Hi, it's dinner time!")

    Send("{ENTER}")

    _Quit()
EndFunc

Func _Quit()
    Exit
EndFunc