XProfan

CLS
Declarar int t, d, h, m, s, start, ende
t = &gettickcount
start = 10 * 1000'Tiempo en Millisekunden
ende = 0 * 1000' Zum Hochzählen start y ende vertauschen

Mientras que 1

    Sleep 100
    d = Abs(If(start>ende,start+1000,start*-1)-(&gettickcount - t))
    h = Abs((d mod 86400000) /3600000)
    m = Abs((d mod 3600000) / 60000)
    s = Abs((d mod 60000) / 1000)
    Settext %hwnd, Str$(h) + "h; " + Str$(m) + "m; "+Str$(s)+"s"

    If If(start>ende,d<=ende+100,d>=ende+100)

        Messagebox("Die Tiempo es abgelaufen","MELDUNG",0)
        romper

    EndIf

EndWhile