AutoHotkey Community

#NoEnv  ;I have no idea why this is required, but it is

;Iterates through an AHK menu
MenuName := "tray"
hMenu := MI_getMenuHandle(MenuName)

Loop, % DllCall("GetMenuItemCount", "uint", hMenu)
{
    itemText := Menu_getMenuString(hMenu, A_Index)
   
    MsgBox, % MenuName . " -> Item" . A_Index . ": " itemText
}

;Copied directly from Lexikos' Menu Icons

; Gets a menu handle from a menu name.
; Adapted from Shimanov's Menu_AssignBitmap()
;   http://www.autohotkey.com/forum/topic7526.html
MI_GetMenuHandle(menu_name)
{
    static   h_menuDummy
    ; v2.2: Check for !h_menuDummy instead of h_menuDummy="" in case init failed last time.
    If !h_menuDummy
    {
        Menu, menuDummy, Add
        Menu, menuDummy, DeleteAll

        Gui, 99:Menu, menuDummy
        ; v2.2: Use LastFound method instead of window title. [Thanks animeaime.]
        Gui, 99:+LastFound

        h_menuDummy := DllCall("GetMenu", "uint", WinExist())

        Gui, 99:Menu
        Gui, 99:Destroy

        ; v2.2: Return only after cleaning up. [Thanks animeaime.]
        if !h_menuDummy
            return 0
    }

    Menu, menuDummy, Add, :%menu_name%
    h_menu := DllCall( "GetSubMenu", "uint", h_menuDummy, "int", 0 )
    DllCall( "RemoveMenu", "uint", h_menuDummy, "uint", 0, "uint", 0x400 )
    Menu, menuDummy, Delete, :%menu_name%

    return h_menu
}

;copied directly from my menu wrapper library (with slight modifications)
Menu_getMenuString(hMenu, Position)
{
    ;implemented specifically for getting the MenuItemName for a menu item

    static alreadyDone, ReturnValue

    ;260 is the largest size a menu item can be
    if (!alreadyDone)
    {
        alreadyDone := true
        VarSetCapacity(ReturnValue, 260)
    }

    if Position is integer
    {
        ;convert from one-based to zero-based index
        Position--
        ByPosition := 0x400      ;MF_BYPOSITION
    }
    else
        return

    DllCall("GetMenuString"
        , "uInt", hMenu
        , "uInt", Position
        , "uInt", &ReturnValue
        , "int", 261        ;260 (max size) + 1 (for null terminator)
        , "uInt", ByPosition)

    return ReturnValue
}

#NoEnv  ;I have no idea why this is required, but it is

;Iterates through a menu

Run, Notepad.exe

WinWait, Untitled - Notepad
WinWaitActive

;stores the menu bar
hMenuBar := DllCall("GetMenu", "uint", WinExist())

MsgBox, % "Number of menus on Menu bar: " . DllCall("GetMenuItemCount", "uint", hMenuBar)

;sub menu to iterate
SubMenuIndex := 1
MenuName := Menu_getMenuString(hMenuBar, SubMenuIndex)

;the menu (really a submenu of the menu bar) to iterate
;-1 converts position from one-based to zero-based index
hMenu := DllCall("GetSubMenu", "uint", hMenuBar, "int", SubMenuIndex - 1)

Loop, % DllCall("GetMenuItemCount", "uint", hMenu)
{
    itemText := Menu_getMenuString(hMenu, A_Index)

    MsgBox, % MenuName . " -> Item" . A_Index . ": " itemText
}

return

;copied directly from my menu wrapper library (with slight modifications)
Menu_getMenuString(hMenu, Position)
{
    ;implemented specifically for getting the MenuItemName for a menu item

    static alreadyDone, ReturnValue

    ;260 is the largest size a menu item can be
    if (!alreadyDone)
    {
        alreadyDone := true
        VarSetCapacity(ReturnValue, 260)
    }

    if Position is integer
    {
        ;convert from one-based to zero-based index
        Position--
        ByPosition := 0x400      ;MF_BYPOSITION
    }
    else
        return

    DllCall("GetMenuString"
        , "uInt", hMenu
        , "uInt", Position
        , "uInt", &ReturnValue
        , "int", 261        ;260 (max size) + 1 (for null terminator)
        , "uInt", ByPosition)

    return ReturnValue
}

; #NoEnv  ;I have no idea why this is required, but it is

;Iterates through a menu

Run, Notepad.exe

WinWait, Untitled - Notepad
WinWaitActive

;stores the unique ID (HWND) for the window (used later)
WinGet, WinHWND, ID

;stores the menu bar
hMenuBar := DllCall("GetMenu", "uint", WinExist())


;sub menu to iterate
SubMenuIndex := 1   ;the file menu

;the menu (really a submenu of the menu bar) to iterate
;-1 converts position from one-based to zero-based index
hMenu := DllCall("GetSubMenu", "uint", hMenuBar, "int", SubMenuIndex - 1)


MenuItemIndex := 2  ;Open

;retrieves the menu item handle for the desired item
hMenuItem := DllCall("GetMenuItemID", "uint", hMenu, "int", MenuItemIndex - 1)


;"Select" File -> Open
PostMessage, 0x111, %hMenuItem% ,0,, ahk_id %WinHWND% ; 0x111 is WM_COMMAND

return

;clicks the "paste" option on the context menu (option 4 - excluding the separators)
Position := 4

Run, Notepad.exe

WinWait, Untitled - Notepad

;it doesn't use the last found window here (for me, at least)
WinWaitActive, Untitled - Notepad

;taken from the ClipboardAll example (see http://www.autohotkey.com/docs/misc/Clipboard.htm#ClipboardAll)

; Save the entire clipboard to a variable of your choice.
ClipSaved := ClipboardAll

; ... here make temporary use of the clipboard, such as for pasting Unicode text via Transform Unicode ...
Clipboard := "Hello World!"

;open the context menu
;(no control is listed - sent to the top level)
;(makes use of the last found window)
ControlClick, , , , Right

;press the down arrow until we have the item (Position times)
;so Position = 1 will press the down arrow 1 time (to select the first item)
Send, {Down %Position%}

;wait before making the selection (for demonstration)
Sleep, 2000

;Press Enter
Send, {Enter}

; Restore the original clipboard. Note the use of Clipboard (not ClipboardAll).
Clipboard := ClipSaved

; Free the memory in case the clipboard was very large.
; not necessary because the program is about to close (and it will be freed automatically then)
; ClipSaved =

Run, Notepad.exe

WinWait, Untitled - Notepad
WinWaitActive

;stores the unique ID (HWND) for the window (used later)
WinGet, WinHWND, ID


;Send the message to the control
ControlGet, Edit1_HWND, hwnd, , Edit1

;MN_GETHMENU = 0x1E1
SendMessage, 0x1E1, 0, 0, , ahk_id %Edit1_HWND%

hMenuTry1 := ErrorLevel


;Send the message to the window

;MN_GETHMENU = 0x1E1
SendMessage, 0x1E1, 0, 0, , ahk_id %WinHWND%

hMenuTry2 := ErrorLevel


;Send to the window (via Last Found Window)

;MN_GETHMENU = 0x1E1
SendMessage, 0x1E1, 0, 0

hMenuTry3 := ErrorLevel


MsgBox, % hMenuBar . " " . hMenuTry1 . " " . hMenuTry2 . " " . hMenuTry3

#SingleInstance, Force
SetBatchLInes, -1

WinWait, ahk_class #32768
SendMessage, 0x1E1, 0, 0      ; MN_GETHMENU
hMenu := ErrorLevel
sContents := GetMenu(hMenu)
WinWaitClose

MsgBox, % sContents


GetMenu(hMenu)
{
   Loop, % DllCall("GetMenuItemCount", "Uint", hMenu)
   {
      idx := A_Index - 1
      idn := DllCall("GetMenuItemID", "Uint", hMenu, "int", idx)
      nSize++ := DllCall("GetMenuString", "Uint", hMenu, "int", idx, "Uint", 0, "int", 0, "Uint", 0x400)
      VarSetCapacity(sString, nSize)
      DllCall("GetMenuString", "Uint", hMenu, "int", idx, "str", sString, "int", nSize, "Uint", 0x400)   ;MF_BYPOSITION
      If !sString
         sString := "---------------------------------------"
      sContents .= idx . " : " . idn . A_Tab . A_Tab . sString . "`n"
      If (idn = -1) && (hSubMenu := DllCall("GetSubMenu", "Uint", hMenu, "int", idx))
         sContents .= GetMenu(hSubMenu)
   }
   Return   sContents
}