1. #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
  2. ; #Warn ; Enable warnings to assist with detecting common errors.
  3. SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
  4. SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
  6. #Persistent
  7. #SingleInstance, Force
  9. #Include Acc.ahk
  11. MouseOverWin(WinTitle)
  12. {
  13. MouseGetPos,,, Win
  14. return WinExist(WinTitle . " ahk_id " . Win)
  15. }
  17. MouseOverControl(Control)
  18. {
  19. MouseGetPos, , , , CurrentControl
  21. if (CurrentControl = Control)
  22. return true
  23. else if (InStr(CurrentControl, Control))
  24. return true
  25. else
  26. return false
  27. }
  30. #If (MouseOverWin("ahk_class Shell_TrayWnd") and not MouseOverControl("Start1"))
  32. MButton::
  34. Gosub,GetAcc
  36. if (vAccName = "Running applications") ;empty
  37. {
  38. ;mute..
  39. }
  40. else if (InStr(vAccName, "running window")) ; closing window open
  41. {
  42. WinTitle := RegExReplace(vAccName," - [0-9]+ running windows?")
  44. SendMessage, 0x0010, ,,, %WinTitle%,,,,500 ;WinClose, %WinTitle% SendMessage
  45. }
  46. return
  48. WheelDown::
  50. Gosub,GetAcc
  52. ;do stuff
  54. return
  57. GetAcc:
  59. oAcc := Acc_ObjectFromPoint(vChildId)
  60. vAccName := oAcc.accName(vChildId)
  62. return