Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;This is a working script that creates a popup menu.
- ; Create the popup menu by adding some items to it.
- Menu, MyMenu, Add, FIS 201, MenuHandler
- Menu, MyMenu, Add ; Add a separator line.
- Menu, MyMenu, Color, Lime, Single ;Define the Menu Color
- ; Create another menu destined to become a submenu of the above menu.
- Menu, Submenu1, Add, Item2, MenuHandler
- Menu, Submenu1, Add, Item3, MenuHandler
- Menu, Submenu1, Color, Yellow ;Define the Menu Color
- ; Create another menu destined to become a submenu of the above menu.
- Menu, Submenu2, Add, Item1a, MenuHandler
- Menu, Submenu2, Add, Item2a, MenuHandler
- Menu, Submenu2, Add, Item3a, MenuHandler
- Menu, Submenu2, Add, Item4a, MenuHandler
- Menu, Submenu2, Add, Item5a, MenuHandler
- Menu, Submenu2, Add, Item6a, MenuHandler
- Menu, Submenu2, Color, Aqua ;Define the Menu Color
- ; Create a submenu in the first menu (a right-arrow indicator). When the user selects it, the second menu is displayed.
- Menu, MyMenu, Add, BKRS 119, :Submenu1
- Menu, MyMenu, Add ; Add a separator line below the submenu.
- Menu, MyMenu, Add, BKRS 201, :Submenu2
- Menu, MyMenu, Add ; Add a separator line below the submenu.
- Menu, MyMenu, Add ; Add a separator line below the submenu.
- Menu, MyMenu, Add, Google Search, Google ; Add another menu item beneath the submenu.
- return ; End of script's auto-execute section.
- Capslock & LButton::Menu, MyMenu, Show ; i.e. press the Win-Z hotkey to show the menu.
- MenuHandler:
- MsgBox You selected %A_ThisMenuItem% from the menu %A_ThisMenu%.
- return
- ;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;; Google Search
- ;;; FORMAT InputBox, OutputVar [, Title, Prompt, HIDE, Width, Height, X, Y, Font, Timeout, Default]
- Google:
- InputBox, SearchTerm, Google Search,,,350, 120
- if SearchTerm <> ""
- Run http://www.google.de/search?sclient=psy-ab&hl=de&site=&source=hp&q=%SearchTerm%&btnG=Suche
- return
- ; Make Window Transparent
- #Space::WinSet, Transparent, 125, A
- ^!Space UP::WinSet, Transparent, OFF, A
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement