XProfan

CLS
Declare int t, d, h, m, s, start, end
t = &gettickcount
start = 10 * 1000'Time in Millisekunden
end = 0 * 1000' to that Hochzählen start and end vertauschen

While 1

    Sleep 100
    d = Abs(If(start>end,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>end,d<=end+100,d>=end+100)

        Messagebox("Die Time is abgelaufen","MELDUNG",0)
        break

    EndIf

EndWhile