[Creat0R]

Вот пример:

Код:

Global $sDestTime = "14:00:00, 11.09.2008"
Global $sCallFunction = "_MyTask1"

AdlibEnable("CheckTimeProc", 10)

While 1
    Sleep(10)
WEnd

Func CheckTimeProc()
    Local $iFullDestTime = StringRegExpReplace($sDestTime, "[:,\. ]", "")
    Local $iCurrentTime = @HOUR & @MIN & @SEC & @MDAY & @MON & @YEAR

    If $iFullDestTime = $iCurrentTime Then Call($sCallFunction)
EndFunc

Func _MyTask1()
    MsgBox(64, "Hi", "Hello from _MyTask1 :)")
EndFunc