Çoklu Pixelgetcolor örneği Bulamıyorum

[x_files_x]

Merhaba arkadaşlar elimde pixelgetcolor için bir örnek var ve çalışıyor ancak ben iki şart içinde aktif olmasını istiyorum. 

Misal;

While 1
Do
$Pixel_A = PixelGetColor(904,535) ;
$Pixel_B = PixelGetColor(1036,548) ;
Sleep(100)
Until $Pixel_A = "3059168" Or $Pixel_B = "5000268" ;bu renk gelmesini bekle
MsgBox(64,"Bilgi","İki ihtimalden biri gerçekleşti")
WEnd

Burada görüldüğü üzere pixel_a yada pixel_b sağlandığı zaman uyarı versin istiyorum ancak loop içinde olmalı. Yardımcı olacak arkadaşlara şimdiden çok tşk ederim.

[nuh21tr]

Koordinatlara özel tıklama varsa anladığım kadarıyla şöyle bir kod yazdım:

Dim $aranacakRenkKodlari[] = [125556, 66589]
Dim $koordinatRenklerIcin[][] = [[125, 625], [565, 856]]
Dim $koordinatTiklamakIcin[][] = [[125, 625], [565, 856]]

While 1

	For $i = 0 To UBound($aranacakRenkKodlari) - 1
		$Pixel = PixelGetColor($koordinatRenklerIcin[$i][0], $koordinatRenklerIcin[$i][1]) ;bu kordinatlarda

		;Sleep(100) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir
		$sleepStep = 0
		Do
			Sleep(10)
			$sleepStep += 10
		Until $sleepStep = 100 Or $Pixel = $aranacakRenkKodlari[$i]

		If $Pixel = $aranacakRenkKodlari[$i] Then
			;MsgBox(64,"","renk bulundu")
			MouseClick("left", $koordinatTiklamakIcin[$i][0], $koordinatTiklamakIcin[$i][1])
			$sleepStep = 0
			Do
				Sleep(25)
				$sleepStep += 25
			Until $sleepStep >= 1500 Or $Pixel <> $aranacakRenkKodlari[$i]
			;Sleep(1500) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir
		EndIf

	Next
WEnd

 

Buradaki Array lerdeki sıralama çok önemli her bi array renk - koordinat sıralamasına göre yazılmıştır.  Koordinatlar tutarsa tıklama işi gerçekleşir.

[NUH21TR].

[x_files_x]

nuh21tr, 21.02.2022 - 14:20 yazdı:

Koordinatlara özel tıklama varsa anladığım kadarıyla şöyle bir kod yazdım:

Dim $aranacakRenkKodlari[] = [125556, 66589]
Dim $koordinatRenklerIcin[][] = [[125, 625], [565, 856]]
Dim $koordinatTiklamakIcin[][] = [[125, 625], [565, 856]]

While 1

	For $i = 0 To UBound($aranacakRenkKodlari) - 1
		$Pixel = PixelGetColor($koordinatRenklerIcin[$i][0], $koordinatRenklerIcin[$i][1]) ;bu kordinatlarda

		;Sleep(100) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir
		$sleepStep = 0
		Do
			Sleep(10)
			$sleepStep += 10
		Until $sleepStep = 100 Or $Pixel = $aranacakRenkKodlari[$i]

		If $Pixel = $aranacakRenkKodlari[$i] Then
			;MsgBox(64,"","renk bulundu")
			MouseClick("left", $koordinatTiklamakIcin[$i][0], $koordinatTiklamakIcin[$i][1])
			$sleepStep = 0
			Do
				Sleep(25)
				$sleepStep += 25
			Until $sleepStep >= 1500 Or $Pixel <> $aranacakRenkKodlari[$i]
			;Sleep(1500) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir
		EndIf

	Next
WEnd

 

Buradaki Array lerdeki sıralama çok önemli her bi array renk - koordinat sıralamasına göre yazılmıştır.  Koordinatlar tutarsa tıklama işi gerçekleşir.

[NUH21TR].

Tşkler hocam çalıştı. Elinize sağlık