AHK: Windows 7 - смена устройств воспроизведения звука

ControlGet, isEnabled, Enabled,,&Set Default

ControlClick,&Set Default

Space::SoundSet, % (Mute:=!Mute) ? 1:0, Microphone, Mute, 2

CM_Enumerate_Classes(ClassIndex, ClassGuid, Flags)
; функция получает список классов устройств 
{
   return DllCall("cfgmgr32.dll\CM_Enumerate_Classes", "int", ClassIndex, "int", ClassGuid, "int", Flags)
}

SetupDiGetClassDescription(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize)
; функция получает текстовое наименование класса устройств
{
   return DllCall("Setupapi.dll\SetupDiGetClassDescription", "int", ClassGuid, "int", ClassDescription, "int", ClassDescriptionSize, "int", RequiredSize)
}

SetupDiGetClassDevs(ClassGuid, Enumerator, hwndParent, Flags)
; получает список устройств принадлежащих классу
{
   return DllCall("Setupapi.dll\SetupDiGetClassDevs", "int", ClassGuid, "int", Enumerator, "int", hwndParent, "int", Flags)
}

SetupDiEnumDeviceInfo(DeviceInfoSet, MemberIndex, DeviceInfoData)
; получает информацию об устройстве по его классу и порядковому номеру
{
   return DllCall("Setupapi.dll\SetupDiEnumDeviceInfo", "int", DeviceInfoSet, "int", MemberIndex, "int", DeviceInfoData)
}

SetupDiGetDeviceRegistryProperty(DeviceInfoSet, DeviceInfoData, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize)
; возвращает дополнительную информацию об устройстве
{
   return DllCall("Setupapi.dll\SetupDiGetDeviceRegistryProperty", "int", DeviceInfoSet, "int", DeviceInfoData, "int", Property, "int", PropertyRegDataType, "int", PropertyBuffer, "int", PropertyBufferSize, "int", RequiredSize)
}

DllCall("LoadLibrary", "str", "Setupapi.dll")
VarSetCapacity(RequiredSize, 4)
Gui, Add, TreeView, r20 w600
x:=0
i:=0
loop
{
   VarSetCapacity(ClassGuid_%i%, 16)
   x:= CM_Enumerate_Classes(i, &ClassGuid_%i%, 0)
   if x=37 ; CR_NO_SUCH_VALUE = 37
      break
   VarSetCapacity(ClassDescription_%i%, 100)
   SetupDiGetClassDescription(&ClassGuid_%i%, &ClassDescription_%i%, 100, &RequiredSize)
   str := StrGet(&ClassDescription_%i%)
   P_%i% := TV_Add(str)
   DeviceInfoSet_%i%:=SetupDiGetClassDevs(&ClassGuid_%i%, 0, 0, 2)
   j:=0
   VarSetCapacity(DeviceInfoData_%i%_%j%, 28)
   NumPut(28,DeviceInfoData_%i%_%j%)
   while SetupDiEnumDeviceInfo(DeviceInfoSet_%i%, j, &DeviceInfoData_%i%_%j%)
   {
	  VarSetCapacity(PropertyRegDataType_%i%_%j%, 4)
	  VarSetCapacity(PropertyBuffer_%i%_%j%, 512)
	  VarSetCapacity(RequiredSize_%i%_%j%, 4)
	  x:=SetupDiGetDeviceRegistryProperty(DeviceInfoSet_%i%, &DeviceInfoData_%i%_%j%, 0x00, 0, &PropertyBuffer_%i%_%j%, 512, &RequiredSize_%i%_%j%)
	  TV_Add(StrGet(&PropertyBuffer_%i%_%j%),P_%i%)
	  j++
	  VarSetCapacity(DeviceInfoData_%i%_%j%, 28)
	  NumPut(28,DeviceInfoData_%i%_%j%)
   }
   i++
}

Gui, Show
return

GuiClose:
ExitApp

Space::
   Run, mmsys.cpl
   Process, Wait, rundll32.exe, 1
   If ErrorLevel
   {
      WinWait, % "ahk_pid" ErrorLevel
      If !onStart
      {
         Send, +{Tab}{Right}
         Sleep, 50
         ControlGet, isEnabled, Enabled,, Button2
         Sleep, 50
         If !isEnabled
            ControlSend, SysListView321, {Down 2}
         Else
            ControlSend, SysListView321, {Up 2}
         Sleep, 50
         ControlClick, Button2
         Sleep, 500
;         Process, Close, rundll32.exe
         ControlClick, OK
      }
      Else
      {
         Send, +{Tab}{Right}
         Sleep, 50
         ControlGet, isEnabled, Enabled,, Button2
         Sleep, 50
         If !isEnabled
            ControlSend, SysListView321, {Up 2}
         Else
            ControlSend, SysListView321, {Down 2}
         Sleep, 50
         ControlClick, Button2
         Sleep, 500
;         Process, Close, rundll32.exe
         ControlClick, OK
      }
      onStart:=!onStart
      Exit
   }
   MsgBox, 262192,, Epic fail, 1
   Return

Space::SoundSet, % (Vol:=!Vol) ? 0:100, Microphone,, 5

#Tab::
   isDevSetTitle:="Переключение звука"
   isDevSet:="Звук на "
   d:="колонки", h:="наушники"
   Run, mmsys.cpl
   Process, Wait, rundll32.exe, 1
   If ErrorLevel
   {
      WinWait, % "ahk_pid" ErrorLevel
      ControlSend, SysListView321, {Down}
      Sleep, 50
      ControlGet, isEnabled, Enabled,, Button2
      Sleep, 50
      If !isEnabled
         ControlSend, SysListView321, {Down}
      Sleep, 50
      ControlClick, Button2 ; По умол&чанию
      Sleep, 50
;      Process, Close, rundll32.exe ; можно заменить
      ControlClick, Button4 ; на клик по кнопке ОК
      MsgBox,, % isDevSetTitle
             , % isEnabled ? isDevSet . d : isDevSet . h, 1
      Exit
   }
   MsgBox, 16, % isDevSetTitle, Ошибка, 1
   Return

#Tab::
   isDevSetTitle:="Переключение звука"
   isDevSet:="Звук на "
   d:="колонки", h:="наушники"
reDevSet:
   Run, mmsys.cpl
   Process, Wait, rundll32.exe, 1
   If (!ErrorLevel)
   {
    Process, Close, rundll32.exe
    MsgBox, 16, % isDevSetTitle, Ошибка, 0   
   }
   else
   {
      WinWait, % "ahk_pid" ErrorLevel
      ControlSend, SysListView321, {Down}
      Sleep, 50
      ControlGet, isEnabled, Enabled,, Button2
      Sleep, 50
      If !isEnabled
         ControlSend, SysListView321, {Down}
      Sleep, 50
      ControlClick, Button2 ; По умол&чанию
      Sleep, 50
      ControlClick, Button4 ; на клик по кнопке ОК
      MsgBox, 1, % isDevSetTitle
             , % isEnabled ? isDevSet . d : isDevSet . h, 5
   }
IfMsgBox, Cancel 
  Goto, reDevSet

Exit

...
      Sleep, 250
      ControlClick, Button2
...

      ControlClick, Button4 ; на клик по кнопке ОК
      Sleep, 250
      MsgBox, 1, % isDevSetTitle
             , % isEnabled ? isDevSet . d : isDevSet . h, 3
   }

Hotkey, #Tab, ChangeSource
Hotkey, IfWinActive, ahk_class #32770
Hotkey, Tab, BlockTabButton
BlockTabButton:
Return

ChangeSource:
   isDevSetTitle:="Переключение звука"
   isDevSet:="Звук на ", d:="колонки", h:="наушники"
reDevSet:
   Hotkey, #Tab, BlockTabButton
   Run, mmsys.cpl
   Process, Wait, rundll32.exe, 1
   If (!ErrorLevel)
   {
      Process, Close, rundll32.exe
      MsgBox, 16, % isDevSetTitle, Ошибка, 0
   }
   Else
   {
      WinWait, % "ahk_pid" ErrorLevel
      ControlSend, SysListView321, {Down}
      Sleep, 50
      ControlGet, isEnabled, Enabled,, Button2
      Sleep, 50
      If !isEnabled
         ControlSend, SysListView321, {Down}
      Sleep, 50
      ControlClick, Button2,,,, 2 ; клик по кнопке - По умол&чанию
      Sleep, 50
;      ControlClick, Button4,,,, 2 ; клик по кнопке - ОК
      Process, Close, rundll32.exe ; тоже, что и клик по кнопке - ОК
      MsgBox, 1, % isDevSetTitle
               , % isEnabled ? isDevSet . d : isDevSet . h, 1
      IfMsgBox, Cancel
         Goto, reDevSet
   }
   Hotkey, #Tab, ChangeSource
   Return

#Tab::
   Run, % "rundll32.exe Shell32.dll,"
      . "Control_RunDLL mmsys.cpl,,playback",,, PID
   WinWait, % "ahk_pid" PID,, 1
   If !ErrorLevel
   {
      ControlSend, SysListView321, {Down}
      ControlGet, isEnabled, Enabled,, Button2
      ControlSend, SysListView321, % !isEnabled ? "{Down}":""
      ControlClick, Button2, ahk_class #32770,,, 2
      WinClose, % "ahk_pid" PID
      Return
   }
   MsgBox, 262192, % " ", % "Epic fail", 1
   Return

   SetKeyDelay, 100, 100   
   Run, % "rundll32.exe Shell32.dll,"
      . "Control_RunDLL mmsys.cpl,,playback",,, PID
   WinWait, % "ahk_pid" PID,, 1
   If !ErrorLevel
   {
      ControlSend, SysListView321, {Down}
      ControlGet, isEnabled, Enabled,, Button2
      ControlSend, SysListView321, % !isEnabled ? "{Down}":""
      ControlClick, Button2, ahk_class #32770,,, 2
      WinClose, % "ahk_pid" PID
      Return
   }
   MsgBox, 262192, % " ", % "Epic fail", 1
   Return

Run, % "rundll32.exe Shell32.dll,"
      . "Control_RunDLL mmsys.cpl,,recording",,, PID
   WinWait, % "ahk_pid" PID,, 1

   If !ErrorLevel
   {
      Send, {Down}
      ControlClick, Button3, ahk_class #32770,,, 2
      Send, {CtrlDown}{Tab 2}{CtrlUp}
      ControlClick, x145 y195, ahk_class #32770,,, Pos...

SoundSet, off, Microphone, mute, 3

#Tab::
   Run, % "rundll32.exe Shell32.dll,"
      . "Control_RunDLL mmsys.cpl,,playback",,, PID
   WinWait, % "ahk_pid" PID,, 1
   If !ErrorLevel
   {
      ControlSend, SysListView321, {Down}
      ControlGet, isEnabled, Enabled,, Button2
      ControlSend, SysListView321, % !isEnabled ? "{Down}":""
      ControlClick, Button2, ahk_class #32770,,, 2
      WinClose, % "ahk_pid" PID
      Return
   }
   MsgBox, 262192, % " ", % "Epic fail", 1
   Return