XProfan

DEF @IsWindowVisible(1) !"USER32","IsWindowVisible"
Windowstyle 31
Windowtitle "Ist das Fenster sichtbar?"
Window 0,0-640,440
Declare Dialog&,Visibility&,RANDO&
Windowstyle 16
Let Dialog&=@Createwindow(%HWND,"Weg oder da?",100,100,300,300)

While 0=0

    Sleep 50
    LET RANDO&=@RND(500)

    IF @and(RANDO&>=400,RANDO&<=402)

        @Showwindow(Dialog&,RANDO&-400)

    endif

    Windowstyle 16
    LET Visibility&=@IsWindowVisible(Dialog&)

    IF Visibility&=0

        Drawtext 0,0,"Unsichtbar                 "

    ElseIf Visibility&=1

        Drawtext 0,0,"Sichtbar                     "

    endif

Wend