3 verschiedene Farben auf bestimmten Koordinaten erkennen und Meldung ausgeben

Code4Fun

Hallo hier mal mein Script

Spoiler anzeigen

Python

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region ; mögliche Includes einbinden, bzw. nur die notwendigen einbinden.
#include <GUIConstantsEx.au3> ; für GUI Create, events
#include <MsgBoxConstants.au3> ; für MsgBox
#include <TrayConstants.au3>
#EndRegion ; mögliche Includes einbinden, bzw. nur die notwendigen einbinden.

#Region ; Script Kopf
#cs ----------------------------------------------------------------------------

    AutoIt Version:     3.3.14.5
    Author:             Code4Fun

    Script Function:     Das Script scannt einen bestimmten Bereich auf dem Monitor. Dieser Bereich zeigt ein webbasiertes Servermonitoring.
    Im Normalfall ist dort die Farbe grün = OK
    Wenn es auf orange oder rot wechselt, soll dieses Script hier später einen aktustischen Alarm auslösen.

    Erstellungendatum: vom 25.04.2019

    Änderungsdatum:

    Version: 0.0.1

    History:

    0.0.1: Initialerstellung

#ce ----------------------------------------------------------------------------
#EndRegion ; Script Kopf

#Region ; AutoIt-Spezifischen Optionen

Opt("GUICloseOnESC", 1) ; Wenn man die ESC Taste drückt, wird die GUI geschlossen, da eine $GUI_EVENT_CLOSE Nachricht gesendet wird
Opt("MustDeclareVars", 1) ; Variablen (Dim / Global / Local / Const) müssen deklariert sein. Wichtig für Fehlersuche
Opt("TrayIconDebug", 1) ; Zeigt die aktuelle Skriptzeile im Trayicon Tipp um das Debugging zu unterstützen

Global $exititem

#EndRegion ; AutoIt-Spezifischen Optionen

AdlibRegister(_PixelbereichScannen, 1000)

;Tray-Menü anpassen
Opt("TrayAutoPause", 0) ; Script will not be paused when clicking the tray icon.
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1 + 2)

$exititem = TrayCreateItem("Beenden")
TrayItemSetState(-1, $TRAY_UNCHECKED)
TrayItemSetOnEvent(-1, "_Exit")
TraySetState()

#Region ; Hauptschleife
While 1

WEnd
#EndRegion ; Hauptschleife

#Region ; Funktionen
Func _PixelbereichScannen()
    Local $aCoord
    ; Wenn in den unten stehenden Koordinaten die Farbe grün (0x53A000) zu finden ist, ist alles OK
    If $aCoord = PixelSearch(-2833, 835, -2771, 872, 0x53A000) Then
        If Not @error Then
            ConsoleWrite("OK" & @CRLF)
        Else
            ConsoleWrite("Kein Treffer bei OK" & @CRLF)
        EndIf
    EndIf

    ; Wenn in den unten stehenden Koordinaten die Farbe orange (0xFAA732) zu finden ist, ist Warnstufe 1 angesagt
    If $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xFAA732) Then
        If Not @error Then
            ConsoleWrite("Oranger Alarm" & @CRLF)
        Else
            ConsoleWrite("Kein Treffer bei orangener Alarm" & @CRLF)
        EndIf
    EndIf

    ; Wenn in den unten stehenden Koordinaten die Farbe rot (0xA00000) zu finden ist, ist Warnstufe 2 angesagt
    If $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xA00000) Then
        If Not @error Then
            ConsoleWrite("Roter Alarm" & @CRLF)
        Else
            ConsoleWrite("Kein Treffer bei rotem Alarm" & @CRLF)
        EndIf
    EndIf
EndFunc   ;==>_PixelbereichScannen

Func _Exit()
    Exit
EndFunc   ;==>_Exit
#EndRegion ; Funktionen

Alles anzeigen

Beschreibung vom Script:

Das Script scannt einen bestimmten Bereich auf dem Monitor. Dieser Bereich zeigt ein webbasiertes Servermonitoring.

Im Normalfall ist dort die Farbe grün = OK

Wenn es auf orange oder rot wechselt, soll dieses Script hier später einen aktustischen Alarm auslösen (aktuell nur ein Konsolenausgabe)

Aktuell habe ich ein System mal vom Netz genommen, d.h. an der zu suchenden Stelle ist jetzt die Farbe rot. Es wird mir aber in der Console nur Kein Treffer bei OK und Kein Treffer bei orangener Alarm ausgegeben. Es müsste doch aber auch Roter Alarm ausgegeben werden. Alle 3 Farben wurden mit einer Farbpipette ausgelesen.

Es ist das erste mal, das ich mit sowas rumspiele, es fehlt also der Erfahrungswert. BTW. Kann mir vielleicht noch jemand helfen, wie ich später statt der Consolenausgabe eine MP3 Sounddatei abspiele.

Vielen Dank

**water**

Code

If $aCoord = PixelSearch(-2833, 835, -2771, 872, 0x53A000)

Das kannst Du so nicht schreiben. Pixelsearch gibt einen 2D Array zurück, wenn was gefunden wurde. Du vergleichst den Rückgabewert dann aber mit einem leeren Array.
Lt. Hilfedatei wird @error = 1 gesetzt, wenn die Farbe nicht gefunden wurde. Daher:

Code

    ; Wenn in den unten stehenden Koordinaten die Farbe rot (0xA00000) zu finden ist, ist Warnstufe 2 angesagt
    $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xA00000)
    If Not @error Then
        ConsoleWrite("Roter Alarm" & @CRLF)
    Else
        ConsoleWrite("Kein Treffer bei rotem Alarm" & @CRLF)
    EndIf

BTW: Ein Tool zum Servermonitoring sollte eine Schnittstelle für Alarmierungen bereits mit anbieten. Wäre sicher der verlässlichere Weg!

**Andy**

Zitat von water

BTW: Ein Tool zum Servermonitoring sollte eine Schnittstelle für Alarmierungen bereits mit anbieten. Wäre sicher der verlässlichere Weg!

"Sollte" ist das Stichwort...

Ich arbeite täglich mit webbasiertem Monitoring für Produktionsmaschinen/Mitarbeiterarbeitsplätzen. Da gibt es NICHTS, was nicht explizit seitens Softwarehersteller vorgesehen ist, alternativ "nachgepflegt/programmiert" worden ist. Manche Dinge sind nicht einmal vorgesehen, da seitens Programmierer dieser Fall/Fälle infolge mangelnder Fachkenntnis (die sind schliesslich Programmierer und keine Anwender! ) nie den Weg in die Software gefunden haben noch finden werden.

Zitat von Wikipedia

AutoIt ist eine Software zum Ausführen von Skripten, mit denen hauptsächlich Abläufe unter Microsoft Windows automatisiert werden können,

...genau DAFÜR ist es da! Um nicht vorhandene Funktionen/Abläufe "nachzubilden", die es sonst nicht gegeben hätte!

**water**

Sorry, ich träume halt immer noch von warmen Eislutschern

Code4Fun

water: Danke jetzt geht es wunderbar. Jetzt muss ich nur noch den MP3 Teil "erfinden" und einbauen. Falls Ihr zufällig hier im Forum einen Thread kennt, der auch schon mit MP3 Ausgabe in autoit gespielt hat, wäre ich für eine Link sehr dankbar.

Jasfar

Hey Code4Fun,

Alpines hatte mir damals bei einem Audioplayer einen Tipp geben können: WMPlayer.ocx

Fand ich persönlich einfacher als mit der Bass.au3.

Eine kleine Doku von Microsoft:

https://docs.microsoft.com/en-us/windows/…e-for-scripting

Code4Fun

Danke für die Rückmeldung. Ich habe jetzt den integrierten genommen. Bei mir ist es egal ob MP3 oder WAV. Sind nur 2 unterschiedliche Dateien. Läuft soweit schon, jetzt noch Feinheiten. Trotzdem vielen Dank an alle. Werden den Thread als gelöst markieren.

Code4Fun

Guten Morgen, jetzt muss ich den Thread doch nochmals öffnen

Code

Python

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region ; mögliche Includes einbinden, bzw. nur die notwendigen einbinden.
#include <MsgBoxConstants.au3>
#include <TrayConstants.au3>
#include <Sound.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#EndRegion ; mögliche Includes einbinden, bzw. nur die notwendigen einbinden.

#Region ; Script Kopf
#cs ----------------------------------------------------------------------------

    AutoIt Version:     3.3.14.5
    Author:             Code4Fun

    Script Function:     Das Script scannt einen bestimmten Bereich auf dem Monitor. Dieser Bereich zeigt ein webbasiertes Servermonitoring.
    Im Normalfall ist dort die Farbe grün = OK
    Wenn es auf orange oder rot wechselt, soll dieses Script hier später einen aktustischen Alarm auslösen.

    Erstellungendatum: vom 25.04.2019

    Änderungsdatum:

    Version: 0.0.1.0

    History:

    0.0.1: Initialerstellung

#ce ----------------------------------------------------------------------------
#EndRegion ; Script Kopf

#Region ; AutoIt-Spezifischen Optionen

Opt("GUICloseOnESC", 1) ; Wenn man die ESC Taste drückt, wird die GUI geschlossen, da eine $GUI_EVENT_CLOSE Nachricht gesendet wird
Opt("MustDeclareVars", 1) ; Variablen (Dim / Global / Local / Const) müssen deklariert sein. Wichtig für Fehlersuche
Opt("TrayIconDebug", 1) ; Zeigt die aktuelle Skriptzeile im Trayicon Tipp um das Debugging zu unterstützen

Global $exititem, $sFarbe, $hGUI, $sButton
Global $iAlarmCounter = 0

#EndRegion ; AutoIt-Spezifischen Optionen

AdlibRegister(_PixelbereichScannen, 1000)


;Tray-Menü anpassen
Opt("TrayAutoPause", 0) ; Script will not be paused when clicking the tray icon.
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1 + 2)

$exititem = TrayCreateItem("Beenden")
TrayItemSetState(-1, $TRAY_UNCHECKED)
TrayItemSetOnEvent(-1, "_Exit")
TraySetState()

#Region ; Hauptschleife
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $sButton ; wenn OK Button gedrückt wird ..
            _OKpressed()
    EndSwitch
WEnd
#EndRegion ; Hauptschleife

#Region ; Funktionen
Func _PixelbereichScannen()
    Local $aCoord
    ; Wenn in den unten stehenden Koordinaten die Farbe grün (0x53A000) zu finden ist, ist alles OK
    $aCoord = PixelSearch(-2833, 835, -2771, 872, 0x53A000)
    If Not @error Then ; wenn alles OK ist dann
        ConsoleWrite("OK" & @CRLF) ; schreibe OK
        $iAlarmCounter = 0 ; setze Counter wieder zurück auf 0
    Else
        ;ConsoleWrite("Kein Treffer bei OK" & @CRLF)
    EndIf

    ; Wenn in den unten stehenden Koordinaten die Farbe orange (0xFAA732) zu finden ist, ist Warnstufe 1 angesagt
    $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xFAA732)
    If Not @error Then ; wenn oranger Alarm ausgelöst wurde, dann
        ConsoleWrite("Oranger Alarm" & @CRLF) ; schreibe es in die Console
        _ProblemKnopf("orange") ; führe Function aus
    Else
        ;ConsoleWrite("Kein Treffer bei orangener Alarm" & @CRLF)
    EndIf

    ; Wenn in den unten stehenden Koordinaten die Farbe rot (0xA00000) zu finden ist, ist Warnstufe 2 angesagt
    $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xA00000)
    If Not @error Then
        ConsoleWrite("Roter Alarm" & @CRLF)
        _ProblemKnopf("rot") ; führe Function aus
    Else
        ;ConsoleWrite("Kein Treffer bei rotem Alarm" & @CRLF)
    EndIf
EndFunc   ;==>_PixelbereichScannen

Func _ProblemKnopf($sFarbe)
    If Not $iAlarmCounter = 2 Then ; Wenn der Counter 0 oder 1 ist, dann gehe in die IF Schleife, wenn der Counter 2 ist (es wurde bereits OK gedrückt), dann bleib draußen.
        Local $sLabel

        If $iAlarmCounter = 0 Then ; wenn der Counter 0 ist, erstelle die GUI nur einmal
            $iAlarmCounter = 1 ; setze Counter auf 1
            $hGUI = GUICreate("A L A R M", @DesktopWidth - 100, @DesktopHeight - 100, -1, -1, 0x01000200)
        EndIf ; hier ist der Counter auf 1, d.h. die Oberfläche wird angepasst.
        If $sFarbe = "organe" Then ; wenn orangener Alarm, dann
            GUISetBkColor(0xFAA732, $hGUI) ; färbe den Hintergrund in Orange ein
        Else ; ansonsten roter Alarm
            GUISetBkColor(0xA00000, $hGUI) ; ansonsten in rote Farbe
        EndIf

        If $sFarbe = "organe" Then ; wenn orangener Alarm, dann
            $sLabel = GUICtrlCreateLabel("ORANGENER ALARM", 600, 100, 600, 200) ; schreibe diesen Text als Label
            GUICtrlSetFont($sLabel, 50, 900)
        Else ; ansonsten
            $sLabel = GUICtrlCreateLabel("ROTER ALARM", 600, 100, 600, 200) ; diesen Text als Label
            GUICtrlSetFont($sLabel, 50, 900)
        EndIf

        $sButton = GUICtrlCreateButton("OK", 700, 400, 100, 50) ; erstelle OK Button.
        GUICtrlSetFont($sButton, 50, 900)
        GUISetState(@SW_SHOW)
    EndIf

    If $sFarbe = "organe" Then ; wenn orangener Alarm, dann
        _PlaySound("organe")
    Else ; ansonsten roter Alarm
        _PlaySound("rot")
    EndIf

EndFunc   ;==>_ProblemKnopf

Func _PlaySound($sFarbe)
    ; Öffne Sound-Datei ; dies muß verändert werden, falls das Skript unter Vista läuft
    Local $aSound, $sound, $tText
    If $sFarbe = "organe" Then ; wenn orangener Alarm, dann
        $aSound = _SoundOpen(@ScriptDir & "\orange.wav")
    Else ; ansonsten roter Alarm
        $aSound = _SoundOpen(@ScriptDir & "\rot.wav")
    EndIf

    If @error = 2 Then
        MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Datei existiert nicht.")
        Exit
    ElseIf @extended <> 0 Then
        Local $iExtended = @extended ; Zuweisung, weil @extended nach DllStructCreate() geändert wird
        Local $stText = DllStructCreate("char[128]")
        DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $iExtended, "struct*", $tText, "int", 128)
        MsgBox($MB_SYSTEMMODAL, "Fehler", "Öffnen fehlgeschlagen." & @CRLF & "Fehlernummer: " & $iExtended & @CRLF & "Fehlerbeschreibung: " & DllStructGetData($stText, 1) & @CRLF & "Beachte: Möglicherweise kann der Sound dennoch korrekt abgespielt werden.")
    Else
;~         MsgBox($MB_SYSTEMMODAL, "Erfolgsmeldung", "Die Datei wurde erfolgreich geöffnet.")
    EndIf
    If $iAlarmCounter = 1 Then ; Wenn der Counter auf 1 ist, sprich ein Alarm wurde ausgelöst, dann soll der Sound erklingen
        ConsoleWrite("$iAlarmCounter ist (Sound sollte spielen): " & $iAlarmCounter & @CRLF)
;~         _SoundPlay($aSound, 0)
    Else ; wenn der Counter wieder auf 0 steht, sprich man hat OK gedrückt, dann soll der Sound ausgehen.
        ConsoleWrite("$iAlarmCounter ist (Sound sollte aus sein): " & $iAlarmCounter & @CRLF)
        _SoundClose($sound)
    EndIf
EndFunc   ;==>_PlaySound

Func _OKpressed()
    GUIDelete($hGUI) ; und lösche die GUI
    $iAlarmCounter = 2 ; setze Counter auf 2
    ConsoleWrite("kommt aus _OKpressed: " & $iAlarmCounter & @CRLF)
EndFunc   ;==>_OKpressed

Func _Exit()
    Exit
EndFunc   ;==>_Exit
#EndRegion ; Funktionen

Alles anzeigen

Ich habe das Problem, das meine Funktion _OKpressed() (Zeile 67) erst aufgerufen werden soll, nachdem die GUI gebaut wird. Jedoch ist es aktuell so, das beim Starten des Scriptes dieses gleich nonstop durch die Funktion _OKpressed() läuft.

Vermutlich hat es was damit zu tun, dass $sButton zu diesem Zeitpunkt noch nicht existiert. Wie kann ich dass dann umgehen?

**alpines**

Ich vermute mal GUIGetMsg liefert 0 weil kein Event anliegt, da neue Variablen undefiniert sind stimmen sie mit 0 überein (es sei dem man erzwingt einen anderen Vergleich).

Du solltest generell nicht die GUIs dynamisch erzeugen, da kann sehr viel schiefgehen. Erzeuge sie vorher und zeige/verstecke sie mit GUISetState wann immer du sie brauchst.

Bevor du sie anzeigst kannst du die Daten auf der GUI setzen damit diese bereits mit den gewünschten Daten auftaucht.

Dann hast du auch nicht das Problem des Null-Events.

Oder du bastelst einen schlampigen Workaround und setzt $sButton (s ist übrigens der total falsche Präfix dafür, da dies eine Id bzw. ein Handle bzw. ein Button ist) = 1.

Code4Fun

Hallo alpines, vielen Dank für die Info. Für den schnellen Test mache ich jetzt mal den "schlampigen Workaround", werde das aber dann zeitnah umbauen.

Ich habe noch 2 weitere Fragen.

1.) Ich prüfe ja mit $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xXXXXXX) auf die Existenz eines Farbcodes 0xXXXXXX (wobei hier 0xXXXXXX als Variable für meine anderen Farben zu sehen ist). Im konkreten Fall prüfe ich auf die Farben grün, orange und rot. Wie muss ich denn eine 4. Prüfung schreiben, die mir z.B. eine MsgBox hochpoppt, wenn an diesen Koordinaten eine andere Farbe als diese 3 zu sehen ist. Ich will damit sicherstellen, das ich mein Monitorfenster wieder nach vorne hole, falls ich es mal temporär mit einem anderen Fenster überdeckt habe.

2.) Ich habe ursprünglich mal den Wert 0xFAA731 eingegeben. Jetzt bin ich in einer anderen Lokation, wo der LCD Monitor hier den Wert 0xFAA732 erkennt. Kann man das irgendwie einstellen, das ein paar Farbnuancen noch oben und unten als Toleranz gewertet werden?

**alpines**

Zitat von Code4Fun

Ich habe ursprünglich mal den Wert 0xFAA731 eingegeben. Jetzt bin ich in einer anderen Lokation, wo der LCD Monitor hier den Wert 0xFAA732 erkennt. Kann man das irgendwie einstellen, das ein paar Farbnuancen noch oben und unten als Toleranz gewertet werden?

Schau dir mal den Parameter der PixelSearch-Funktion an der nach "color" kommt.

Zitat von Code4Fun

Ich prüfe ja mit $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xXXXXXX) auf die Existenz eines Farbcodes 0xXXXXXX (wobei hier 0xXXXXXX als Variable für meine anderen Farben zu sehen ist). Im konkreten Fall prüfe ich auf die Farben grün, orange und rot. Wie muss ich denn eine 4. Prüfung schreiben, die mir z.B. eine MsgBox hochpoppt, wenn an diesen Koordinaten eine andere Farbe als diese 3 zu sehen ist. Ich will damit sicherstellen, das ich mein Monitorfenster wieder nach vorne hole, falls ich es mal temporär mit einem anderen Fenster überdeckt habe.

Schlagen die PixelSearches, für die Farben die dort sein sollten, alle fehl, dann hast du doch eine andere Farbe dort. Das kriegst du mittels einer If-Abfrage hin.

Code4Fun

Den Toleranzpart habe ich mal eingebaut. Der scheint auch zu funktionieren. Den Teil mit den "anderen" Farben muss ich noch machen. Aktuell habe ich das Problem, das sich meine GUI in Zeile 157 nicht aktualisiert. Zeile 158 protokolliert eine "0". Das versteht ich jetzt nicht ganz.

Code

Python

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <Sound.au3>
#include <TrayConstants.au3>
; mit der While Wend Schleife stimmt noch was nicht. checken.


#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region ; mögliche Includes einbinden, bzw. nur die notwendigen einbinden.
#include <MsgBoxConstants.au3>
#include <TrayConstants.au3>
#include <Sound.au3>
#include <GUIConstantsEx.au3>

#EndRegion ; mögliche Includes einbinden, bzw. nur die notwendigen einbinden.

#Region ; Script Kopf
#cs ----------------------------------------------------------------------------

    AutoIt Version:     3.3.14.5
    Author:             Code4Fun

    Script Function:     Das Script scannt einen bestimmten Bereich auf dem Monitor. Dieser Bereich zeigt ein webbasiertes Servermonitoring.
    Im Normalfall ist dort die Farbe grün = OK
    Wenn es auf orange oder rot wechselt, soll dieses Script hier später einen aktustischen Alarm auslösen.

    Erstellungendatum: vom 25.04.2019

    Änderungsdatum:

    Version: 0.0.1.0

    History:

    0.0.1: Initialerstellung

#ce ----------------------------------------------------------------------------
#EndRegion ; Script Kopf

#Region ; AutoIt-Spezifischen Optionen

Opt("GUICloseOnESC", 1) ; Wenn man die ESC Taste drückt, wird die GUI geschlossen, da eine $GUI_EVENT_CLOSE Nachricht gesendet wird
Opt("MustDeclareVars", 1) ; Variablen (Dim / Global / Local / Const) müssen deklariert sein. Wichtig für Fehlersuche
Opt("TrayIconDebug", 1) ; Zeigt die aktuelle Skriptzeile im Trayicon Tipp um das Debugging zu unterstützen

Global $exititem, $sFarbe, $hGUI, $idButton, $sLocation, $sLabel
Global $iAlarmCounter = 0

#EndRegion ; AutoIt-Spezifischen Optionen

AdlibRegister(_PixelbereichScannen, 3000) ; alle x Sekunden wird diese Funktion aufgerufen.


;Tray-Menü anpassen
Opt("TrayAutoPause", 0) ; Script will not be paused when clicking the tray icon.
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1 + 2)

$exititem = TrayCreateItem("Beenden")
TrayItemSetState(-1, $TRAY_UNCHECKED)
TrayItemSetOnEvent(-1, "_Exit")
TraySetState()

#Region ; GUI Erstellung - nur ein erstes Beispiel
$hGUI = GUICreate("A L A R M", @DesktopWidth - 100, @DesktopHeight - 100, -1, -1, 0x0) ; erstelle die GUI
$sLabel = GUICtrlCreateLabel("KEIN ALARM", 600, 100, 600, 200) ; schreibe diesen Text als Label
GUICtrlSetFont($sLabel, 50, 900) ; setze den Font
$idButton = GUICtrlCreateButton("OK", 700, 400, 150, 150) ; erstelle OK Button.
GUICtrlSetFont($idButton, 50, 900) ; setze den Font
GUISetState(@SW_HIDE, $hGUI) ; verstecke die GUI
#EndRegion ; GUI Erstellung - nur ein erstes Beispiel

#Region ; Hauptschleife
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $idButton ; wenn OK Button gedrückt wird ..
            _OKpressed()
    EndSwitch
WEnd
#EndRegion ; Hauptschleife

#Region ; Funktionen
Func _PixelbereichScannen($sLocation)
    ConsoleWrite("Funktion _PixelbereichScannen Anfang" & @CRLF)
    Local $aCoord
    ; Wenn in den unten stehenden Koordinaten die Farbe grün (0x53A000) zu finden ist, ist alles OK
    ConsoleWrite("$sLocation ist: " & $sLocation & @CRLF)
    If $sLocation = "GP" Then
        $aCoord = PixelSearch(-2833, 835, -2771, 872, 0x53A000, 50, 3)
    Else
        $aCoord = PixelSearch(-1225, 820, -1146, 866, 0x53A000, 50, 3)
    EndIf
    If Not @error Then ; wenn alles OK ist dann
        $iAlarmCounter = 0 ; setze Counter wieder zurück auf 0
        ConsoleWrite("$iAlarmCounter ist: " & $iAlarmCounter & @CRLF)
    Else
        ;ConsoleWrite("Kein Treffer bei OK" & @CRLF)
    EndIf

    ; Wenn in den unten stehenden Koordinaten die Farbe orange (0xFAA732) zu finden ist, ist Warnstufe 1 angesagt
    If $sLocation = "GP" Then
        $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xFAA732, 50, 3)
    Else
        $aCoord = PixelSearch(-1225, 820, -1146, 866, 0xFAA732, 50, 3)
    EndIf
    If Not @error Then ; wenn oranger Alarm ausgelöst wurde, dann
        ConsoleWrite("Oranger Alarm" & @CRLF) ; schreibe es in die Console
        _ProblemKnopf("orange") ; führe Function aus
    Else
        ;ConsoleWrite("Kein Treffer bei orangener Alarm" & @CRLF)
    EndIf

    ; Wenn in den unten stehenden Koordinaten die Farbe rot (0xA00000) zu finden ist, ist Warnstufe 2 angesagt
    If $sLocation = "GP" Then
        $aCoord = PixelSearch(-2833, 835, -2771, 872, 0xA00000, 50, 3)
    Else
        $aCoord = PixelSearch(-1225, 820, -1146, 866, 0xA00000, 50, 3)
    EndIf
    If Not @error Then
        ConsoleWrite("Roter Alarm" & @CRLF)
        _ProblemKnopf("rot") ; führe Function aus
    Else
        ;ConsoleWrite("Kein Treffer bei rotem Alarm" & @CRLF)
    EndIf
    ConsoleWrite("Funktion _PixelbereichScannen Ende" & @CRLF)
EndFunc   ;==>_PixelbereichScannen

Func _ProblemKnopf($sFarbe)
    ConsoleWrite("Funktion _ProblemKnopf Anfang" & @CRLF)
    ConsoleWrite("$iAlarmCounter ist: " & $iAlarmCounter & @CRLF)
    If Not $iAlarmCounter = 2 Then ; Wenn der Counter 0 oder 1 ist, dann gehe in die IF Schleife, wenn der Counter 2 ist (es wurde bereits OK gedrückt), dann bleib draußen.

        Local $sLabel
        ConsoleWrite("$iAlarmCounter ist: " & $iAlarmCounter & @CRLF)
        If $iAlarmCounter = 0 Then ; wenn der Counter 0 ist, erstelle die GUI nur einmal
            $iAlarmCounter = 1 ; setze Counter auf 1
            ;$hGUI = GUICreate("A L A R M", @DesktopWidth - 100, @DesktopHeight - 100, -1, -1, 0x01000200)
        EndIf ; hier ist der Counter auf 1, d.h. die Oberfläche wird angepasst.

        ConsoleWrite("$sFarbe ist: " & $sFarbe & @CRLF)
        If $sFarbe = "orange" Then ; wenn orangener Alarm, dann
            GUISetBkColor(0xFAA732, $hGUI) ; färbe den Hintergrund in Orange ein
        Else ; ansonsten roter Alarm
            GUISetBkColor(0xA00000, $hGUI) ; ansonsten in rote Farbe
        EndIf

        If $sFarbe = "orange" Then ; wenn orangener Alarm, dann
            GUICtrlSetData($sLabel, "ORANGENER ALARM") ; schreibe diesen Text als Label
        Else ; ansonsten
            GUICtrlSetData($sLabel, "ROTER ALARM") ; schreibe diesen Text als Label
        EndIf
        GUISetState(@SW_SHOW, $hGUI)
        ConsoleWrite("Rückgabe von @error nachdem GUI aktualisiert wurde: " & @error & @CRLF)
    EndIf

    If $sFarbe = "orange" Then ; wenn orangener Alarm, dann
        _PlaySound("orange")
    Else ; ansonsten roter Alarm
        _PlaySound("rot")
    EndIf
    ConsoleWrite("Funktion _ProblemKnopf Ende" & @CRLF)
EndFunc   ;==>_ProblemKnopf

Func _PlaySound($sFarbe)
    ConsoleWrite("Funktion _PlaySound Anfang" & @CRLF)
    ConsoleWrite("$sFarbe ist: " & $sFarbe & @CRLF)
    Local $aSound, $sound, $tText
    If $sFarbe = "orange" Then ; wenn orangener Alarm, dann
        $aSound = _SoundOpen(@ScriptDir & "\orange.wav")
    Else ; ansonsten roter Alarm
        $aSound = _SoundOpen(@ScriptDir & "\rot.wav")
    EndIf

    If @error = 2 Then
        MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Datei existiert nicht.")
        Exit
    ElseIf @extended <> 0 Then
        Local $iExtended = @extended ; Zuweisung, weil @extended nach DllStructCreate() geändert wird
        Local $stText = DllStructCreate("char[128]")
        DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $iExtended, "struct*", $tText, "int", 128)
        MsgBox($MB_SYSTEMMODAL, "Fehler", "Öffnen fehlgeschlagen." & @CRLF & "Fehlernummer: " & $iExtended & @CRLF & "Fehlerbeschreibung: " & DllStructGetData($stText, 1) & @CRLF & "Beachte: Möglicherweise kann der Sound dennoch korrekt abgespielt werden.")
    Else
;~         MsgBox($MB_SYSTEMMODAL, "Erfolgsmeldung", "Die Datei wurde erfolgreich geöffnet.")
    EndIf
    ConsoleWrite("$iAlarmCounter ist: " & $iAlarmCounter & @CRLF)
    If $iAlarmCounter = 1 Then ; Wenn der Counter auf 1 ist, sprich ein Alarm wurde ausgelöst, dann soll der Sound erklingen
        ConsoleWrite("Sound sollte spielen" & @CRLF)
;~         _SoundPlay($aSound, 0)
    Else ; wenn der Counter auf 0 oder 2 steht, sprich man hat OK gedrückt, dann soll der Sound ausgehen.
        ConsoleWrite("$Sound sollte aus sein" & @CRLF)
        _SoundClose($sound)
    EndIf
    ConsoleWrite("Funktion _PlaySound Ende" & @CRLF)
EndFunc   ;==>_PlaySound

Func _OKpressed()
    ConsoleWrite("Funktion _OKpressed Anfang" & @CRLF)
    GUIDelete($hGUI) ; und lösche die GUI
    $iAlarmCounter = 2 ; setze Counter auf 2
    ConsoleWrite("$iAlarmCounter ist: " & $iAlarmCounter & @CRLF)
    ConsoleWrite("Funktion _OKpressed Ende" & @CRLF)
EndFunc   ;==>_OKpressed

Func _Exit()
    Exit
EndFunc   ;==>_Exit
#EndRegion ; Funktionen

Alles anzeigen

Ich dachte mit GUISetState(@SW_SHOW, $hGUI) erzeugt man einen Refresh der GUI?

Vermutlich ist es das gleiche, wie ich hier schon mal hatte. Die GUI soll aber halt dann aktualisiert werden, wenn ich einen orangenen oder roten Alarm habe. Das muss doch irgendwie möglich sein.

**alpines**

Zitat von Code4Fun

Ich dachte mit GUISetState(@SW_SHOW, $hGUI) erzeugt man einen Refresh der GUI?

Was ist denn ein "Refresh" von einer GUI?

GUISetState setzt nur den State einer GUI, diese kann unter anderem Versteckt, Angezeigt und Gesperrt sein.

Mit GUICtrlSetData kannst du neue Werte der Controls auf der GUI setzen welche dann direkt übernommen werden.

Code4Fun

Habe mein Problem gefunden. Musste die Zeile auf If $iAlarmCounter <> 2 Then ändern, dann läuft das auch rein, wenn $iAlarmCounter = 1 ist. Frage ich eigentlich den @error falsch ab? Der GUISetState geht jetzt, aber bei der Zeile ConsoleWrite("Rückgabe von @error nachdem GUI aktualisiert wurde: " & @error & @CRLF & @CRLF) bekomme ich immer noch eine 0 als Ergebnis. Laut Hilfe ist aber 0 = Fehler.

**alpines**

Zitat von Code4Fun

Laut Hilfe ist aber 0 = Fehler.

Und in welcher Hilfe hast du nachgesehen? @error wird in GUISetState nicht mal erwähnt.

**BugFix**

Zitat von Code4Fun

GUIDelete($hGUI) ; und lösche die GUI

Nein, nur GUISetState(@SW_HIDE), sonst ist dein GUISetState(@SW_SHOW) auch nicht sinnvoll.

Code4Fun

Zitat von BugFix

Nein, nur GUISetState(@SW_HIDE), sonst ist dein GUISetState(@SW_SHOW) auch nicht sinnvoll.

Hallo BugFix, das ist mir vor 2 Minuten auch aufgefallen. Danke für den Tipp

**chesstiger**

Eine Sache ist mir noch nicht ganz klar. Du schreibst von einem webbasiertem Monitoring-System. Wenn es nicht gerade eine uralte Flash- oder Java-Webanwendung ist, wäre es doch deutlich eleganter, den Status über die IE.au3 oder noch besser per TCP/HTTP abzufragen. Mit Pixel-Farben zu hantieren ist immer irgendwie Mist und neigt zur Fehleranfälligkeit und Unzuverlässigkeit. Hast du das schon versucht?

Code4Fun

In der Zwischenzeit geht das recht gut....