Schleifenproblem

thewanderer

Hallo ihr lieben, hab mal wieder ein Problem...
Hab in meinem Büro immer Mucke am laufen. Wenn ich jetzt nen Anruf bekomme, geht mein Anrufmonitor auf.

Entweder so:
moni0.png

oder so:
moni1.png

Der Monitor bleibt während des Telefonats offen (siehe Zeitanzeige oben im Fenster). Da ich sowieso grad mit autoit am rumbasteln bin, dachte ich mir, ich könnte des mit Pixelsearch lösen, indem ich nach rot bzw gelb in dem Logobereich scannen lasse. Wenn eine der Farben vorhanden, dann Pause

Hier mein bisheriger Lösungsansatz

Spoiler anzeigen

AutoIt

#include <Misc.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>


Global $olpos, $urpos, $Looping


start()
Func start()
	$Looping = 1
	bereich()
EndFunc   ;==>start




; Bereich Anrufmonitor festlegen
Func bereich()
	While $Looping
		If _IsPressed(01) Then
			$olpos = MouseGetPos()
			While _IsPressed(01)
			WEnd
			ExitLoop
		EndIf
	WEnd
	Sleep(100)
	While $Looping
		If _IsPressed(01) Then
			$urpos = MouseGetPos()
			While _IsPressed(01)
			WEnd
			ExitLoop
		EndIf
	WEnd
fritz()
EndFunc   ;==>bereich




Func fritz()
	While 1
		$waitpixel = PixelSearch($olpos[0], $olpos[1], $urpos[0], $urpos[1], 0xffe500, 10)
		$waitpixel1 = PixelSearch($olpos[0], $olpos[1], $urpos[0], $urpos[1], 0xea0019, 10)
		While True
			If IsArray($waitpixel) = True OR IsArray($waitpixel1) = True Then
			WinActivate("AIMP3")
			Send("{SPACE}")
			EndIf
			If IsArray($waitpixel) = False AND IsArray($waitpixel1) = False Then
			WinActivate("AIMP3")
			Send("{SPACE}")
			EndIf
		WEnd
	WEnd


EndFunc   ;==>fritz

Alles anzeigen

Wenn jetzt ein Anruf kommt, öffnet er mir zwar den AIMP3 (Player) und macht pause, aber da er in ner Endlosschleife hängt, nimmt er die logischerweise auch gleich wieder raus, wieder rein etc.
Wie kann ich des lösen, dass ich sag -> wenn Farbe da, dann AIMP3 -> Pause und erst was machen, wenn sich Farbzustand ändert?

PS: Ich weiß, dass sich des eleganter mit Winexist lösen löst, wollte es aber mal so probieren. Winexist kommt auch noch

**alpines**

In dem du eine Variable hinzufügst die feststellt ob das schon verändert wurde oder nicht. Booleans bieten sich da hervorragend an.
Wenn kein Anruf da ist (Startzustand) setzt du sie False, wenn einer ankommt und du den annimmst setzt du die Variable true und pausierst den Player.
Wenn der Anruf weg ist UND die Variable true ist setzt du sie false und lässt den Player wieder laufen.

**BugFix**

Das Fenster kannst du doch über seinen Namen identifizieren.
- Dauerschleife zur Überwachung (kleines Sleep nicht vergessen)
- abfragen If WinActive(Fenstertitel) Then _Mucke_aus_
Fenstertitel kannst du auch als Teil des Namens verwenden mit Opt('WinTitleMatchMode', 2)

**alpines**

Zitat von BugFix

Das Fenster kannst du doch über seinen Namen identifizieren.
- Dauerschleife zur Überwachung (kleines Sleep nicht vergessen)
- abfragen If WinActive(Fenstertitel) Then _Mucke_aus_
Fenstertitel kannst du auch als Teil des Namens verwenden mit Opt('WinTitleMatchMode', 2)

Wenn das Fenster den Fokus verliert und wieder den Fokus erlangt wird es allerdings die Musik wieder anschalten also doch lieber mit Booleans.

**BugFix**

Zitat von alpines

also doch lieber mit Booleans.

Mir ging es ausschliesslich um die Fenstererkennung. PixelSearch sollte nun wirklich niemand ernsthaft verwenden wollen.

thewanderer

Über der Lösung mit:

If WinActive(AVMCALLBox)

bin ich auch schon drüber. Mir geht es aber nicht um die Fenstererkennung - das funktioniert, sondern um die Schleifen (siehe Thread-Titel).
Ich hab auch hier das Problem, dass ich da in nder Endlosschleife häng und noch nicht herausgefunden hab, wie ich die beende.
Ergebnis - Musik an, Musik aus, Musik an etc

Wie sag ich ihm: wenn Anruf, dann 1x erste Schleife, dann nix mehr bis Fenster wieder verschwunden?

**alpines**

Zitat von thewanderer

Über der Lösung mit:

If WinActive(AVMCALLBox)

bin ich auch schon drüber. Mir geht es aber nicht um die Fenstererkennung - das funktioniert, sondern um die Schleifen (siehe Thread-Titel).
Ich hab auch hier das Problem, dass ich da in nder Endlosschleife häng und noch nicht herausgefunden hab, wie ich die beende.
Ergebnis - Musik an, Musik aus, Musik an etc

Wie sag ich ihm: wenn Anruf, dann 1x erste Schleife, dann nix mehr bis Fenster wieder verschwunden?

Habe ich doch bereits im 1. Post geschrieben, mit einem Boolean oder irgendeiner Variable wo du den Zustand dokumentierst.

BananaJoe

Das kann man doch auch mit If WinExists('Title') lösen.

thewanderer

Wie gesagt, mir geht es nicht um die Fensterabfrage, sondern um die Schleifen.
Hab es jetzt soweit, daß er mir bei nem Anruf zwar den Player pausiert, aber sofort wieder aktiviert

AutoIt

Func fritz()
local $var = False
	While 1
			While $var = False
				Local $waitpixel = PixelSearch($olpos[0], $olpos[1], $urpos[0], $urpos[1], 0xffe500, 20)
				Local $waitpixel1 = PixelSearch($olpos[0], $olpos[1], $urpos[0], $urpos[1], 0xea0019, 20)
				If IsArray($waitpixel) = True OR IsArray($waitpixel1) = True Then
					$var = True
					WinActivate("AIMP3")
					Send("{SPACE}")
					EndIf
				If IsArray($waitpixel) = False OR IsArray($waitpixel1) = False Then
					$var = False
					WinActivate("AIMP3")
					Send("{SPACE}")
				EndIf
			WEnd
	WEnd
EndFunc   ;==>fritz

Alles anzeigen

Irgendwie scheint in der Zeile 12 ein Fehler drin zu sein, weil er soll die Anweisung ja nur ausführen, wenn er die Farbe nicht findet.
Gleiches Resultat mit If WinActive

AutoIt

Func fritz()
local $var = False
	While $var = False
		if WinActive("AVMCALLBox") = True Then
			$var = True
			WinActivate("AIMP3")
			Send("{SPACE}")
		EndIf
		If WinActive("AVMCALLBox") = False And $var = True Then
			$var = False
			WinActivate("AIMP3")
			Send("{SPACE}")
		EndIf
	WEnd
EndFunc

Alles anzeigen

Er macht Mucke kurz aus, aber gleich wieder an, obwohl ja der Anrufmonitor aktiv ist. also scheint auch hier in Zeile 9 was nicht zu passen. Irgendwie ignoriert er des False

thewanderer

Thema hat sich erledigt. Dachte man kann sich autoit selbst erlesen, aber dem scheint nicht so, weil die Hilfe ist echt für', Ar*ch.
Beispiel:

If WinActive("[CLASS:Notepad]") Then
MsgBox(0, "", "Das Fenster ist aktiv")
EndIf

Und wenn es nicht aktiv ist? If WinActive("[CLASS:Notepad]") = False Then scheint er völlig zu ignorieren.

Da prog ich lieber weiter auf der shell, die funktioniert sinnvoller...

Lottich

Das ist, weil du diese Möglichkeit nicht angegeben hast.
Dein CodeBeispiel "fragt" eben nur diesen einen Zustand ab.

AutoIt

If WinActive("[CLASS:Notepad]") Then
    MsgBox(0, "", "Das Fenster ist aktiv")
Else
    MsgBox(0, "", "Das Fenster ist NICHT aktiv")
EndIf

Dieser Code "fragt" beide Zustände ab und handelt entsprechend.
Man kann sich AutoIt durchaus selber beibringen, man muss die Hilfe nur richtig lesen

**AspirinJunkie**

Zitat von thewanderer

Und wenn es nicht aktiv ist? If WinActive("[CLASS:Notepad]") = False Then scheint er völlig zu ignorieren.

Das Beispiel ist doch vollkommen ok. Wenn du das so hinschreibst wird das folgende nur dann ausgeführt wenn das Notepad-Fenster momentan nicht das aktive Fenster ist.
Wo ist dort das Problem?

Zitat von thewanderer

Dachte man kann sich autoit selbst erlesen, aber dem scheint nicht so, weil die Hilfe ist echt für', Ar*ch.

Ich hab nun schon zig Programmiersprachen gesehen und genutzt - aber bei keiner konnte ich so gut mit Hilfe der mitgelieferten Dokumentation arbeiten wie bei AutoIt.
Warum die Hilfe nun konkret für den Arsch sein soll hab ich aus deinem Post leider nicht entnehmen können.

thewanderer

und warum führt er hier

AutoIt

Func fritz()
local $var = False
While 1
	Select
		Case WinExists("AVMCALLBox") = True
			$var = True
			WinActivate("AIMP3")
			Send("{SPACE}")
		Case WinExists("AVMCALLBox") = False And $var = True
			$var = False
			WinActivate("AIMP3")
			Send("{SPACE}")
		EndSelect
WEnd
EndFunc   ;==>fritz

Alles anzeigen

die folgenden Befehle ab Zeile 9 aus, obwohl das Fenster aktiv ist?
Ergebnis: Mucke an, Mucke aus, Mucke an - obwohl der Anrufmonitor offen und auch aktiv ist

Für mich steht da ab Zeile 9: wenn WinExist = falsch dann soll er ausführen, also wenn es NICHT da ist
Gleiches Ergebnis mit WinActive, hab es nu nur mal mit WinExist probiert

Ich arbeite seit ~8 Jahren mit Linux, programmiere u.a. Datensicherungsskripte für Firmen mit 10 und mehr Clients unter Linux bzw mit Cygwin unter Win. Also stringregexp, sed etc ist alles kein prob, weil man da wesentlich bessere Hilfen findet, anstatt nur nen Codeschnipsel

Lottich

Weil dein Code (scheinbar) nicht wirklich durchdacht ist.
versuchs mal damit:

AutoIt

Func fritz()
local $var = False
While 1
    If WinExists("AVMCALLBox") Then
        $var = True
	WinActivate("AIMP3")
	Send("{SPACE}")
        Do
            Sleep(50) ; Funktion "schläft" bis das Fenster nicht mehr existiert
	Until WinExists("AVMCALLBox") = False
	$var = False
	WinActivate("AIMP3")
	Send("{SPACE}")
        ExitLoop ; Damit du aus der Schleife rauskommst und die Funktion verlassen wird
    EndIf
WEnd
EndFunc   ;==>fritz

Alles anzeigen

**AspirinJunkie**

Wenn es tatsächlich den Code ab Zeile 10 ausführt, dann gibt es kein Fenster mit dem Titel "AVMCallBox".
Zum Gegencheck kannst du ja folgendes ausführen (listet alle aktuellen Fenster sowohl sichtbar als auch unsichtbar):

AutoIt

#include <Array.au3>
$a_Windows = WinList()
_ArrayDisplay($a_Windows)

Etwas eleganter wäre es auch anstatt einer Dauerabfrage die Windows-Events auszunutzen.
So wird dein Skript nur dann tätig wenn z.B. das aktive Fenster wechselt.

Mal als Beispiel:

AutoIt

HotKeySet("{ESC}", "_raus")


; Funktion _reactOnFocusChange mit EVENT_SYSTEM_FOREGROUND "verbinden"
$hWinEventProc = DllCallbackRegister(_reactOnFocusChange, "none", "hwnd;int;hwnd;long;long;int;int")
DllCall("User32.dll", "hwnd", "SetWinEventHook", "uint", 0x3, "uint", 0x3, "hwnd", 0, "ptr", DllCallbackGetPtr($hWinEventProc), "int", 0, "int", 0, "uint", 0x2)


; sparsame Endlosschleife
While Sleep(100)
WEnd




; Funktion welche ausgeführt wird, sobald das aktive Fenster wechselt
Func _reactOnFocusChange($hHook, $iEvent, $hWnd, $idObject, $idChild, $iEventThread, $iEventTime)
	If WinGetTitle($hWnd) = "AVMCALLBox" Then MsgBox(0, "", "AVMCallbox hat sich vorgedrängelt")
EndFunc   ;==>_reactOnFocusChange


; Wenn ESC gedrückt wird - beenden
Func _raus()
	Exit
EndFunc

Alles anzeigen

**autoBert**

Zitat von AspirinJunkie

Ich hab nun schon zig Programmiersprachen gesehen und genutzt - aber bei keiner konnte ich so gut mit Hilfe der mitgelieferten Dokumentation arbeiten wie bei AutoIt.Warum die Hilfe nun konkret für den Arsch sein soll hab ich aus deinem Post leider nicht entnehmen können.

bei mir sind es zwar nur 1 Hand voll, kann aber nur bestätigen definitiv beste Doku und Hilfe mir bekannter Window's Sprachen.

thewanderer

Danke für eure Hilfe, aber wie gesagt, ich lass es.

@ Lottich
Dein Skript funktioniert, wenn der Anrufmonitor schon offen ist. Wenn ich in Zeile 4 WinExists in WinActive ändere funktioniert es zwar, allerdings aktiviert er die Mucke trotzdem teilweise, wenn ich andere Programme wie Terminplaner, Routenplaner etc öffne. Bin selbständiger Fachinformatiker (NEIN, kein Programmierer sondern Linux-SysAdmin) und hab am Tag ca. 20 Kundengespräche. Deshalb war mein Lösungsansatz über Pixelsearch (siehe Anfangspost), da der Anrufmonitor immer auf meinem 4. Monitor aufpoppt.

Zitat von autoBert

bei mir sind es zwar nur 1 Hand voll, kann aber nur bestätigen definitiv beste Doku und Hilfe mir bekannter Window's Sprachen.

Deshalb arbeite ich mit MicroSCHROTT im Normalfall nicht