Серый форум — AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (Malcev) — Tue, 26 Sep 2017 18:08:52 +0000

Сделайте это сами.
Перебор пунктов меню и их сравнение с вашим идет в коде из 33 поста.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Tue, 26 Sep 2017 17:45:47 +0000

Malcev, добавьте, пожалуйста, чувствительность к названию выбираемого пункта, т.к. при смене его расположения в списке также меняется и название, а именно хоткей. Или же не брать в название все, что идет после большого пробела (Tab).

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (Malcev) — Tue, 26 Sep 2017 13:57:11 +0000

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

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Tue, 26 Sep 2017 13:35:25 +0000

Malcev, ф-ия сложная мне для понимания.
Да, я в какой-то момент вернул ф-ию в первоначальный вид, сам того не заметив. Теперь все работает. Спасибо!

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (Malcev) — Tue, 26 Sep 2017 13:16:04 +0000

becauseim, почитайте про функции, как они работают и что возвращают.
Потом попробуйте понять алгоритм скрипта.
А не работает у вас, потому что вы не сделали то, что я написал в 33 посте.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Tue, 26 Sep 2017 13:11:56 +0000

Malcev, получаю пустое окно:

MsgBox, % StrReplace(GetMenuItemInfo(hMenu, A_Index - 1, MIIM_STRING), "&")

GetMenuItemCheckState(hWin, path)
{
	static MIIM_STRING := 0x40, MIIM_STATE := 0x1
	Loop, parse, path, |
	{
		hMenu := A_Index = 1 ? DllCall("GetMenu", Ptr, hWin, Ptr) : DllCall("GetSubMenu", Ptr, hMenu, Int, SubMenuPos)
		SubMenuPos := ""
Loop % DllCall("GetMenuItemCount", Ptr, hMenu)
   if StrReplace(GetMenuItemInfo(hMenu, A_Index - 1, MIIM_STRING), "&") = A_LoopField && SubMenuPos := A_Index - 1
      break
	  if (SubMenuPos = "")  {
			MsgBox, % "Не найден пункт меню """ A_LoopField """ по пути """ path """"
			Return
		}
	}
	SendMessage, 0x117, hMenu, SubMenuPos,, ahk_id %hWin% ; WM_INITMENUPOPUP
	Return GetMenuItemInfo(hMenu, SubMenuPos, MIIM_STATE) & 0x8 ? 1 : 0
}
	
GetMenuItemInfo(hMenu, ItemNumber, TypeOfInfo)
{
	static MIIM_STRING := 0x40, MIIM_STATE := 0x1
	VarSetCapacity(MENUITEMINFO, size := 4*4 + A_PtrSize*8, 0)
	NumPut(size, MENUITEMINFO)
	NumPut(TypeOfInfo, MENUITEMINFO, 4)
	DllCall("GetMenuItemInfo", Ptr, hMenu, UInt, ItemNumber, UInt, 1, Ptr, &MENUITEMINFO)
	
	if (TypeOfInfo & MIIM_STRING)  {
		nChars := NumGet(MENUITEMINFO, 4*4 + A_PtrSize*6, "UInt") + 1
		if (nChars > 1)  {
			VarSetCapacity(buff, nChars * (A_IsUnicode ? 2 : 1), 0)
			NumPut(&buff, MENUITEMINFO, 4*4 + A_PtrSize*5)
			NumPut(nChars, MENUITEMINFO, 4*4 + A_PtrSize*6)
			DllCall("GetMenuItemInfo", Ptr, hMenu, UInt, A_Index - 1, UInt, 1, Ptr, &MENUITEMINFO)
			info := StrGet(&buff)
		}
	}
	if (TypeOfInfo & MIIM_STATE)
		info := NumGet(MENUITEMINFO, 4*3, "Int")
	Return info
}

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (Malcev) — Tue, 26 Sep 2017 13:02:29 +0000

У меня работает.
Возможно вы не то исправили.
StrReplace(GetMenuItemInfo(hMenu, A_Index - 1, MIIM_STRING), "&") - это обращение к функции.
Что она возвращает можно посмотреть с помощью msgbox.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Tue, 26 Sep 2017 12:32:19 +0000

Malcev, не понял на счет проверки StrReplace(GetMenuItemInfo(hMenu, A_Index - 1, MIIM_STRING), "&").
У Вас так работает?

MsgBox, % GetMenuItemCheckState(WinExist("ahk_class Premiere Pro"), "Window|Workspaces|Import Workspace from Projects")

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (Malcev) — Tue, 26 Sep 2017 01:32:26 +0000

Проверяйте значение StrReplace(GetMenuItemInfo(hMenu, A_Index - 1, MIIM_STRING), "&")
Может не так вписали название пункта.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Mon, 25 Sep 2017 22:22:15 +0000

Malcev, заменил, но подменю по-прежнему не работает:

MsgBox, % GetMenuItemCheckState(WinExist("ahk_class Premiere Pro"), "Window|Workspaces|Timeline	Alt+Shift+3")

Так работает:

MsgBox, % GetMenuItemCheckState(WinExist("ahk_class Premiere Pro"), "Window|Lumetri Color	Shift+9")

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (Malcev) — Mon, 25 Sep 2017 11:52:07 +0000

Да, у teadrinkerа в функции ошибка.
Надо это

Loop % DllCall("GetMenuItemCount", Ptr, hMenu)
   if StrReplace(GetMenuItemInfo(hMenu, A_Index - 1, MIIM_STRING), "&") = A_LoopField && SubMenuPos := A_Index - 1
      break

заменить на

Loop % DllCall("GetMenuItemCount", Ptr, hMenu)
{
   if StrReplace(GetMenuItemInfo(hMenu, A_Index - 1, MIIM_STRING), "&") = A_LoopField
   {
      SubMenuPos := A_Index - 1
      break
   }
}

becauseim пишет:

Думал, можно как-то задать условие, что если последний параметр не задан, то заменить в конце ф-ии SubMenu2 на SubMenu.

Можно и так. Делайте.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Mon, 25 Sep 2017 11:04:53 +0000

Malcev, спасибо, работает! Но у меня не работает подменю. Ввожу так:

MsgBox, % GetMenuItemCheckState(WinExist("ahk_class Premiere Pro"), "Window|Workspaces|Timeline	Alt+Shift+3")

Передавайте номера всех меню в одном параметре через какой-нибудь разделитель, а в функции их парсьте.

Думал, можно как-то задать условие, что если последний параметр не задан, то заменить в конце ф-ии SubMenu2 на SubMenu.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (Malcev) — Mon, 25 Sep 2017 10:44:53 +0000

Там надо вставить

SendMessage, 0x117, hMenu, SubMenuPos,, ahk_id %hWin% ; WM_INITMENUPOPUP

перед

Return GetMenuItemInfo(hMenu, SubMenuPos, MIIM_STATE) & 0x8 ? 1 : 0

becauseim пишет:

И как же их объединить?

Передавайте номера всех меню в одном параметре через какой-нибудь разделитель, а в функции их парсьте.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Mon, 25 Sep 2017 10:40:24 +0000

В коде из четвертого поста не нашел упоминание WM_INITMENU, для замены на WM_INITMENUPOPUP.

Re: AHK: WinMenuSelectItem Проверка состояния переключателя пункта меню

null@example.com (becauseim) — Mon, 25 Sep 2017 10:28:58 +0000

Malcev, спасибо! И как же их объединить?