Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Self making GUI menu


  • Please log in to reply
2 replies to this topic
George88
  • Members
  • 9 posts
  • Last active: Jan 08 2016 02:46 AM
  • Joined: 13 Jul 2015
; I find this handy for making utilities and loading different things.
; Anyone fancy adding anything to this? 
; https://www.youtube.com/watch?v=GiWetCjtw_U
;copy only from below this line
MButton:: ;TYPE IN variazbles below this line
;SUBMENU :one
;ITEM    :New_AHK_file
/*






*/
; function end | k|eep below line 11
Loop, 1 {
CoordMode, Menu, Screen
CoordMode, Mouse, Screen



;//MENU ADD ABOVE THIS LINE


;//MENU ITEM ADD ABOVE THIS LINE
Menu, MyMenu, Add  ; Add a separator line below the submenu.
Menu, MyMenu, Add, --------Menu-Maker--------,
Menu, MyMenu, Add, Add_Item,
Menu, MyMenu, Add, Add_Submenu,
Menu, MyMenu, Add, Add_TO_Submenu,
Menu, MyMenu, Add, Load_empty_menu,
Menu, MyMenu, Add, New_AHK_file,
Menu, MyMenu, Add  ; Add a separator line below the submenu.
;//ITEM ADD ABOVE THIS LINE
Show()
--------Menu-Maker--------App
WinKill, menu launcher - quits right after .ahk, WinText, ExcludeText
return  ; End of script's auto-execute section.


Add_Item:
TrayTip _, Add_Item, , 
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{pgup 9}{down 2}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//ITEM ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}
SendPlay,Menu, MyMenu, Add, {ctrl down}{v}{ctrl up},

SendPlay,{pgup 9}{down 2}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//FUNCTION ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}{enter}
SendPlay,{ctrl down}{v}{ctrl up}:

SendPlay,{pgup 9}{down 3}{end}
SendPlay,{shift down}{down 6}{end}{end}
SendPlay,{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//FUNCTION ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}
SendPlay,{ctrl down}{v}{ctrl up}
SendPlay,{enter}{R}eturn
Return

Add_Submenu:
TrayTip _, Add_Submenu, , 

WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{pgup 9}{down}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//MENU ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}
SendPlay, Menu, {ctrl down}{v}{ctrl up}, Add,{space}

SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//MENU ITEM ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}
SendPlay, Menu, MyMenu, Add, {ctrl down}{v}{ctrl up}, :{ctrl down}{v}{ctrl up}

SendPlay,{pgup 9}{down 2}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//MENU ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}
SendPlay,{ctrl down}{v}{ctrl up}, {ctrl down}{v}{ctrl up}, 

SendPlay,{pgup 9}{down 2}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//FUNCTION ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}{enter}
SendPlay,{ctrl down}{v}{ctrl up}:

SendPlay,{pgup 9}{down 3}{end}
SendPlay,{shift down}{down 6}{end}{end}
SendPlay,{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//FUNCTION ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}
SendPlay,{ctrl down}{v}{ctrl up}
SendPlay,{enter}{R}eturn

--------Menu-Maker--------app
Return

Add_TO_Submenu:
TrayTip _, Add_TO_Submenu, ,
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{pgup 9}{down}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//MENU ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}
SendPlay, Menu, {ctrl down}{v}{ctrl up}, Add,{space}

SendPlay,{pgup 9}{down 2}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//MENU ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}
SendPlay,{ctrl down}{v}{ctrl up}, {ctrl down}{v}{ctrl up}, 

SendPlay,{pgup 9}{down 2}{home}{right 10}
SendPlay,{shift down}{end}{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//FUNCTION ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}{enter}
SendPlay,{ctrl down}{v}{ctrl up}:

SendPlay,{pgup 9}{down 3}{end}
SendPlay,{shift down}{down 6}{end}{end}
SendPlay,{shift up}
SendPlay,{ctrl down}{c}{ctrl up}
SendPlay,{ctrl down}{f}{ctrl up}
WinWaitActive, ExcludeText - ExcludeTitle, , 0.2
SendPlay,{;}//FUNCTION ADD ABOVE THIS LINE
SendPlay,{tab 6}{enter}{esc}
SendPlay,{up 2}{end}{enter}
SendPlay,{ctrl down}{v}{ctrl up}
SendPlay,{enter}{R}eturn

--------Menu-Maker--------:
Reload
Return










Load_empty_menu:
;Run, empty menu.ahk
SendPlay, {^}MButton{:}{:} {;}TYPE IN variazbles below this line {enter}
SendPlay, {;}SUBMENU {:}YO{enter}
SendPlay, {;}ITEM    {:}program{enter}
SendPlay, /{*} {enter}
SendPlay, TrayTip SWAG, IT WORKS!, ,  {enter}
SendPlay, sleep,500 {enter}
SendPlay,  {enter}
SendPlay,  {enter}
SendPlay,  {enter}
SendPlay,  {enter}
SendPlay, {*}/ {enter}
SendPlay, {;} function end || keep below line 11 {enter}
SendPlay, Loop, 1 {{} {enter}
SendPlay, CoordMode, Menu, Screen {enter}
SendPlay, CoordMode, Mouse, Screen {enter}
SendPlay,  {enter}
SendPlay, Menu, YO, Add, AHK, AHK {enter}
SendPlay,  {enter}
SendPlay, {;}//MENU ADD ABOVE THIS LINE {enter}
SendPlay, Menu, MyMenu, Add, YO, {:}YO  {enter}
SendPlay,  {enter}
SendPlay, {;}//MENU ITEM ADD ABOVE THIS LINE {enter}
SendPlay, Menu, MyMenu, Add  {;} Add a separator line below the submenu. {enter}
SendPlay, Menu, MyMenu, Add, boon,  {enter}
SendPlay, Menu, MyMenu, Add  {;} Add a separator line below the submenu. {enter}
SendPlay,  {enter}
SendPlay, {;}//ITEM ADD ABOVE THIS LINE {enter}
SendPlay, Show{(}{)} {enter}
SendPlay, Reload {enter}
SendPlay, WinKill, menu launcher - 
SendPlay, quits right after .ahk, WinText, ExcludeText {enter}
SendPlay, {R}eturn  {;} End of script's auto-execute section. {enter}
SendPlay,  {enter}
SendPlay,  {enter}
SendPlay, AHK{:} {enter}
SendPlay, Run, C{:}\Program Files {(}x86{)}\ColorMania\ColorMania.exe {enter}
SendPlay, {R}eturn {enter}
SendPlay,  {enter}
SendPlay, boon{:} {enter}
SendPlay, TrayTip Work, Time to work dude, ,  {enter}
SendPlay, sleep,500 {enter}
SendPlay, Reload {enter}
SendPlay {R}eturn  {enter}
SendPlay,  {enter}
SendPlay,{;}//FUNCTION ADD ABOVE THIS LINE {enter}
SendPlay,  {enter}
SendPlay,  {enter}
SendPlay, Show{(}{)} {{} {enter}
SendPlay, static MX, MY {enter}

SendPlay, if {(}{!}MX && {!}MY{)} {enter}

SendPlay, MouseGetPos, MX, MY {enter}
SendPlay, Menu, MyMenu, Show, 
SendPlay, {shift down}{5}{shift up} MX,
SendPlay, {shift down}{5}{shift up} MY {enter}
SendPlay, {}} {}} {enter}
SendPlay {R}eturn  {enter}
Return






New_AHK_file:
;Run, file copy.ahk


Blankfile = D:\Z-A__Control__key__voice__gui__System\Shortcuts\z_.ahk
Send !d
ControlGetText Path , Edit1, A
Send {Enter}
Filecopy %Blankfile%, %Path%

Sleep, 500
Send, {F2}
;Return

Reload
Return

;//FUNCTION ADD ABOVE THIS LINE


Show() {
static MX, MY
if (!MX && !MY)
MouseGetPos, MX, MY
Menu, MyMenu, Show, % MX, % MY
} }




Return


Guest10
  • Members
  • 1216 posts
  • Last active: Oct 30 2015 05:12 PM
  • Joined: 27 Oct 2012

Could you provide some examples?



Varacolaci
  • Members
  • 3 posts
  • Last active: Feb 12 2016 10:31 PM
  • Joined: 21 Feb 2015

In fact he posted a youtube video link, showing it. It's at the begging as a comment.