OpenConsole()
  Repeat
    If GetForegroundWindow_()=FindWindow_(0,"Program Manager")
      PrintN("Aktiv")
    EndIf
    Delay(100)
  ForEver
CloseConsole()