Problem mit Script

RF1T2 · 12/13/2013, 15:52

Hallo,

habe ein Problem mit einem Script welches leider nur teilweise funktioniert.
Es hakt bei Select. Alles was sich zwischen Select und Endselect befindet
wird ignoriert da ich etwas falsch gemacht habe. Vllt wird es ja auch nicht
ignoriert jedenfalls wird nicht auf die entsprechende Farbe geklickt.

Da es sonst zu lang werden würde poste ich nur einen Teil des Scripts:

Code:

#include <GUIConstantsEx.au3>

GUICreate("Part1", 500, 100)
GUICtrlCreateLabel("[F1] - Start", 8, 8)
GUICtrlCreateLabel("[ESC] - Ende", 8, 48)
GUISetState(@SW_SHOW)

HotKeySet("{F1}", "Start")
HotKeySet("{ESC}", "Ende")

While 1
	Sleep(500)
WEnd

Func Ende()
	Exit
EndFunc



Func Start()
	$PixelPosColorMark = PixelSearch(38 ,119 ,809 ,602 ,0x0B39FF ,4 )
	$PixelPosColorBanker = PixelSearch(38 ,119 ,809 ,602 ,0x31264A ,4 )



	MouseClick("Left",845, 267)

	Sleep(2000)


(......)
	

	MouseClick("Left",1013, 200)

	Sleep(10000)



	Select

	Case	IsArray($PixelPosColorMark)
			MouseClick("left", $PixelPosColorMark[0], $PixelPosColorMark[1], 1, 0)
	EndSelect

	Sleep(5000)


	Select

	Case	IsArray($PixelPosColorBanker)
			MouseClick("left", $PixelPosColorBanker[0], $PixelPosColorBanker[1], 1, 0)
	EndSelect

	Sleep(3000)

	Send("{Space}")

(......)

	Sleep(30000)


EndFunc

Ideen?
Danke fürs lesen

butter123 · 12/13/2013, 16:18

select case brauch wie if eine abfrage, die True oder false liefert. schau dir das doch mal in der hilfe an (google oder f1 in scite)

RF1T2 · 12/13/2013, 17:01

Sicher?
Denn ich habe auch dieses Script welches funktioniert:

Code:

Func Start()
While 1
	$PixelPos = PixelSearch(0,0,@DesktopWidth, @DesktopHeight, 0xD9D9BD, 0)




	Select
	Case	IsArray($PixelPos)
			MouseClick("left", $PixelPos[0], $PixelPos[1], 1, 0)
			Sleep(35000)

	Send	("{left}")


	EndSelect
WEnd
EndFunc

butter123 · 12/13/2013, 17:35

isarray liefert auch true oder false zurück

RF1T2 · 12/13/2013, 18:29

Aber wo liegt der Unterschied zwischen den beiden Beispielen?

butter123 · 12/13/2013, 19:24

ohh sorry peinlich, hab ich wohl nicht genau gelesen.
weiß spontan dann nicht worans liegt. probiers vllt mit ner if abfrage anstatt select

alpines · 12/13/2013, 20:02

Select kann er schon verwenden dann müsste er aber folgendes verwenden

Code:

Select
	IsArray($a) = 1

Eine If-Abfrage bietet sich aber besser an

Code:

If IsArray($a) Then ;...

RF1T2 · 12/13/2013, 21:14

Ich werds mal ausprobieren danke

alpines · 12/13/2013, 21:19

Switch würde sogar auch funktionieren, da würde es so aussehen

Code:

Switch IsArray($a)
	Case 1
		;Wenn es ein Array ist.

	Case 0
		;Wenn es kein Array ist.
EndSwitch

hier als Select

Code:

$iResult = IsArray($a)

Select
	Case $iResult = 1
		;Wenn es ein Array ist.

	Case $iResult = 0
		;Wenn es kein Array ist.
EndSelect

und zuletzt als If

Code:

If IsArray($a) Then
	;Wenn es ein Array ist.
Else
	;Wenn es kein Array ist.
EndIf

Es gibt verschiedene Möglichkeiten die Verzweigungen zu verwenden, aber bei IsArray würde ich auf jeden Fall die If-Verzweigung nutzen.

RF1T2 · 12/13/2013, 22:41

Mit If hats geklappt, danke

Kurze Frage vllt noch:
Ist es möglich das Script, falls "Else" die Antwort ist, erst etwas
machen zu lassen z.B. einen Klick und danach wieder zurückgehen
zu lassen zu dem Punkt an dem die If Abfrage beginnt?

~~.Ghost.~~ · 12/13/2013, 22:46

Kann dich per Skype melden.

KDeluxe · 12/13/2013, 23:07

Quote:

Originally Posted by RF1T2

Mit If hats geklappt, danke

Kurze Frage vllt noch:
Ist es möglich das Script, falls "Else" die Antwort ist, erst etwas
machen zu lassen z.B. einen Klick und danach wieder zurückgehen
zu lassen zu dem Punkt an dem die If Abfrage beginnt?

Einfach weitere Bedingungen verwenden (sofern nötig) und die Schleife durchlaufen lassen. Einen "goto" Befehl gibt es in AutoIt nicht.

Claiver · 12/15/2013, 07:06

Quote:

Originally Posted by RF1T2

Mit If hats geklappt, danke

Kurze Frage vllt noch:
Ist es möglich das Script, falls "Else" die Antwort ist, erst etwas
machen zu lassen z.B. einen Klick und danach wieder zurückgehen
zu lassen zu dem Punkt an dem die If Abfrage beginnt?

Jaa ist möglich

Code:

Func _Array()
If IsArray($a) Then
	;Wenn es ein Array ist.
Else
	;Wenn es kein Array ist.
        MouseClick("left",0,0,1,1)
        _Array()
EndIf
EndFunc

Dann musst du aber noch irgendwo in deinem Script

Code:

_Array()

einfügen außer du machst es mit einem

Code:

HotKeySet("{F5}","_Array"

das heißt wenn du F5 drückst wird _Array abgespielt... und wenn du einfachso _Array() schreibst wird es einfachso abgespielt.
Wenn du willst das es erst passiert wenn man einen Button drückt musst du bei

Code:

Case $Button1
_Array()

einfügen

)

RF1T2 · 12/15/2013, 22:33

Quote:

Originally Posted by Claiver

Jaa ist möglich

Code:

Func _Array()
If IsArray($a) Then
	;Wenn es ein Array ist.
Else
	;Wenn es kein Array ist.
        MouseClick("left",0,0,1,1)
        _Array()
EndIf
EndFunc

(...)

DANKE!
Funktionert gut

alpines · 12/15/2013, 22:38

Code:

Func _Array()
If IsArray($a) Then
	;Wenn es ein Array ist.
Else
	;Wenn es kein Array ist.
        MouseClick("left",0,0,1,1)
        _Array()
EndIf
EndFunc

Recursion-Error missile launched. Impact in 3, 2, 1...
Ich würde die Funktion anders formulieren.