AutoHotkey Community

;*******************************************************************************
; Volume up/down/mute buttons with on-screen display
;*******************************************************************************
#Up::
#WheelUp::
$Volume_Up::
  If A_OSVersion = WIN_VISTA
  {
    Loop,2
      send {Volume_Up}
    GoSub,VolumeOSDVista
  }
  Else
  {
    SoundSet,0,master,mute
    SoundSet,+5,master,volume
    GoSub,VolumeOSD
  }
Return

#Down::
#WheelDown::
$Volume_Down::
  If A_OSVersion = WIN_VISTA
  {
    Loop,2
      send {Volume_Down}
    GoSub,VolumeOSDVista
  }
  Else
  {
    SoundSet,0,master,mute
    SoundSet,-5,master,volume
    GoSub,VolumeOSD
  }
Return

#Q::
#MButton::
$Volume_Mute::
  If A_OSVersion = WIN_VISTA
  {
    send {Volume_Mute}
    GoSub,VolumeOSDVista
  }
  Else
  {
    SoundSet,+1,master,mute
    GoSub,VolumeOSD
  }
Return

VolumeOSD:
  Y := A_ScreenHeight - 100
  W := A_ScreenWidth * 0.5
  SetFormat,Float,0.0
  SoundGet,Volume,master,volume
  SoundGet,Mute,master,mute
  If mute=on
    Progress,1:P%Volume% CBred w%W% y%Y%,,,Volume %Volume%`% (muted)
  Else
    Progress,1:P%Volume% CBnavy w%W% y%Y%,,,Volume %Volume%`%
  SetTimer,RemoveOSD,1000
Return

RemoveOSD:
  Progress,1:off
  SetTimer,RemoveOSD,off
Return

VolumeOSDVista:
  If Not OSDon
  {
    CoordMode,Mouse,Screen
    MouseGetPos,mX,mY
    MouseClick,Left,1200,780,1,0 ; click the sound icon in tray
    MouseMove,%mX%,%mY%,0
    OSDon=1
  }
  SetTimer,RemoveOSDVista,1000
Return

RemoveOSDVista:
  IfWinExist,,&Main Mute
    WinClose,,&Main Mute
  OSDon=0
  SetTimer,RemoveOSDVista,off
Return

if A_OSVersion in WIN_VISTA