[Автоматизация] Звуковой сигнал при НПС
- Автор темы argusv
- Дата начала
Сейчас нет возможности испытать. Вот так правильнее будет?
Добавил отклонение в цвете (5) и "Активировать окно Евы" -подумал, что он не сканит Еву пока не активен на неё.
Код:
#NoTrayIcon
Opt('MustDeclareVars', 1)
;Opt('TrayMenuMode', 1)
Global $aSearch, $iColor = 0xC11414 ;Цвет неписи
HotKeySet('{Esc}', '_Exit');Esc - выход
While 1
WinActivate("EVE") ;Активировать окно евы
$aSearch = PixelSearch(960, 200, 1020, 560, $iColor, 5);Координаты области скана и отклонение в цвете
If Not @error Then ;проверяем на совпадение цвета правее на 1 и на 2 пикселя.
If PixelGetColor($aSearch[0] + 1, $aSearch[1]) = $iColor And _
PixelGetColor($aSearch[0] + 2, $aSearch[1]) = $iColor Then
SoundPlay(@ScriptDir & "\22.wav", 1);Файл 22.wav должен лежать в папке со скриптом.
EndIf
EndIf
Sleep(500)
WEnd
Func _Exit()
Exit
EndFunc ;==>_ExitДобавил отклонение в цвете (5) и "Активировать окно Евы" -подумал, что он не сканит Еву пока не активен на неё.
hikki [?]
В таком случае, я узнаю координаты нужные, а потом тестовым скриптом узнаю и вывожу цвет, без наведения и изменения оного.
А ещё ошибка может быть в том, что координаты в скрипте отсчитываются от одного (к примеру от активной части клиента), а юзер после установки автоита в настройки ау3инфо не лазил, и у него выдаёт координаты к примеру от края окна. Отсюда и расхождения.
В таком случае, я узнаю координаты нужные, а потом тестовым скриптом узнаю и вывожу цвет, без наведения и изменения оного.
А ещё ошибка может быть в том, что координаты в скрипте отсчитываются от одного (к примеру от активной части клиента), а юзер после установки автоита в настройки ау3инфо не лазил, и у него выдаёт координаты к примеру от края окна. Отсюда и расхождения.
- Сообщения
- 7,790
- Репутация
- 2,323
argusv,
Или так попробуйте:
Код:
HotKeySet('{Esc}', '_Exit')
While 1
$aMouse = MouseGetPos()
$iColor = PixelGetColor($aMouse[0], $aMouse[1])
ToolTip('X: ' & $aMouse[0] & @LF & 'Y: ' & $aMouse[1] & @LF & 'Color: 0x' & Hex($iColor, 6), 0, 0)
Sleep(100)
WEnd
Func _Exit()
Exit
EndFunc ;==>_ExitИли так попробуйте:
Код:
Opt('PixelCoordMode', 0)
HotKeySet('{Esc}', '_Exit')
$sTitle = '[Title:Мои документы;Class:CabinetWClass]'
$hWin = WinWait($sTitle, '', 10)
If $hWin Then
While WinExists($hWin)
$aPos = WinGetPos($hWin)
$aMouse = MouseGetPos()
$iColor = PixelGetColor($aMouse[0] - $aPos[0], $aMouse[1] - $aPos[1], $hWin)
$sMessage = 'X: ' & $aMouse[0] - $aPos[0] & @LF & 'Y: ' & $aMouse[1] - $aPos[1] & @LF & _
'Color: 0x' & Hex($iColor, 6)
ToolTip($sMessage, 0, 0, 'Относительно окна', 1)
Sleep(100)
WEnd
Else
MsgBox(16, 'Error', 'Нет окна :(')
EndIf
Func _Exit()
Exit
EndFunc ;==>_Exitmadmasles
Не-не-не, у тебя как раз мышку наводить нужно. А это может поменять цвет. (Кто-то видимо просто не читает темы с начала
)
Не-не-не, у тебя как раз мышку наводить нужно. А это может поменять цвет. (Кто-то видимо просто не читает темы с начала
)
Код:
$x= ; нужный X
$y= ; нужный Y
$iColor = PixelGetColor($x, $y)
ToolTip('X: ' & $x & @LF & 'Y: ' & $y & @LF & 'Color: 0x' & Hex($iColor, 6), 0, 0)
sleep(3000) ; 3 сек показывать. ну или сколько надо поправить.
На правах рекламы
Для определения цвета, относительных координат и т.п. уже давно пользуюсь http://autoit-script.ru/index.php/topic,3636.0.html.
Для определения цвета, относительных координат и т.п. уже давно пользуюсь http://autoit-script.ru/index.php/topic,3636.0.html.