AutoHotkey Community

ActivateSoundDeviceEndpoint(DeviceName) {
   ; close sound panel if it's open
   IfWinExist Sound ahk_class #32770
      WinClose

   ; open sound panel
   Run rundll32.exe shell32.dll`,Control_RunDLL mmsys.cpl`,`,0  ; similar to Run mmsys.cpl
   WinWait Sound ahk_class #32770

   ; arrow-key movement fails if pointer is over window; get window out of the way
   WinMove, 0,8000

   ; get, then iterate over list of sound device endpoints
   ControlGet, len, List, Count, SysListView321
   Loop %len%
   {
      ; select first or next endpoint
      ControlSend, SysListView321, {Down}

      ; get endpoint info
      ControlGet, Device_Info, List, Selected, SysListView321

      ; endpoint contans our DeviceName?
      IfInString, Device_Info, %DeviceName%
      {
         ; extract endpoint title and device it's on into MatchedTitle and MatchedDevice
         RegExMatch(Device_Info, "(?P<Title>.+)\t(?P<Device>.+)\t", Matched)

         ; set this endpoint as system default (activate it)
         ControlClick, &Set Default
         ControlClick, OK
         WinWaitClose

         ; play a sound on the newly activated device
         SoundPlay, *64  ; Asterisk (info)

         ; show a tray tip with the new endpoint
         TrayTip %MatchedTitle%, %MatchedDevice% is now active, 2, 17 ; 2 seconds, info icon (1) without sound (+16)
         SetTimer, RemoveTrayTip, 2000  ; TrayTip durations under 10 seconds don't work, remove ourselves after 2 second timer

         ; stop iterating
         Break
      }
   }
   return
}


RemoveTrayTip() {
   SetTimer, RemoveTrayTip, Off
   TrayTip  ; without parameters, removes displayed traytip
}

; Activate sound device endpoint
;     '.'   (sinle short press)  activates Bluetooth headset
;     '..'  (double short press) activates Speakers
;     '...' (triple short press) activates USB headset
ScrollLock::PatternHotKey(".->ActivateSoundDeviceEndpoint(Bluetooth)"
                        , "..->ActivateSoundDeviceEndpoint(Klipsh)"
                        , "...->ActivateSoundDeviceEndpoint(Logitech)")

Volume_Mute::PatternHotKey()

#+a::
IfWinExist Sound
{
   WinKill Sound
}
Run, mmsys.cpl
WinWait,Sound
MouseGetPos,xpos,ypos
if (xpos<600) {
   WinMove,800,0
} else {
   WinMove,10,10
}
devicecnt = 0
IfExist, ahk.ini
{
IniRead, lastdevice, ahk.ini, Audio, LD
} else {
IniWrite, 1, ahk.ini, Audio, LD
lastdevice := 1
}

deviceloop := lastdevice
ControlGet, len, List, Count, SysListView321
Loop %len%
{
if lastdevice = %len%
{
    ControlSend,SysListView321,{Home}
    lastdevice :=
    deviceloop :=
    ++devicecnt
}
else
{
if deviceloop > 0
{
Loop %deviceloop%
{
ControlSend,SysListView321,{Down}
--deviceloop
++devicecnt
}
deviceloop := 0
} else {

if devicecnt = %len%
{
    ControlSend,SysListView321,{Home}
   devicecnt := 1
}
else {
++devicecnt
    ControlSend,SysListView321,{Down}
}
}
}
    ControlGet, isEnabled, Enabled,,&Set Default
    if(isEnabled)
    {
        ControlClick,&Set Default
        Sleep 500
        ControlClick,OK
      IniWrite, %devicecnt%, ahk.ini, Audio, LD
   devicecnt :=
        Return
    }
}
Return

; Cycle through playback devices
^!s::
if not TotalEndPoints {
   TotalEndPoints = 0
   RunWait, %comspec% /c EndPointController > %A_Temp%\endpoints.txt,, Hide
   Loop, Read, %A_Temp%\endpoints.txt
      TotalEndPoints++
   FileDelete, %A_Temp%\endpoints.txt
}
CurrentEndPoint++
CurrentEndPoint := Mod(CurrentEndPoint, TotalEndPoints)
RunWait, %comspec% /c EndPointController %CurrentEndPoint% ,, Hide
return

; Switch to playback device 0
^!0::
RunWait, %comspec% /c EndPointController 0 ,, Hide
return

; Switch to playback device 1
^!1::
RunWait, %comspec% /c EndPointController 1 ,, Hide
return

; Switch to playback device 2
^!2::
RunWait, %comspec% /c EndPointController 2 ,, Hide
return