AHK: Замена "Window Spy" (Страница 16 из 19)

А так как есть не работает?
В Chrome_RenderWidgetHostHWND1 в конце может быть и другой индекс.
И у меня в скайпе ApplicationFrameInputSinkWindow1.

Я встречал, но сейчас не вспомню.
Заменю в след версии как ты предложил, может всплывёт тогда.

Наверное. for desktop с какими то плюсами, я не помню он же кажется теперь в винду встроен?

Только не понятно почему в моём случае и с

 SendMessage, WM_GETOBJECT, 0, 1, Chrome_RenderWidgetHostHWND1, % "ahk_id " WinID

в скайпе работает.

http://screenshot.su/show.php?img=b961b … 8b72c6.jpg

А так в ControlID у тебя какой коннтрол?

SendMessage, WM_GETOBJECT, 0, 1, , % "ahk_id" (ControlID ? ControlID : WinID) 

Баг. Не правильно показывает Accessible path на кнопке play при загруженном видео в vlc player.

Наверное стоит проверять соответствует ли конечный путь нужному элементу и если нет, то писать, что путь не найден.

Это будет сотые доли секунды.
Допустим мы получаем путь "4.20.2.1.1.1.1.2.1.4.1.1.1.1.1.1.1.1.1.5.1.1"
Чтобы его проверить нам надо получить acc объект по этому пути:

oAcc := Acc_Get("Object", "4.20.2.1.1.1.1.2.1.4.1.1.1.1.1.1.1.1.1.5.1.1", 0, "ahk_id " hWnd)

После чего сравниваем все его свойства с искомым объектом.
И это наверное надо делать каждый раз когда родительский хендл меняется.

Сейчас у нас алгоритм нахождения пути следующий.
1) Получаем acc объект под курсором мыши.
2) Получаем его родителя.
3) Если хендл родителя поменялся, значит постим путь от дочернего объекта.
Вот его, перед тем как постить и надо проверять.

Вот твой код, в котором ты сравниваешь хендл родителя с дочерним.

Acc_GetPath(byref arr) {
    Static DesktopHwnd := DllCall("User32.dll\GetDesktopWindow", "ptr") 
	If oPubObj.Acc.CLOAKED
		Return 0
	Acc := Object(oPubObj.Acc.AccObj) 
	arr := []
	
	While Hwnd := Acc_WindowFromObject(Parent := Acc_Parent(Acc)) { 
		If (DesktopHwnd != Hwnd)
			t1 := GetEnumIndex(Acc)
		If t1 = -1
			Return arr := ""
		If (PrHwnd != "" && Hwnd != PrHwnd)
		{
			PrHwnd := Format("0x{:06X}", PrHwnd)
			WinGetClass, WinClass, ahk_id %PrHwnd%
			WinGet, ProcessName, ProcessName, ahk_id %PrHwnd%
			arr.InsertAt(1, {Hwnd: PrHwnd, Path: SubStr(t2, 1, -1), WinClass: WinClass, ProcessName: ProcessName})
		}
		if (t1 = "" || Hwnd = DesktopHwnd)
		   break
		t2 := t1 "." t2
		PrHwnd := Hwnd
		Acc := Parent 
	}
	Return arr.Count()
}

Он изменяется при перехождении из дочернего окна к главному.
У тебя в коде тут идет сравнение

If (PrHwnd != "" && Hwnd != PrHwnd)

Вот перед тем  как  его публиковать, как я пониаю тут:

arr.InsertAt(1, {Hwnd: PrHwnd, Path: SubStr(t2, 1, -1), WinClass: WinClass, ProcessName: ProcessName})

надо сделать проверку пути, наверное как-то так:
oAcc := Acc_Get("Object", SubStr(t2, 1, -1),  child, "ahk_id " PrHwnd)
после чего проверить все его свойства.

А зачем проверять в Accessible Info Viewer, когда мы пытаемся убрать его баги? ))
А почему у нас происходит неверный результат при первом переходе к родительскому элементу - не знаю.
Но он такой же как и у Inspect.exe, а вот у AccExplorer результат совсем другой.

В AccExplorer при переходе к родительскому объекту получает объект с 7 детьми у которых нет подобных свойств, как у кнопки плей., а у AhkSpy и Inspect.exe - 14.
Сейчас вроде показывает правильно.
У меня кстати перестало работать автообновление.

version 4.43
В window добавил определение AutoHotkey скриптов, и некоторые действия над ними.

Наводишь на окно скрипта, и:

Не понял, это как?

У меня сейчас если нажать правой кнопкой мыши на цветной прямоугольник, то ahspy становится на паузу и снять его с нее невозможно.
Можешь вставить еще определение band.

BOOL WINAPI GetWindowBand(
HWND hWnd, 
PDWORD pdwBand);

enum ZBID
{
	ZBID_DEFAULT = 0,
	ZBID_DESKTOP = 1,
	ZBID_UIACCESS = 2,
	ZBID_IMMERSIVE_IHM = 3,
	ZBID_IMMERSIVE_NOTIFICATION = 4,
	ZBID_IMMERSIVE_APPCHROME = 5,
	ZBID_IMMERSIVE_MOGO = 6,
	ZBID_IMMERSIVE_EDGY = 7,
	ZBID_IMMERSIVE_INACTIVEMOBODY = 8,
	ZBID_IMMERSIVE_INACTIVEDOCK = 9,
	ZBID_IMMERSIVE_ACTIVEMOBODY = 10,
	ZBID_IMMERSIVE_ACTIVEDOCK = 11,
	ZBID_IMMERSIVE_BACKGROUND = 12,
	ZBID_IMMERSIVE_SEARCH = 13,
	ZBID_GENUINE_WINDOWS = 14,
	ZBID_IMMERSIVE_RESTRICTED = 15,
	ZBID_SYSTEM_TOOLS = 16,

	//Windows 10+
	ZBID_LOCK = 17,
	ZBID_ABOVELOCK_UX = 18,
};

Нет, я и мею в виду определять у других окон.

dllcall("GetWindowBand", "ptr", WinExist("A"), "uint*", band)

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

version 4.51

Это работает?

Хотя у меня работает с любыми, которые вроде бы могли повлиять.

version 4.52
Что то поправил.

Когда окно AhkSpy перекрывает то что надо определить.

Дальше левой перемещай.

Перемещаю, но выделение визуально не отображается, хотя картинка при сохранении режется.

4.53

Что то поправил с лупой и правой кнопкой с выключенным Spot only Shift+Tab.

Добавил.

4.61

Сохраняешь изображение в строку, потом используешь её в исходном коде для поиска или для отображения, или ещё как...

Bitmap в виде строки.

Последний из трёх, кто читает эту тему. Должно быть понятно любому пользователю. Я вот до сих пор не понимаю, о каком bitmap'е идёт речь. Откуда bitmap-то берётся?

Ну, так бы и написал, что имеется в виду изображение из инструмента лупа (и напомнил бы, как он вызывается).

Да, действительно нет в описании. Добавил. Но как бы кнопка zoom, и наличие лупы на картинке намекает.

Я думал что мы изначально в этом контексте беседуем.

То, как сейчас решено не юзерфрендли. Не получится просто запустить скрипт и пользоваться, нужно описание читать.

Да её не так-то просто разглядеть среди всего неподготовленному взгляду. Непонятно, почему она расположена в одной строке с ( Title ), какое к заголовку отношение? Я бы вообще над дизайном подумал, немного сумбурно всё.

Так ещё надо догадаться об этих методах. Я вот не сразу понял, как zoom вызывается.

Это если ты совсем не заинтересован, чтобы кто-то ещё пользовался. Но если выкладываешь на форуме, значит это не так. Кроме того, тебе должно быть выгодно большее количество пользователей твоего бесплатного продукта, так и платные заказчики подтянутся.

Прежде всего, сразу непонятно, какой режим активен в данный момент. Если используешь html, почему бы не сделать подсвечиваемую кнопку?
Я бы подумал над вариантом с несколькими вкладками, при активации каждой из которых собирается определённый тип информации.

Просто заменить кнопки на вкладки, и их количество может быть большим, чем три. В частности, для IAccessible логично было бы сделать отдельную вкладку, чтобы было меньше путаницы.

teadrinker
Мне тоже так неудобно, кроме асс я и другое попутно смотрю, нужен только асс, ставлю якорь. Если профит очевиден не всем, то это вкусовщина. А вкладки, это те же кнопки, только они мелкие и неудобные, иначе место отнимут.

Ещё только когда начал увлекаться AHK написал свой простенький вариант Window Spy, выглядит так:

До сих пор предпочитаю пользоваться им, как раз из-за внятного расположения всей информации.

Присоединяюсь к мнению, что интерфейс слишком ярко-кислый. Как калина с облепихой. Но и вариант от Alectric, по-моему, не сильно лучше. Лично мне нравится тёмный фон, но не сосем чёрный. Цвета текста - чтобы хорошо читалось, а именно: он не должен быть кричащим, но и не должен сливаться с фоном. Все эти настройки цвета можно где-нибудь в ini-файле хранить.

Сам я лупой не пользуюсь, но мне кажется, что было бы лучше, чем использовать замысловатое самописное меню, взять за основу воркфлоу фотошопа.
А именно создать 2 кнопки - одна для выделения (пунктирный квадратик в фотошопе), вторая для передвигания - стрелка.
Выделили нужный участок, нажали правой кнопкой мыши - выскочило меню со всеми вариантами экспорта.

Согласен, предложите свои цвета. Переменные с цветами в начале кода, для себя вы их потом можете перенести в include.

Так я же говорю, делаешь маленькие - не удобно кликать, делаешь чтобы удобно - место занимают.
Твоя программа конечно нагляднее, тут спору нет, но у тебя на одной странице умещается всего 11 параметров. Сделай в такое окно вывод такого же количества параметров как у меня, тогда уже будет видно как удобней.

Malcev
У меня нет фотошопа. Скинь пару скринов.

teadrinker
Кстати можно сделать мелкие кнопки с именами заголовков, при нажатии будет ставится якорь, как говорится и нашим и вашим. .

А в светлой теме, которой я пользуюсь, не так уже режет, как на скриншоте Alectric. Но, всё-таки я настройки чуток изменил.

If !DarkTheme
{
	Global ColorFont := "000000"											;;  Цвет шрифта
	, ColorBg := "FFFFFF"								;;  Цвет фона          "F0F0F0" E4E4E4     F8F8F8
	, ColorBgPaused := "f7f7f7"												;;  Цвет фона при паузе     F0F0F0
	, ColorSelMouseHover := "3399FF"										;;  Цвет фона элемента при наведении мыши  3399FF   96C3DC F9D886 8FC5FC AEC7E1
	, ColorSelMouseHoverText := ColorBg										;;  Цвет текста элемента при наведении мыши     96C3DC F9D886 8FC5FC AEC7E1
	, ColorSelButton := "96C3DC"											;;  Цвет фона при нажатии на кнопки
	, ColorSelAnchor := "FFFF80"											;;  Цвет фона заголовка для якоря
	, ColorHighLightBckg := "FFE0E0"										;;  Цвет фона некоторых абзацев
	, ColorDelimiter := "E14B30"											;;  Цвет шрифта разделителя заголовков и параметров
	, ColorTitle := "27419B"												;;  Цвет шрифта заголовка
	, ColorLineTitles := "444499"											;;  Цвет линии заголовка
	, ColorParam := "149920"												;;  Цвет шрифта параметров
	, ColorErrorAccPath := "ff0000"
	, ColorErrorAccMarquee := "ffcc00"
	, ColorErrorAccMarquee := "ffcc00"
	, ColorStyleComment1 := "f0f0f0"
	, ColorStyleComment2 := "C0C0C0" 
	, ColorSelectedFind := "6666FF" 
	, ColorBorderHoverInput := "4A8DFF"
	, ColorPreOverflowHide := "E2E2E2" 
	, ColorScrollArrows := "686868" 
	, ColorScrollBack := "F0F0F0" b
	, ColorScrollFace := "CDCDCD" 
}

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

Только потому что при наведении он чутка не подсвечивает?
Malcev
Ты про Real Object, можешь подробнее?

Ну да, может быть непонятно, что сюда нужно нажимать, это не выглядит, как кнопка.