Problem mit While

Nabend zusammen.

Benutze schon zienmlich lange AutoIt für kleine Programme auf der Arbeit.
Nun komme ich zum ersten mal nicht weiter und nun hoffe ich ihr könnt mir helfen.
Das Programm ist eigentlich ziemlich einfach und klein.

Auf der Arbeit benutze ich ein Email Programm was den Cursor ändert wenn eine Email im Eingang ist.
Ich wollte daher einen Move befehl ausführen der den Posteingang abfährt und sobald eine Email im eingang ist
(cursor ändert sich) auf die Email klickt.

$maus = MouseGetCursor()
$IDs = StringSplit("AppStarting|Arrow|Cross|Help|IBeam|Icon|No|" & _
"Size|SizeAll|SizeNESW|SizeNS|SizeNWSE|SizeWE|UpArrow|Wait", "|")

sleep(500)
MouseMove(76, 615, 0)
Sleep(500)
while MouseGetCursor()
MouseMove(76, 92,20)
If $maus = 3 Then
MouseClick("left")
Else
Exit
EndIf
WEnd

Das Programm führt immer nur diesen Exit Code aus auch wenn der Cursor so ist wie er sein soll :).
Ohne diese While Schleife funktioniert das Programm.

Hoffe ihr könnt mir helfen

Danke.

Ich würd das auch mal vermuten... also:

$maus = MouseGetCursor()
$IDs = StringSplit("AppStarting|Arrow|Cross|Help|IBeam|Icon|No|" & _
"Size|SizeAll|SizeNESW|SizeNS|SizeNWSE|SizeWE|UpArrow|Wait", "|")

sleep(500)
MouseMove(76, 615, 0)
Sleep(500)
while 1
$maus = MouseGetCursor()
MouseMove(76, 92,20)
If $maus = 3 Then
MouseClick("left")
Else
Exit
EndIf
WEnd

Geht's jetzt?

Alledrings solltest du das MouseMove auch mit in die If-Anweisung packen, sonst kommt man nicht mehr von dem Punkt weg Und dann noch ein Sleep, um denProzessor nicht komplett auszuasten.

Erste Movebefehl Springt zum Fenster rand.
Zweiter Movebefehl geht den Posteingang ab.
Habs eingefügt passiert immer noch nichts.

Nur mal so, geht das überhaupt mit dem Befehl While ?
Während der Movebefehl ausgeführt wird soll der den Cursor die ganze zeit abfragen ob er sich verändert bei veränderung sofort auf die Mail klicken

Zitat von SEuBo

Hier zwei Varianten. Probier sie mal aus:

[autoit]

MouseMove(76, 615, 0)
AdlibRegister("_CheckCursor",50)
MouseMove(76, 92,100)

[/autoit] [autoit][/autoit] [autoit]

Func _CheckCursor()
If MouseGetCursor() = 3 Then
MouseClick("left")
AdlibUnRegister("_CheckCursor")
EndIf
EndFunc

[/autoit][autoit]

;----- Oder eine mE nach sichere/bessere Variante
MouseMove(76, 615, 0)
Do
If MouseGetCursor() = 3 Then
MouseClick("left")
ExitLoop
EndIf
MouseMove(MouseGetPos(0),MouseGetPos(1)-1,0)
Until MouseGetPos(1) < 92

[/autoit]

Alles anzeigen

Der Zweite befehl klapt.
Jetzt nur noch eins
Wie würde das aussehen wenn ich auf Position 384,173 will.

Zitat von SEuBo

Von welchem punkt aus?

von diesen MouseMove(446, 254, 0)

MouseMove(446, 254, 0)
Do
If MouseGetCursor() = 0 Then
Run("cmd.exe")
ExitLoop
EndIf
MouseMove(384,173,20)
Until MouseGetPos(1) < 0

habe das jetzt gemacht aber nun klickt der wieder nicht wenn sich der cursor ändert.... -.-
E* cmd.exe damit ich sehe das was passiert habe hier nicht das email programm was ich auf der arbeit hab