Beiträge von Code4Fun

  • 3 verschiedene Farben auf bestimmten Koordinaten erkennen und Meldung ausgeben

    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.

  • 3 verschiedene Farben auf bestimmten Koordinaten erkennen und Meldung ausgeben

    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

    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.

  • 3 verschiedene Farben auf bestimmten Koordinaten erkennen und Meldung ausgeben

    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?

  • 3 verschiedene Farben auf bestimmten Koordinaten erkennen und Meldung ausgeben

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

    Code

    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?

  • 3 verschiedene Farben auf bestimmten Koordinaten erkennen und Meldung ausgeben

    Hallo hier mal mein Script

    Spoiler 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

  • Frage zu CUI EXE Fenster

    Danke für eure Hilfe. Ich habe es jetzt "ähnlich" der Lösung von BugFix selbst so gemacht. Da ich ja in der Aufgabenplanung bereits eine EXE als "Monitoring" laufen habe, habe ich dort einfach geschaut, ob meine "Haupt.exe" noch läuft. Da diese sich ja sauber beendet, aber noch die eine "conhost.exe" offen ist, wird hieraus die PID dieser speziellen "conhost.exe" ermittelt und dann beendet. Funktioniert bisher sehr gut. Ich werde diesen Thread von daher mal als erledigt markieren.

  • Frage zu CUI EXE Fenster

    Function _01_AppStarter()

    und hier die Ausgabe des Kommandozeilen Fenster

    Ausgabe vom Kommandozeilen Fenster

  • Frage zu CUI EXE Fenster

    Das verstehe ich jetzt nicht. Wenn ich in der _01_AppStarter() irgendwo festhängen würde (was ich ich nicht mache, da ich ja das Ende der Funktion kenne und das auch ausgeführt wird), dann dürfte doch die Zeile ConsoleWrite("Alle Anwendungen wurden gestartet. In 5 Sekunden beendet sich diese Anwendung" & @CRLF) gar nicht aufgerufen werden. Oder? Da die aber aufgerufen wird, muss ja auch der

    Code
    Sleep(5000)
Exit

    erfolgen.

    Es wird ja auch die GUIDelete($hGUI) ; schließe die GUI abgearbeitet. Und ein Exit sollten doch hart durchgreifen.

  • Frage zu CUI EXE Fenster

    Hallo alpines, habe jetzt etwas optimieren können, aber noch hängt es an einer Stelle.

    Hier mal der wichtige Code:

    Beim Case $iBTNKill funktioniert alles einwandfrei. Ich bekomme zum Schluß in der Kommandozeile die Meldung Alle Anwendungen wurden beendet. In 5 Sekunden beendet sich diese Anwendung angezeigt. Dann bleibt es über den Sleep(5000) noch offen und wird sauber mit Exit beendet.

    Beim Case $iBTNStart sieht das leider anderst aus. Auch hier bekomme ich in der Kommandozeile die Meldung Alle Anwendungen wurden gestartet. In 5 Sekunden beendet sich diese Anwendung. Nach den 5 Sekunden schließt sich jedoch das Kommandozeilen Fenster nicht, sondern bleibt mit der Meldung stehen. Der Cursor blinkt eine Zeile darunter noch. Der Befehl GUIDelete($hGUI) wird aber ausgeführt, d.h. meine GUI wird beendet. Es bleibt wie gesagt nur das Kommandozeilen Fenster offen.

    Was mache ich hier noch falsch?

  • Frage zu CUI EXE Fenster

    Hallo,

    ich würde - zu Monitorzwecken - mein Script als CUI EXE compilieren (was auch geht). Jedoch habe ich folgende 2 Fragen.

    1.) Wenn sich das CUI Fenster öffnet, steht als Fenster Title Bitte hier eine Beschreibung eintragen. Wo genau definiere ich denn diesen Title?

    2.) Wenn ich das nur als GUI compiliere, dann schließt sich nach Ablauf des Scripts (es werden nur andere Anwendungen damit gestartet) die GUI. Bei der CUI Variante bleibt das CUI Fenster aber geöffnet. Kann man das irgendwie auch automatisch schließen lassen?

    Vielen Dank

  • Wie bildet man ein RunOnce ab?

    Danke für eure Hilfe. Der Tip mit den Countern war gut. Funktioniert jetzt super.

    ABER !!! Die 1. EXE läuft als Dienst noch nicht. Habe Sie folgendermaßen als Dienst unter Windows 10 - Version 1809 (Build 17763.379) eingerichtet.

    CMD als Administrator geöffnet und dann folgenden Befehl ausgeführt.

    Code
    sc create "AppStarter Monitor Service" start= auto binpath= "C:\Pfad zur Anwendung\AppStarterMonitorService.exe"

    Muss man sein Script irgendwie noch vorbereiten, damit es als Dienst läuft?

    Fehlermeldung ist: Der Dienst "AppStarter Monitor Service" auf "Lokaler Computer" konnte nicht gestartet werden. Fehler 1053: Der Dienst antwortete nicht rechtzeitig auf die Start- oder Steuerungsanforderung

    Nachtrag: Ich habe es jetzt "temporär" via Windows Aufgabenplanung gelöst, d.h. sobald ich mich anmelde, wird die 1. EXE gestartet. Dienst wäre etwas schicker.

  • Wie bildet man ein RunOnce ab?

    Guten Morgen,

    ich möchte gerne folgendes verwirklichen.

    Ein Script (EXE) bauen, die als Windows dienst läuft. Diese frägt mit AdlibRegister eine Funktion ab, welche nach der Existenz eines bestimmten Fenstern sucht. Sobald dieses Fenster existiert, soll eine weiteres Script (EXE) gestartet werden, welches genau einmal durchläuft und sich dann selbst beendet.

    Aktuell wird die aufgerufene EXE aber alle 250 ms neu gestartet, da ich bisher den Aufruf nur mit Run verwirklicht habe. Wie bilde ich hier den ein RunOnce ab?

    Kurze Erklärung was hier genau passieren soll.

    • Die 1. EXE läuft als Dienst uns schlummert im Hintergrund.
    • Wenn ich dann ein Telefonat reinbekomme, öffnet sich das Fenster, auf welches der Dienst wartet.
    • Wenn das Fenster entdeckt wird, soll die 2. EXE nur einmal starten. Diese positioniert 2 Fenster genau 1 mal an bestimmte Koordinaten. Danach beendet sich die 2. EXE
    • Problem ist jetzt, das die 1. EXE ja das zu suchende Fenster gleich wieder findet, jetzt aber die 2. EXE nicht mehr ausgeführt werden soll.

    Danke für Eure Hilfe

  • Anwendungen automatisch an bestimmte Monitorposition mit definierter Größe öffnen

    Danke Bitnugger für die Erklärung.

    Jetzt habe ich aber noch ein anderes kleines Problem. Ich muss aber zugeben, das ich bisher mit While ... Wend noch nicht bewußt gearbeitet habe.
    In meinem Script habe ich eine Funktion, welche kurz vor Feierabend (natürlich manuell ausgelöst) viele meiner manuell gestarteten Anwendungen beendet.
    Ich habe jetzt 2 Anwendungen, die beide CSBridge.exe heißen, jedoch aus 2 unterschiedlichen Verzeichnissen gestartet wurden.

    Zuerst hatte ich nur die Zeile ProcessClose("CSBridge.exe"), welche aber nur eine Instanz beendet hat.

    Danach habe ich den Aufruf 2x gestartet, was aber auch nicht immer geholfen hat.

    Jetzt möchte ich das gerne mit einer Schleife lösen, aber irgendwas mache ich noch falsch, da die Schleife gar nicht abgearbeitet wird.

    Ich denke mein Aufruf While $iPID NOT 0 stimmt noch nicht ganz.

    Was mache ich hier falsch?

    Code
    Func _KILL()
        Local $iPID
        ConsoleWrite("die $iPID ist aktuell: " & $iPID & @CRLF)
        While $iPID NOT 0
            $iPID = ProcessExists("CSBridge.exe")
            ConsoleWrite("die $iPID ist aktuell: " & $iPID & @CRLF)
            ProcessClose("CSBridge.exe")
            ConsoleWrite("die $iPID ist aktuell: " & $iPID & @CRLF)
        WEnd
EndFunc

    Vielen Dank

  • Anwendungen automatisch an bestimmte Monitorposition mit definierter Größe öffnen

    Hallo Bitnugger,

    dein Script fliegt hier raus If Not IsHWnd($hWnd) Then _ErrExit(4, 'Fehler bei WinWaitActive!') ; Fehlermeldung wird erzeugt, somit kann ich die beiden Handles noch nicht vergleichen. Oder macht es Sinn die Consolenausgabe zwischen Until und If Zeile zu setzen.

    Wegen den gleichen Koordinaten. Da habe ich ja geschrieben Else ; ansonsten sind dies die Koordinaten der Anwendung (Achtung: müssen vor Ort noch geprüft werden). Ich scripte gerade an meinem Arbeitsplatz zu Hause und muss dann am anderen Arbeitsplatz erst mal die anderen Koordinaten ermitteln.

    Zu Deiner Aussage

    Zitat

    Für dein Vorhaben ist die Verwendung von Send eh absolut an keiner Stelle sinnvoll...

    muss ich folgends sagen. Ich gebe Dir da im prinzip recht, aber Du kennst ja sicherlich die Windows Tastenkombinationen "WinTaste" + Pfeiltasten, womit man die Fenster wunderbar auf den Monitoren positionieren kann, wenn man Sie im Verhältnis 1:4 1:2 oder 1:1 haben möchte. Dafür war der Gedankengang mit dem Send Befehl.

    Nachtrag um 15:11 Uhr.

    Ich habe jetzt eine weitere Anwendung, die sich nicht verschieben lässt. Habe jetzt den Handle via Console ausgeben lassen, als das Script noch gelaufen ist. Der Wert war 0x00000000001F0E96. Nachdem das Script beendet war habe ich die Anwendung mit dem Windows Info Tool gegen gecheckt. Hier ist der Handle 0x00000000001C1196. Ist das normal, dass sich der Handle ändert?

  • Anwendungen automatisch an bestimmte Monitorposition mit definierter Größe öffnen

    Noch eine kleine Frage nebenbei. Wie bilde ich Autoit den die Tastenkombination "gedrückte linke Windows Taste + z.B. Pfeiltaste 1x nach oben drücken" ab.

    Das hier

    Code
    Send("{LWIN down}{UP}") ;

    geht irgendwie nicht. Es öffnet sich hier das Windows Menü. Ich dachte ich hole mir vorher nochmals von Lotus Notes den Focus, aber irgendwie will das nicht

    Code
    If $sLocation = "GP" Then ; wenn Du im Homeoffice bist, sind dies die Koordinaten der Anwendung
            Sleep(20000)
            ConsoleWrite("Warten fertig" & @CRLF)
            WinActivate($hApp) ; nochmals sicher stellen, dass das Fenster von Lotus Notes den Focus hat
            Send("{LWIN down}{UP}") ; halt die linke Windows Taste gedrückt und klicke 1 mal die Pfeiltaste nach oben
;~             Send("{LWIN down}{RIGHT}") ; halt die linke Windows Taste gedrückt und klicke 1 mal die Pfeiltaste nach oben
            Send("{LWIN up}") ; lass die linke Windows Taste wieder los.
;~             WinMove($hApp, "", $iX, $iY, $iW, $iH) ; Verschiebt die Anwendung an obige Koordinaten
        Else ; ansonsten sind dies die Koordinaten der Anwendung

  • Anwendungen automatisch an bestimmte Monitorposition mit definierter Größe öffnen

    Also die Lösung von Bitnugger scheint oft zu gehen, aber leider nicht immer. Auch habe ich den WinTitleMatchMode auf 4 gestellt.

    Hier ein Problem mit Lotus Notes

    Code von Lotus Notes

    Das Script geht in Zeile 26 definitiv in den IF Bereich rein (sehe ich ja anhand der Consolen Ausgabe), aber der WinMove geht nicht. Lotus Notes bleibt immer in der Größe, wie es zuvor geschlossen wurde.

    Hier mal die Ausgabe vom aktuellen Windows Info

    Aktuelle Werte von Windows Info

    Ich habe auch mal gehört, das manche Anwendungen sich die letzte Position merken. Wie ist das denn abgelegt, bzw. wie kann man das manipulieren?

    Danke für eure Hilfe

    Nachtrag um 15:54 Uhr: mit Outlook ist es genau das gleiche. Da moved rein gar nichts.