[Автоматизация] PixelSearch и ControlClick в If

[SkinWarS]

Здравствуйте, потихоньку разбираюсь в AutoIT, но столкнулся с такой проблемой что не работает PixelSearch

Func qwerty()
    ; ---
    $hWnd = WinGetHandle( "Embedded Web control Test" )
Opt( "PixelCoordMode", 1 )

       
        $coord = PixelSearch(34, 614, 34, 614, 0xFFB300, $hWnd )
        If Not @error Then
			ControlClick ( $hWnd,"", "MacromediaFlashPlayerActiveX1", "left", 1, 40, 630);мобилка
			sleep(4000)
			ControlClick ( $hWnd,"", "MacromediaFlashPlayerActiveX1", "left", 1, 771, 252);принять
            Sleep(2000); задержка 1 секунда
			ControlClick ( $hWnd,"", "MacromediaFlashPlayerActiveX1", "left", 1, 751, 132); закрыть
            Sleep(2500)
			$coord = PixelSearch(34, 614, 34, 614, 0x454542, $hWnd )
If Not @error Then
	Sleep (5000)
EndIf

подскажите где ошибка?

 

[edyapd]

PixelSearch ( left, top, right, bottom, color [, shade-variation = 0 [, step = 1 [, hwnd ]]] )

$coord = PixelSearch(34, 614, 34, 614, 0xFFB300, 0, 1, $hWnd )

 

[SkinWarS]

и? у меня поиск пиксела вообще игнорируется, а сразу жмется контролклик в точку

 

[qqww22]

и? у меня поиск пиксела вообще игнорируется, а сразу жмется контролклик в точку

$coord = PixelSearch(34, 614, 34, 614, 0xFFB300, "ТУТ ЕЩЁ ОДНА ПЕРЕМЕННАЯ А ПОТОМ ТОКА HWND,$hWnd )

 

[SkinWarS]

после цвета идут не обязательные параметры

 

[Ksaan]

после цвета идут не обязательные параметры

Я так и не понял, тебе помог пример edyapd или нет? если нет выкидывай весь скрипт.
И еще, зачем тебе узнавать координаты пикселя если ты их уже знаешь?

 

[syavak]

у тебья 2 иф и только 1 ендиф , может еще один ендиф вставиш

 

[SkinWarS]

после цвета идут не обязательные параметры

Я так и не понял, тебе помог пример edyapd или нет? если нет выкидывай весь скрипт.
И еще, зачем тебе узнавать координаты пикселя если ты их уже знаешь?

нет пример мне тот не помог, не работает и всё, также клацает по координатам КонтрКлика, а чем не нравится скрипт в первом сообщение?


Добавлено:

Сообщение автоматически объединено: 28 Мар 2015

вроде ошибку не выдает при запуске скрипта....

 

[syavak]

попробуй так и отпиши результат

Func qwerty()
    ; ---
    $hWnd = WinGetHandle( "Embedded Web control Test" )
Opt( "PixelCoordMode", 1 )

       
        $coord = PixelSearch(34, 614, 34, 614, 0xFFB300, $hWnd )
        If Not @error Then
            MsgBox(4096,"Цвет",'если  0xFFB300 = 0x'&Hex(PixelGetColor( 34, 614 , $hWnd), 6)&' то все работает норм')
            ControlClick ( $hWnd,"", "MacromediaFlashPlayerActiveX1", "left", 1, 40, 630);мобилка
            sleep(4000)
            ControlClick ( $hWnd,"", "MacromediaFlashPlayerActiveX1", "left", 1, 771, 252);принять
            Sleep(2000); задержка 1 секунда
            ControlClick ( $hWnd,"", "MacromediaFlashPlayerActiveX1", "left", 1, 751, 132); закрыть
            Sleep(2500)
        EndIf
            $coord = PixelSearch(34, 614, 34, 614, 0x454542, $hWnd )
If Not @error Then
    Sleep (5000)
EndIf
EndFunc

 

[SkinWarS]

запускаю твой скрипт и он сразу финиширует


--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
+>22:58:43 AutoIt3.exe ended.rc:0
+>22:58:43 AutoIt3Wrapper Finished.
>Exit code: 0 Time: 0.474

 

[syavak]

ну тогда даже незнаю ) попробуй тут весь код выложить мож там чтото нетак

 

[SkinWarS]

ну тогда даже незнаю ) попробуй тут весь код выложить мож там чтото нетак

да если весь код выложить..там такая каша...я же его еще делаю....

 

[Ksaan]

нет пример мне тот не помог, не работает и всё, также клацает по координатам КонтрКлика

Ну раз клацает то значит цвет находит тот что ты указал. Посмотри что еще PixelSearch показывает

 

[SkinWarS]

нет пример мне тот не помог, не работает и всё, также клацает по координатам КонтрКлика

Ну раз клацает то значит цвет находит тот что ты указал. Посмотри что еще PixelSearch показывает

не находит он его...т.к. цвет меняется а он опять туда клацает, значит он клацает тупо по координатам

 

[Ksaan]

Ну тогда если ты знаешь координаты и цвет попробуй использовать

If Hex(PixelGetColor(34, 614), 6) = "Шестнадцатеричный цвет" Then
	MsgBox(0,"","Цвет найден")
Else
	MsgBox(0,"","Цвет ненайден")
EndIf

 

[InnI]

SkinWarS

после цвета идут не обязательные параметры

Вы неправильно представляете себе необязательные параметры. У функции PixelSearch() три необязательных параметра. Чтобы указать третий ($hWnd) вы ОБЯЗАНЫ указать оба предыдущих. edyapd в ответе #1 показал, как это сделать. У вас же $hWnd находится на месте shade-variation. А так как $hWnd значительно больше 255, то PixelSearch() находит пиксель ЛЮБОГО цвета.

 

[Garrett]

SkinWarS [?]

после цвета идут не обязательные параметры

Да, но после параметра color у вас идёт параметр hwnd, следовательно параметры shade-variation и step нужно указывать как default .

$coord = PixelSearch(34, 614, 34, 614, 0xFFB300, 0, 1, $hWnd )

И ещё:

AutoItSetOption("PixelCoordMode", ???)
AutoItSetOption("MouseCoordMode", ???)

Возможно, этот пример вам поможет разобраться.

#include <Array.au3>
#include <IE.au3>
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
$oIE = _IECreate("http://dragonlord.battleon.com/game/")
$oIE.Width = 1064
$oIE.Height = 866
$hWin = _IEPropertyGet($oIE, "hwnd")
$aColor = PixelSearch(483, 573, 557, 595, 0x320C07, 0, 1, $hWin)
If IsArray($aColor) Then
	MouseClick("left", $aColor[0], $aColor[1])
	Sleep(3000)
	MouseClick("left", $aColor[0], $aColor[1])
	Sleep(3000)
EndIf
_IEQuit($oIE)

 

[SkinWarS]

За пример спасибо, но он вылетает
+>11:44:53 AutoIt3.exe ended.rc:0
+>11:44:53 AutoIt3Wrapper Finished.
>Exit code: 0 Time: 1.611

и еще я заметил что если после добавления цвета ставить 0,1 то у меня теряется привязка поиска к окну..тобишь поиск не работает в свернутом окне...да и ничего не работает)

 

[Garrett]

SkinWarS [?]

но он вылетает

Попробуйте переустановить версию Autoit (стабильную).

 

[SkinWarS]

установил...также вылетает