XProfan

Declare Zähler%,Text%,Ausgabe%,Abbruch%,Button%,A$,Ende&
winExecWait(cmd /c ping www.google.de,0)
WindowStyle 1024
Window 300,200-470,120
Let Zähler% = 300
Let Abbruch% = 1
Let Text% = @CreateText(%HWnd, Countdown bis zum Rechner - Runterfahren ---> ,20,20,350,18)
Let Button% = @CreateButton(%HWnd,Stopp Timer,280,45,90,20)
Sleep 1000

While Zähler%

    Let Ausgabe% = @CreateText(%HWnd,@Str$(Zähler%),340,20,25,18)
    Dec Zähler%
    Sleep 1000

    If @Equ((@GetFocus(Button%)),1)

        Let Zähler% = 0
        Let Abbruch% = 0

    EndIf

EndWhile

If @Equ(Abbruch%,1)

    ExitWindows 0

EndIf

Let Ausgabe% = @CreateText(%HWnd,gestoppt!,340,20,75,18)
Let Ausgabe% = @CreateText(%HWnd,Fenster schließt selbsttätig,230,45,185,20)
Sleep 5000
@DestroyWindow(%HWnd)
Fin

......
Let Ausgabe% = @CreateText(%HWnd,,340,20,25,18)
Sleep 1000

While Zähler%

    settext Ausgabe%,@Str$(Zähler%)