поиск пикселя определенного цвета в бесконечном цикле!!!

Frol · 17 Дек 2011

прошу прошенья 3 суток мученья и вот тема!имеется бесконечный цикл,в нем пытаюсь прописать поиск пикселя определенного цвета!тоесть если цвет совпадает должны выполняться нажатия клавишь

Код:

_1() ; Вызов функции
Func  _1()
    Local $i
    While 1
        $i += 1
        ConsoleWrite($i & @CRLF)
        Sleep(1000)
    _IENavigate($oIE, 'http://kolonisty.ru/main.php?blok=bots&rnd=1463178')
    _IELoadWait ($oIE)
Send("{TAB 11}")
Send("{ENTER}")
_IELoadWait ($oIE)
Send("{TAB 1}")
Send("{ENTER}")
_IELoadWait ($oIE)
Wend
Dim $iColor = "000903D2"    ; Цвет пикселя, на который нужно реагировать
Dim $iX  = "295"       ; Х - координата пикселя, на который нужно реагировать
Dim $iY = "353"        ; Y - координата пикселя, на который нужно реагировать
Dim $hWin = ""      ; Hendle - окна с игрой
Dim $sTitle = "Колонисты - Maxthon Browser 3.2.2.1000"    ; Текст заголовка вашего окна с запущенной игрой

Opt("PixelCoordMode", 2)

HotKeySet("{ESC}", "_Quit")

$hWin = WinGetHandle($sTitle)
WinActivate($hWin)

While 1

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    Sleep(250)
WEnd

#cs
    $i_Color - Цвет пикселя, на который нужно реагировать
    $i_X - Х координата пикселя, на который нужно реагировать
    $i_Y - координата пикселя, на который нужно реагировать
    $h_Win - hendle окна с игрой
#ce

Func _ColorListener($i_Color, $i_X, $i_Y, $h_Win = 0)

    Local $iFrozen = 0

    While Hex($i_Color) = Hex(PixelGetColor($i_X, $i_Y, $h_Win))
        If Not $iFrozen Then
            ;ConsoleWrite("Цвет совпал! " & Hex(PixelGetColor($i_X, $i_Y, $hWin)) & @CRLF)
            Return 1
            $iFrozen = Not $iFrozen
        EndIf
    Sleep(250)
    WEnd

    Return 0
EndFunc ;==>_ColorListener

Func _Quit()
    Exit
EndFunc ;==>_Quit

EndIf

но выдает ошибку

ERROR: syntax error
Func
^
.au3(68,27) : ERROR: _Quit(): undefined function.
HotKeySet("{ESC}", "_Quit")
~~~~~~~~~~~~~~~~~~~~~~~~~~^
.au3(75,47) : ERROR: _ColorListener(): undefined function.
If _ColorListener($iColor, $iX, $iY, $hWin)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
.au3 - 3 error(s), 0 warning(s)

координаты беру с Autolt v3 Window info [info]>>>> Window <<<<
Title: Колонисты - Maxthon Browser 3.2.2.1000
Class: Maxthon3Cls_MainFrm
Position: 4, 188
Size: 500, 626
Style: 0x960F0000
ExStyle: 0x00000100
Handle: 0x0004038E

>>>> Control <<<<
Class: Maxthon3Cls_WebViewHost
Instance: 1
ClassnameNN: Maxthon3Cls_WebViewHost1
Name:
Advanced (Class): [CLASS:Maxthon3Cls_WebViewHost; INSTANCE:1]
ID: 1409
Text:
Position: 3, 113
Size: 494, 487
ControlClick Coords: 288, 52
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x00030412

>>>> Mouse <<<<
Position: 295, 353
Cursor ID: 0
Color: 0xCD5C5C[/info] в чем же проблема

madmasles · 17 Дек 2011

Frol,
У Вас каша какая-то не работающая, а не код, ИМХО.

Frol · 17 Дек 2011

madmasles это не весь код !вот бесконечный цикл

Код:

_1() ; Вызов функции
Func  _1()
    Local $i
    While 1
        $i += 1
        ConsoleWrite($i & @CRLF)
        Sleep(1000)
    _IENavigate($oIE, 'http://kolonisty.ru/main.php?blok=bots&rnd=1463178')
    _IELoadWait ($oIE)
Send("{TAB 11}")
Send("{ENTER}")
_IELoadWait ($oIE)
Send("{TAB 1}")
Send("{ENTER}")
_IELoadWait ($oIE)
Wend

- кусочек кода тут все работает и так нужно чтоб тут искал определенный пиксель(цвет) пытаюсь внедрить вот этот код поиска пикселя в мои бесконечный цикл

Код:

Wend
Dim $iColor = "000903D2"    ; Цвет пикселя, на который нужно реагировать
Dim $iX  = "295"       ; Х - координата пикселя, на который нужно реагировать
Dim $iY = "353"        ; Y - координата пикселя, на который нужно реагировать
Dim $hWin = ""      ; Hendle - окна с игрой
Dim $sTitle = "Колонисты - Maxthon Browser 3.2.2.1000"    ; Текст заголовка вашего окна с запущенной игрой

Opt("PixelCoordMode", 2)

HotKeySet("{ESC}", "_Quit")

$hWin = WinGetHandle($sTitle)
WinActivate($hWin)

While 1

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    Sleep(250)
WEnd

#cs
    $i_Color - Цвет пикселя, на который нужно реагировать
    $i_X - Х координата пикселя, на который нужно реагировать
    $i_Y - координата пикселя, на который нужно реагировать
    $h_Win - hendle окна с игрой
#ce

Func _ColorListener($i_Color, $i_X, $i_Y, $h_Win = 0)

    Local $iFrozen = 0

    While Hex($i_Color) = Hex(PixelGetColor($i_X, $i_Y, $h_Win))
        If Not $iFrozen Then
            ;ConsoleWrite("Цвет совпал! " & Hex(PixelGetColor($i_X, $i_Y, $hWin)) & @CRLF)
            Return 1
            $iFrozen = Not $iFrozen
        EndIf
    Sleep(250)
    WEnd

    Return 0
EndFunc ;==>_ColorListener

Func _Quit()
    Exit
EndFunc ;==>_Quit

EndIf

- не работает(пример брал с форума рабочии говорят
Добавлено:
Сообщение автоматически объединено: 17 Дек 2011

ну или если б я знал как наити координаты моего прямоугольника по Autolt v3 Window info было бы проше !можно б было попробовать сделать так

Код:

While 1
    PixelSearch(693, 195, 693, 195, 0x495054)
    If Not @error Then
    Sleep(50)
Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

C2H5OH · 18 Дек 2011

Frol

Ваш код не работает из-за того что вы пытаетесь написать функции _Quit и _ColorListener ВНУТРИ функции _1.

Непонятно почему Вы не знаете координат прямоугольника, если Вы явно задаёте координаты пикселя, цвет которого нужно анализировать.

Если Вам известны координаты пикселя и точный цвет, то берите уже PixelGetColor, а не PixelSearch

Frol · 18 Дек 2011

C2H5OH Если Вам известны координаты пикселя и точный цвет, то берите уже PixelGetColor, а не PixelSearch!!!!
в PixelGetColor ищет цвет в окне а мне надо в определенном прямоугольнике!вот скрин
Добавлено:
Сообщение автоматически объединено: 18 Дек 2011

поясняю тоемсть идет у меня бесконечный цикл нападает на моба и при помоши таб ентер бьет его!а пытаюсь сделать чтоб в этом цикле находил цвет !если находит аранжевый то жал 11 рах таб и ентер-тоесть пил зелье здоровья

winstan · 18 Дек 2011

Frol
в первом посте код,

Код:

#cs
    $i_Color - Цвет пикселя, на который нужно реагировать
    $i_X - Х координата пикселя, на который нужно реагировать
    $i_Y - координата пикселя, на который нужно реагировать
    $h_Win - hendle окна с игрой
#ce

перед этим поставь

Код:

EndFunc

а в конце удали

Код:

EndIf

в посте http://autoit-script.ru/index.php/topic,7993.msg54272.html#msg54272
в 1скрипте в конце должен быть конец функции

Код:

EndFunc

в 2 скрипте
в начале

Код:

Wend

не понимаю зачем он там
в конце

Код:

EndIf

тагже не нужно
в3 скрипте я понимаю что цикл бесконечный, но даже у бесконечного должен быть канец ,а в конце должен быть

Код:

wend

Frol · 18 Дек 2011

а по конкретнее можно а то я на исправлял и добавилось еще куча ошибок!пожавлуйста

winstan · 18 Дек 2011

1.1

Код:

_1() ; Вызов функции
Func  _1()
    Local $i
    While 1
        $i += 1
        ConsoleWrite($i & @CRLF)
        Sleep(1000)
    _IENavigate($oIE, 'http://kolonisty.ru/main.php?blok=bots&rnd=1463178')
    _IELoadWait ($oIE)
Send("{TAB 11}")
Send("{ENTER}")
_IELoadWait ($oIE)
Send("{TAB 1}")
Send("{ENTER}")
_IELoadWait ($oIE)
Wend


Dim $iColor = "000903D2"    ; Цвет пикселя, на который нужно реагировать
Dim $iX  = "295"       ; Х - координата пикселя, на который нужно реагировать
Dim $iY = "353"        ; Y - координата пикселя, на который нужно реагировать
Dim $hWin = ""      ; Hendle - окна с игрой
Dim $sTitle = "Колонисты - Maxthon Browser 3.2.2.1000"    ; Текст заголовка вашего окна с запущенной игрой

Opt("PixelCoordMode", 2)

HotKeySet("{ESC}", "_Quit")

$hWin = WinGetHandle($sTitle)
WinActivate($hWin)

While 1

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    Sleep(250)
WEnd
EndFunc
#cs
    $i_Color - Цвет пикселя, на который нужно реагировать
    $i_X - Х координата пикселя, на который нужно реагировать
    $i_Y - координата пикселя, на который нужно реагировать
    $h_Win - hendle окна с игрой
#ce

Func _ColorListener($i_Color, $i_X, $i_Y, $h_Win = 0)

    Local $iFrozen = 0

    While Hex($i_Color) = Hex(PixelGetColor($i_X, $i_Y, $h_Win))
        If Not $iFrozen Then
            ;ConsoleWrite("Цвет совпал! " & Hex(PixelGetColor($i_X, $i_Y, $hWin)) & @CRLF)
            Return 1
            $iFrozen = Not $iFrozen
        EndIf
    Sleep(250)
    WEnd

    Return 0
EndFunc ;==>_ColorListener

Func _Quit()
    Exit
EndFunc ;==>_Quit

Добавлено:
Сообщение автоматически объединено: 18 Дек 2011

2.1

Код:

_1() ; Вызов функции
Func  _1()
    Local $i
    While 1
        $i += 1
        ConsoleWrite($i & @CRLF)
        Sleep(1000)
    _IENavigate($oIE, 'http://kolonisty.ru/main.php?blok=bots&rnd=1463178')
    _IELoadWait ($oIE)
Send("{TAB 11}")
Send("{ENTER}")
_IELoadWait ($oIE)
Send("{TAB 1}")
Send("{ENTER}")
_IELoadWait ($oIE)
Wend
EndFunc

2.2

Код:

Dim $iColor = "000903D2"    ; Цвет пикселя, на который нужно реагировать
Dim $iX  = "295"       ; Х - координата пикселя, на который нужно реагировать
Dim $iY = "353"        ; Y - координата пикселя, на который нужно реагировать
Dim $hWin = ""      ; Hendle - окна с игрой
Dim $sTitle = "Колонисты - Maxthon Browser 3.2.2.1000"    ; Текст заголовка вашего окна с запущенной игрой

Opt("PixelCoordMode", 2)

HotKeySet("{ESC}", "_Quit")

$hWin = WinGetHandle($sTitle)
WinActivate($hWin)

While 1

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    If _ColorListener($iColor, $iX, $iY, $hWin) Then
        Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf

    Sleep(250)
WEnd

#cs
    $i_Color - Цвет пикселя, на который нужно реагировать
    $i_X - Х координата пикселя, на который нужно реагировать
    $i_Y - координата пикселя, на который нужно реагировать
    $h_Win - hendle окна с игрой
#ce

Func _ColorListener($i_Color, $i_X, $i_Y, $h_Win = 0)

    Local $iFrozen = 0

    While Hex($i_Color) = Hex(PixelGetColor($i_X, $i_Y, $h_Win))
        If Not $iFrozen Then
            ;ConsoleWrite("Цвет совпал! " & Hex(PixelGetColor($i_X, $i_Y, $hWin)) & @CRLF)
            Return 1
            $iFrozen = Not $iFrozen
        EndIf
    Sleep(250)
    WEnd

    Return 0
EndFunc ;==>_ColorListener

Func _Quit()
    Exit
EndFunc ;==>_Quit

2.3

Код:

While 1
    PixelSearch(693, 195, 693, 195, 0x495054)
    If Not @error Then
    Sleep(50)
Send("{TAB 11}")
Send("{ENTER}")
        Sleep(1000)
    EndIf
wend

Frol · 18 Дек 2011

все равно не ищет цвет может и ищет но не нажимает клавиши таб 11 раз и ентер!я и говорю все мозги кипят

Frol · 18 Дек 2011

все попробовал не хочет искать пиксель 0xCD5C5C и нажимать комбинацию клавишь!буду думать может еще как нибудь сделать можно

C2H5OH · 18 Дек 2011

Код:

While 1
    $win_pos = WinGetCaretPos ( )
    If Not @error Then
       PixelSearch($win_pos[0]+267, $win_pos[1]+164, $win_pos[0]+296, $win_pos[1]+175, 0xCD5C5C, 10)
        If Not @error Then
           Sleep(50)
           Send("{TAB 11}") 
           Send("{ENTER}")
           Sleep(1000)
        EndIf
    EndIf
Wend

Garrett · 18 Дек 2011

Frol [?]

все попробовал не хочет искать пиксель 0xCD5C5C

Вы когда координаты смотрели, в Au3Info выставляли опцию Cord Mode->Client?

running-frag · 18 Дек 2011

OffTopic:
я не перестаю удивляться админам и модерам этого форума, вам памятники надо ставить за терпение и выдержку
глядя на топик одни эпитеты напрашиваются

winstan · 18 Дек 2011

running-frag
при жизни ;D

Frol · 18 Дек 2011

Garrett

Вы когда координаты смотрели, в Au3Info выставляли опцию Cord Mode->Client?

я какие только координаты не ставил не хочет искать и все

Garrett · 18 Дек 2011

Скрипт должен найти пиксель на кнопке "В игру!" и кликнет по ней пять, раз.

Код:

OnAutoItExitRegister('_Exit')
#include <IE.au3>

Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)

Dim $iCount = 0
Dim $iColor = "0x0050BF"    		; Цвет пикселя, на который нужно реагировать
Dim $iX  = "498"					; Х - координата пикселя, на который нужно реагировать
Dim $iY = "645"						; Y - координата пикселя, на который нужно реагировать
Dim $hWin = ""						; Hendle - окна с игрой
Dim $sTitle = "[CLASS:IEFrame]"    	; Текст заголовка вашего окна с запущенной игрой

$oIE = _IECreate("http://kolonisty.ru/")

AdlibRegister("_Listener")

While 1
	If Not WinExists($sTitle) Then
		Exit
	EndIf
	Sleep(100)
WEnd

Func _Listener()
	
	Local $o_Action
	
	If WinActive($sTitle) Then
		If _ColorListener($iColor, $iX, $iY, $hWin) Then
			If $iCount = 5 Then Exit
			MouseClick("Left", $iX, $iY)
			$iCount +=1
			Return 1
		EndIf
	EndIf
EndFunc ;==>_Listener

Func _ColorListener($i_Color, $i_X, $i_Y, $h_Win = 0)

    While Hex($i_Color) = Hex(PixelGetColor($i_X, $i_Y, $h_Win))
        If Not $i_Frozen Then
            ;ConsoleWrite("Цвет совпал! " & Hex(PixelGetColor($i_X, $i_Y, $hWin)) & @CRLF)
            Return 1
        EndIf
    Sleep(250)
    WEnd

    Return 0
EndFunc ;==>_ColorListener

Func _Exit()
	AdlibUnRegister("_Listener")
EndFunc ;==>_Exit

Frol · 18 Дек 2011

не куда не кликает :rofl:

открывает браузер ие и все
Добавлено:
Сообщение автоматически объединено: 18 Дек 2011

может проше определить по тексту вернее !к примеру у меня 800/800 жизней это должно проверять!типа 800 жизней или больше то не чего не делать если 700/800 и меньше то выполнять допустим переход по ссылке!может так как нибудь будет проше!!

Frol · 19 Дек 2011

ну или реально ли сделать в моем бесконечном цикле клик по тексту или ссылке каждые 5 минут? вот тут

Код:

_1() ; Вызов функции
Func  _1()
    Local $i
    While 1
        $i += 1
        ConsoleWrite($i & @CRLF)
        Sleep(1000)
    _IENavigate($oIE, 'http://kolonisty.ru/main.php?blok=bots&rnd=1463178')
    _IELoadWait ($oIE)
Send("{TAB 11}")
Send("{ENTER}")
_IELoadWait ($oIE)
Send("{TAB 1}")
Send("{ENTER}")
_IELoadWait ($oIE) ; вот тут чтоб находил текст и  нажимал  или кликал на него                                                                                        
Wend
EndFunc

Garrett · 19 Дек 2011

Frol [?]

не куда не кликает

открывает браузер ие и все

Я не ясновидящий! Скрипт рабочий на 100% (проверен)
Могу биться об заклад, что ваша проблема в вас. Если вы хотите что бы вам помогли, (мой вам совет) вникайте в те вопросы, которые здесь вам задают!
Ещё неплохо бы, выложить как можно больше информации на форум о том, как вы и что делаете!
Я вас спросил в посте № 11 по поводу опции не спроста! Вы сможете мне объяснить, где эта опция находится, если вы всё поняли?
Так вот, если вы всё-таки правильно поняли, то выставьте эту опцию и найдите свои координаты и цвет пикселя для поиска в окне браузера, а после подставьте их в тело скрипта и проверьте.

Frol · 19 Дек 2011

выставлял я в опциях-клиент!ладно что нибдь придумаю !

Автор темы	Похожие темы	Форум	Ответы	Дата
U	Автоматизация Поиск двух цветов в разных пикселях и последующие выполнение	Стол заказов	0	16 Дек 2023
D	Автоматизация Поиск нужного пикселя в определенной зоне	Боты для игр	5	31 Окт 2023
G	Поиск пикселя заданное количество времени	Общие вопросы по AutoIt	2	20 Янв 2021
A	Поиск пикселя только в заданном окне	Общие вопросы по AutoIt	6	28 Окт 2020
L	[autoit] поиск пикселя определённого цвета относительно координат окна - как?	Общие вопросы по AutoIt	2	30 Июл 2015

Поиск

Поиск

поиск пикселя определенного цвета в бесконечном цикле!!!

Frol

madmasles

Модератор

Frol

C2H5OH

AutoIT Гуру

Frol

winstan

Эксплотатор)

Frol

winstan

Эксплотатор)

Frol

Frol

C2H5OH

AutoIT Гуру

Garrett

Модератор

running-frag

why me?

winstan

Эксплотатор)

Frol

Garrett

Модератор

Frol

Frol

Garrett

Модератор

Frol