IF abfolge , Problem

05/15/2011 18:09 Waller66#1
Hallo habe ein script geschrieben das in einem bestimmten fenster nach einer farbe sucht wenn er diese gefunden hat soll er dadrauf klicken und dann erscheint ein roter ball nach dem er suchen soll und ebenfalls dadrauf klicken soll. und dann halt wieder das erste fenster in meinem browser aus wählen (via click) und dann mit f5 die seite refreshen .


ich habe es so gemacht aber nachdemm er eine farbe gefunden hat klick er nicht die andere an (rot).

Code:
HotKeySet("{s}", "_StartBot")
HotKeySet("{p}", "_PauseBot")
HotKeySet("{e}", "_EndeBot")

Global $Active = 0

While 1
	If $Active = 1 Then

		$green = PixelSearch(739, 246,1397, 564, 0xFFEC12, 15)
		$red = PixelSearch(739, 246, 1397, 564, 0xFF0000, 15)
		If IsArray($green) Then
			MouseClick("Left", $green[0], $green[1], 1)
			sleep (Random (1500,3000) )
		 IsArray($red)
			MouseClick("Left", $red[0], $red[1], 1)
	sleep (Random (1500,3000) )
		Endif
		;sleep (Random (3000,30000) )
		sleep (Random (30000,300000) )
		MouseClick ("Left",123, 74)
		Send("{f5}")


	EndIf
WEnd

;0x00BD00

Func _StartBot()
	$Active = 1
EndFunc

Func _PauseBot()
	$Active = 0
EndFunc

Func _EndeBot()
	Exit
EndFunc
bitte sagen was falsch ist
05/15/2011 18:33 derpo#2
Bist du dir sicher, dass das die richtige Stelle zum Suchen ist?
Wenn ja, dann mach mal an verschiedenen Stellen irgendwas mit ConsoleWrite hin, dass du weißt, wo er hängt.
05/15/2011 20:08 Imaginär#3
Ich hab es jetzt mal so schnell versucht:

PHP Code:
HotKeySet("{s}", "_StartBot")
HotKeySet("{p}", "_PauseBot")
HotKeySet("{e}", "_EndeBot")

Global $Active = 0
Global $SchalterGreen = 0, $SchalterRed = 0

While 1
    
    If $Active = 1 Then

      $green = PixelSearch(739, 246,1397, 564, 0xFFEC12, 15)
      $red = PixelSearch(739, 246, 1397, 564, 0xFF0000, 15)
      
        If IsArray($green) Then
            MouseClick("Left", $green[0], $green[1], 1)
            Sleep(Random (1500,3000) )
            $SchalterGreen = 1
        EndIf
        
        If IsArray($red) Then
            MouseClick("Left", $red[0], $red[1], 1)
            Sleep(Random (1500,3000) )
            $SchalterRed = 1
        EndIf
        

        If $SchalterGreen = 1 And $SchalterRed = 1
                        $SchalterGreen = 0
                        $SchalterRed = 0
            sleep (Random (30000,300000) )
            MouseClick ("Left",123, 74)
            Send("{f5}")
        EndIf


    EndIf
    
WEnd

;0x00BD00

Func _StartBot()
    $Active = 1
EndFunc

Func _PauseBot()
    $Active = 0
EndFunc

Func _EndeBot()
    Exit
EndFunc