AutoHotkey Community

[umek]

I have a menu which refers to several subroutines. When I use ControlClick in one of these subroutines,
the ControlFocus gets executed. I managed it by Send, {ENTER} but I assume there's another way to solve it.

greetz

[Chris]

What kind of menu is it? You might try using WinMenuSelectItem on a standard menu bar. If the script owns the menu, you should directly call the menu's subroutine rather than have the script try to "automate itself".

If the above doesn't help, please post an example to clarify.

[umek]

Sorry, I was talking about a AHK created menu ....
The bold line is my problem ...


;#NoTrayIcon
#Persistent
Menu, SubMenuStatus, Add, ACT, ChangeStatus
Menu, SubMenuStatus, Add, PEN, ChangeStatus
Menu, SubMenuStatus, Add, DEL, ChangeStatus
Menu, SubMenuService, Add, PPR1, MakeService
Menu, SubMenuService, Add, PPR2, MakeService
Menu, SubMenuService, Add, PPR3, MakeService
Menu, SubMenuApp, Add, Restart, Restart
Menu, SubMenuApp, Add, Exit, Quit
Menu, App, Add, Status, :SubMenuStatus
Menu, App, Add
Menu, App, Add, Service, :SubMenuService
Menu, App, Add
Menu, App, Add, Program, :SubMenuApp
Return
;**********************************************
LControl & LButton::
Menu, App, Show
Return
;**********************************************
ChangeStatus:
AppTitle = Auto WFM v1.0
BasicTitle = Clarify
IDTitle = 120
StatusScrTitle = Activity Status Note

IfWinExist, %BasicTitle%
{
WinActivate ; use the window found above
Send, ^g
Sleep, 500
}
Else
{
MsgBox, 48, %AppTitle%, %BasicTitle% does not exist.
Return
}
WinWaitActive, %StatusScrTitle%, , 2
if ErrorLevel <> 0
{
MsgBox, WinWait timed out.
Return
}
Else
{
ControlGetText, ReadCurrentStatus, Edit8, %StatusScrTitle%
Sleep, 1000
}
If ReadCurrentStatus = %A_ThisMenuItem%
{
MsgBox, 48, %AppTitle%, The status is already %A_ThisMenuItem%.
ControlClick, Button1, %StatusScrTitle%
Return
}
Else
{
Control, ChooseString, %A_ThisMenuItem%, ComboBox1, %StatusScrTitle%
Sleep, 250
ControlGetText, ChangedStatus, ComboBox1, %StatusScrTitle%
Sleep, 250
}
If ChangedStatus <> %A_ThisMenuItem%
{
MsgBox, 48, %AppTitle%, Could not change to %A_ThisMenuItem%.
Return
}
Else
{
ControlClick, Button2, %StatusScrTitle%
Sleep, 50
ControlClick, Button2, %StatusScrTitle%
Sleep, 500
Return
}

Return
;**********************************************
MakeService:
SetTitleMatchMode, 2
SetTitleMatchMode, fast

AppTitle = Auto WFM v1.0
BasicTitle = Clarify
IDTitle = 120
DispScrTitle = SDC
ServiceScrTitle = 2004

IfWinExist, %IDTitle%
{
WinActivate ; use the window found above
Send, ^t
Sleep, 2500
}
Else
{
MsgBox, 48, %AppTitle%, You should open a Case ID to create a service.`t
Return
}
IfWinActive, %DispScrTitle%
{
ControlClick, Button5, %DispScrTitle%
Sleep, 1000
}
Else
WinWaitActive, %ServiceScrTitle%, , 2
if ErrorLevel <> 0
{
MsgBox, WinWait timed out.
Return
}
Else
{
Sleep, 3500
Control, ChooseString, PUMA, ComboBox4, %ServiceScrTitle%
Sleep, 500
ControlSetText, Edit3, , %ServiceScrTitle%
ControlSetText, Edit4, , %ServiceScrTitle%
ControlSetText, Edit5, , %ServiceScrTitle%
ControlSetText, Edit6, , %ServiceScrTitle%
Control, ChooseString, %A_ThisMenuItem%, ComboBox25, %ServiceScrTitle%
Sleep, 500
ControlGetText, Product, TSpecialEdit23, WFM Case Generator
ControlSetText, Edit3, %Product%, %ServiceScrTitle%
ControlGetText, ErrorCode, TSpecialEdit20, WFM Case Generator
ControlSetText, Edit33, %ErrorCode%, %ServiceScrTitle%
Sleep, 100
ControlClick, TNeoBookPushBtn17, WFM Case Generator
Sleep, 100
ControlFocus, Button16, %WinTitleVar1%
Send, +{TAB}
Send, ^v
Sleep, 500
}
Return
;**********************************************
Restart:
Reload
Return
;**********************************************
Quit:
ExitApp
Return
;**********************************************


I get only the focus on Button5, it doesn't click it.

greetz

[Chris]

[umek]

Thx it works!

But it's a little bit confusing because MakeService: as stand alone script
(with no subroutines) runs as requested. All buttons with ControlClick
becomes clicked. But I will keep in view ...