Простой бот по определению цвета в области экрана ( оплата 2000р)

[Igoreh96]

Нужен бот который ищет в выделенной области экрана 3 цвета и по нахождению определённого цвета , нажимает определённую кнопку. Появился красный, бот нажимает кнопку вниз, появился синий , бот жмет кнопку вверх, появился сиреневый , жмет контр.

Сообщение автоматически объединено: 16 Июн 2020

Готов оплатить 2к рублей за работу.

 

[ra4o]

Координаты и более точно цвета поставьте свои
Скрипт будет ждать появление одного из цвета , нажмёт кнопку , потом дождётся , пока этот цвет исчезнет и будет дальше ждать появление цвета

Local $Color[3] = [0xFF0000, 0xFF0000, 0x5F04B4]
Local $Key[3] = ['{DOWN}', '{UP}', '{LCTRL}']
Local $shade_variation = 100;Число от 0 до 255, показывающее, на сколько может отличаться красная, зелёная и синяя компоненты цвета. 0-точное совпадение.
Local $left=0;Координата x левой стороны прямоугольника
Local $top=0;Координата y верхней стороны прямоугольника
Local $right=150;Координата x правой стороны прямоугольника
Local $bottom=200;Координата y нижней стороны прямоугольника

While 1
    For $i = 0 To 2
        PixelSearch($left, $top, $right, $bottom, $Color[$i], $shade_variation)
        If Not @error Then
            Send($Key[$i])
            While  PixelSearch($left, $top, $right, $bottom, $Color[$i], $shade_variation)
                Sleep(500)
            WEnd
        EndIf
       Sleep(200)
    Next
WEnd

 

[Igoreh96]

Цвета никуда не исчезают а остаются, просто съезжают, я вам ответил в личку и по поводу оплаты задал вопрос

Сообщение автоматически объединено: 16 Июн 2020

Координаты и более точно цвета поставьте свои
Скрипт будет ждать появление одного из цвета , нажмёт кнопку , потом дождётся , пока этот цвет исчезнет и будет дальше ждать появление цвета

Local $Color[3] = [0xFF0000, 0xFF0000, 0x5F04B4]
Local $Key[3] = ['{DOWN}', '{UP}', '{LCTRL}']
Local $shade_variation = 100;Число от 0 до 255, показывающее, на сколько может отличаться красная, зелёная и синяя компоненты цвета. 0-точное совпадение.
Local $left=0;Координата x левой стороны прямоугольника
Local $top=0;Координата y верхней стороны прямоугольника
Local $right=150;Координата x правой стороны прямоугольника
Local $bottom=200;Координата y нижней стороны прямоугольника

While 1
    For $i = 0 To 2
        PixelSearch($left, $top, $right, $bottom, $Color[$i], $shade_variation)
        If Not @error Then
            Send($Key[$i])
            While  PixelSearch($left, $top, $right, $bottom, $Color[$i], $shade_variation)
                Sleep(500)
            WEnd
        EndIf
       Sleep(200)
    Next
WEnd

посмотрите личку пожалуйста