XProfan

DEF @CloseWindow(1) !"USER32","CloseWindow"
Windowtitle "Fenster minimieren"
Windowstyle 31
Window 0,0-640,440
Declare TICK&
LET TICK&=&GETTICKCOUNT

While 0=0

    Sleep 100

    IF &GETTICKCOUNT-TICK&>10000

        LET TICK&=&GETTICKCOUNT
        @CloseWindow(%HWND)

    Endif

Wend