Advertisement
Guest User

Untitled

a guest
Mar 24th, 2012
386
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.96 KB | None | 0 0
  1. ;This is a working script that creates a popup menu.
  2.  
  3. ; Create the popup menu by adding some items to it.
  4. Menu, MyMenu, Add, FIS 201, MenuHandler
  5. Menu, MyMenu, Add ; Add a separator line.
  6. Menu, MyMenu, Color, Lime, Single ;Define the Menu Color
  7.  
  8.  
  9. ; Create another menu destined to become a submenu of the above menu.
  10. Menu, Submenu1, Add, Item2, MenuHandler
  11. Menu, Submenu1, Add, Item3, MenuHandler
  12. Menu, Submenu1, Color, Yellow ;Define the Menu Color
  13.  
  14.  
  15. ; Create another menu destined to become a submenu of the above menu.
  16. Menu, Submenu2, Add, Item1a, MenuHandler
  17. Menu, Submenu2, Add, Item2a, MenuHandler
  18. Menu, Submenu2, Add, Item3a, MenuHandler
  19. Menu, Submenu2, Add, Item4a, MenuHandler
  20. Menu, Submenu2, Add, Item5a, MenuHandler
  21. Menu, Submenu2, Add, Item6a, MenuHandler
  22. Menu, Submenu2, Color, Aqua ;Define the Menu Color
  23.  
  24.  
  25. ; Create a submenu in the first menu (a right-arrow indicator). When the user selects it, the second menu is displayed.
  26. Menu, MyMenu, Add, BKRS 119, :Submenu1
  27. Menu, MyMenu, Add ; Add a separator line below the submenu.
  28. Menu, MyMenu, Add, BKRS 201, :Submenu2
  29. Menu, MyMenu, Add ; Add a separator line below the submenu.
  30.  
  31. Menu, MyMenu, Add ; Add a separator line below the submenu.
  32. Menu, MyMenu, Add, Google Search, Google ; Add another menu item beneath the submenu.
  33.  
  34. return ; End of script's auto-execute section.
  35.  
  36. Capslock & LButton::Menu, MyMenu, Show ; i.e. press the Win-Z hotkey to show the menu.
  37.  
  38. MenuHandler:
  39. MsgBox You selected %A_ThisMenuItem% from the menu %A_ThisMenu%.
  40. return
  41.  
  42. ;;;;;;;;;;;;;;;;;;;;;;;;
  43.  
  44. ;;;;;;;; Google Search
  45. ;;; FORMAT InputBox, OutputVar [, Title, Prompt, HIDE, Width, Height, X, Y, Font, Timeout, Default]
  46. Google:
  47. InputBox, SearchTerm, Google Search,,,350, 120
  48. if SearchTerm <> ""
  49. Run http://www.google.de/search?sclient=psy-ab&hl=de&site=&source=hp&q=%SearchTerm%&btnG=Suche
  50.  
  51. return
  52.  
  53.  
  54.  
  55. ; Make Window Transparent
  56. #Space::WinSet, Transparent, 125, A
  57. ^!Space UP::WinSet, Transparent, OFF, A
  58. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement