Activate macro with screen click

[Marcus Tettmar]

Some code to detect and act on a mouse click in a specific area of the screen. For more details see this thread:

http://www.mjtnet.com/forum/viewtopic.php?p=11421#11421

// Set Bounds Here
Let>X1=440
Let>X2=630
Let>Y1=40
Let>Y2=200

// Only detect clicks on Desktop, or Anywhere?
Let>OnlyDesktop=1

OnEvent>KEY_DOWN,VK1,0,MouseClick

Label>MainLoop
Wait>0.2
Goto>MainLoop

SRT>MouseClick
GetActiveWindow>title,xact,yact

// OnlyDesktop/all window check
Let>OkToContinue=FALSE
If>OnlyDesktop=1
If>title=Program Manager
Let>OkToContinue=TRUE
Endif
Else
Let>OkToContinue=TRUE
Endif

If>OkToContinue=TRUE
// Check Cursor is Within Bounds
GetCursorPos>X,Y
If>{((%X% >= %X1%) AND (%X% = %Y1%) AND (%Y% command or call to a subroutine
MessageModal>Hello
// Macro>your_macro
// Pass LClick on?
// LClick
Endif
Endif
END>MouseClick