[Элементы GUI] GUIFinder поиск цвета вместо поиска окна

[dimcomp]

Как сделать чтобы вместо заголовка окна GUIFinder возвращал цвет?

#include <..\GUIFinder.au3>

$hGUI = GUICreate("_GUICtrlFinder_Create Example", 300, 40)

$hFinder = _GUICtrlFinder_Create($hGUI, 4, 4)

$hBtn = GUICtrlCreateButton("Read!", 40, 6, 80, 30)
$hInp = GUICtrlCreateInput("", 124, 10, 170, 20)

GUISetState()

While True
	Switch GUIGetMsg()
		Case -3
			ExitLoop
		Case $hBtn
			$hWnd = _GUICtrlFinder_GetLastWnd($hFinder)
			
			If $hWnd = 0 Then
				MsgBox(16, "Error", "You are supposed to select a window first :P")
				ContinueLoop
			EndIf
			
			GUICtrlSetData($hInp, "Handle: " & $hWnd)
	EndSwitch
WEnd

 

[InnI]

Цвет под курсором не подойдёт?

While Sleep(100)
  ToolTip("0x" & Hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1)), 6))
WEnd

 

[dimcomp]

Цвет под курсором не подойдёт?

Нет. В идеале нужно чтобы пользователь наводил курсор в ту область которая ему нужна, наподобие Finder Tool, и после отпускания ЛКМ цвет сохранялся в переменную, координаты не важны, нужен только цвет.

А в принципе чего нет то

#include <..\GUIFinder.au3>

$hGUI = GUICreate("_GUICtrlFinder_Create Example", 300, 40)

$hFinder = _GUICtrlFinder_Create($hGUI, 4, 4)

$hBtn = GUICtrlCreateButton("Read!", 40, 6, 80, 30)
$hInp = GUICtrlCreateInput("", 124, 10, 170, 20)

GUISetState()

While True
	Switch GUIGetMsg()
		Case -3
			ExitLoop
		Case $hBtn
			$hWnd = "0x" & Hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1)), 6)
			
			If $hWnd = 0 Then
				MsgBox(16, "Error", "You are supposed to select a window first :P")
				ContinueLoop
			EndIf
			
			GUICtrlSetData($hInp, "Handle: " & $hWnd)
	EndSwitch
WEnd

Работает :beer:

 

[InnI]

dimcomp

Работает

Только исправьте 0 на 1 для Y-координаты (я у себя уже исправил ;))

$hWnd = "0x" & Hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1)), 6)

 

[dimcomp]

dimcomp

Работает

Только исправьте 0 на 1

Уже Спасибо!


Добавлено:

Сообщение автоматически объединено: 14 Окт 2015

В общем рано радовался, скрипт сохраняет цвет когда нажимаю по кнопке "Read" (то есть сохраняет цвет кнопки), а нужно чтобы сохранял тот цвет, на котором отпустил цель.

 

[InnI]

dimcomp

на котором отпустил цель

Что вы зациклились на этой мишени?
Для получения цвета эта UDF вообще не нужна

#include "Misc.au3"

MsgBox(0, "Инструкция", "Нажмите ОК для закрытия этого окна." & @CRLF & @CRLF & "Затем наведите курсор на нужный цвет и либо кликните по нему либо нажмите Shift.")
Do
  $Color = PixelGetColor(MouseGetPos(0), MouseGetPos(1))
  ToolTip("Текущий цвет : 0x" & Hex($Color, 6))
  Sleep(30)
Until _IsPressed("01") Or _IsPressed("10")
ToolTip("")
MsgBox(0, "Color", "Выбран цвет : " & $Color)

 

[dimcomp]

Что вы зациклились на этой мишени?

Действительно, так даже лучше , ещё раз спасибо! :beer: