XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster: Prüfen, ob Fenster sichtbar ist
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