[решено] Нажатие Enter в точно заданное время в милесекундах

Код:
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