x_files_x Posted February 18, 2022 Share Posted February 18, 2022 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. Quote Link to comment Share on other sites More sharing options...
nuh21tr Posted February 21, 2022 Share Posted February 21, 2022 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]. 1 Quote Link to comment Share on other sites More sharing options...
x_files_x Posted February 22, 2022 Author Share Posted February 22, 2022 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.