#cs ----------------------------------------------------------------------------
 AutoIt Version: 3.3.9.24 (Beta)
 Author: DuNeD@i
 Fecha; 01/01/2014
 Script Function: Delay Timer
 Uso: Delay($Time, [$Unidad])
                    $Unidad:
                        D - días.
                        M - meses.
                        Y - años
                        w - semanas
                        h - horas
                        n - minutos
                        s - segundos
#ce ----------------------------------------------------------------------------

#Include <Date.au3>

Delay(20, 's')

Func Delay($Timer, $Unidad= 's')
    Local $EndTime, $Now = _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC
    $EndTime = _Dateadd($Unidad, $Timer, $Now)
    Do
        Sleep(1000)
    Until _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC >= $EndTime
EndFunc
"Concentrarse en las fortalezas, reconocer las debilidades, las oportunidades y tomar la guardia contra las amenazas."

―Sun Tzu
Responder

Volver a “Autoit”