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

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

null@example.com (Indomito) — Mon, 23 Dec 2013 01:51:02 +0000

Думаю не получится, оно должно быть активным, т.к. идёт нажатие на кнопки окна.

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

null@example.com (brizzz) — Mon, 23 Dec 2013 00:33:33 +0000

#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

Может кто-нибудь подсказать, как вариант Грея дополнить так, чтобы при его использовании, окошко со звуковыми устройствами не становилось активным, не выходя поверх окон, не сворачивая игру и т.п ?

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

null@example.com (Indomito) — Sun, 27 Oct 2013 04:21:01 +0000

AlexanderUA Для начала обнови версию AHK_L, актуальная (1.1.13.01) - может быть в этом дело, кто знает.

Ссылка на скачивание - AHK_L Installer(ANSI x86, Unicode x86, Unicode x64 and Compiler and Documentation)

Далее проверь кодировку текстового файла, должна быть UTF-8, так меньше глюков и не срабатываний.

Если всё это не поможет, то надо смотреть/копать глубже.

P.S. UTF-8 нужен для того, что бы верно работал вызов в команде RunDLL

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

null@example.com (AlexanderUA) — Sat, 26 Oct 2013 18:39:20 +0000

Использовал все коды с этого сайта для переключения звука, но вылазит только окно Звуковых устройств и всё. Дальше даже снова не получается запустить скрипт, приходится его перезагружать чтобы он опять сработал и вылезло одно окно звука. Установлена Windows 7, AutoHotkey 1.0.48.05
Вот например скрипт переключений режима мониторов(клон, расширенный) работает без глюков, хотя там конечно по проще, просто ссылки.
Хотя были моменты я чтото понаклацивал, повыходил по заходил с программы, не сколько раз перезагрузил комп, заработало.
Оставил этот скрипт

^!V::
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

Пока работает. Но если опять перестанет, где копать дальше?

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

null@example.com (Grey) — Thu, 31 Jan 2013 13:31:03 +0000

У меня Microphone +20dB Boost в виде чекбокса, и вот так получается им манипулировать:

>+NumpadMult::
   SoundSet, (isEnable:=!isEnable) ? False:True, Microphone, ONOFF
   KeyWait, % SubStr(A_ThisHotkey, 3)
   Return

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

null@example.com (Bazyl) — Thu, 24 Jan 2013 12:17:49 +0000

2Grey, может поможешь со скриптом. Я использовал предложенный тобой, немного изменен под себя, он выставлял усиление микрофона на 20 Дб.

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...

Но проблема вот в чем, для рядовых пользователей запрещен доступ к control.exe и соотвественно нужно запустить от админа. Возможно ли как то узменить параметры это ползунка используя команду типа:

SoundSet, off, Microphone, mute, 3

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

null@example.com (Indomito) — Mon, 17 Dec 2012 12:59:00 +0000

Malcev я использую свой вариант - работает без осечек.
Правда он отличается немного от исходного на форуме.

;=====Переключение звука===============
;LWin & Tab::
ToggleSound:
   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 ; на клик по кнопке ОК
      Process, Close, rundll32.exe
      MsgBox, 1, % isDevSetTitle
             , % isEnabled ? isDevSet . d : isDevSet . h, 5
   }
;Sleep, 1000
IfMsgBox, Cancel 
  Goto, reDevSet
Return

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

null@example.com (Malcev) — Mon, 26 Nov 2012 15:39:25 +0000

   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

Использую этот вариант от Grey.
Почему-то не всегда срабатывает.
100 раз сработает, а один раз осечка.
Что может быть за причина?
Может SetKeyDelay увеличить?

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

null@example.com (Fiiiish) — Mon, 25 Jun 2012 16:44:41 +0000

Indomito Спасибо за отзывчивость, Grey уже помог.

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

null@example.com (Indomito) — Mon, 25 Jun 2012 15:21:26 +0000

Fiiiish пишет:

Grey Спасибо,спасибо и еще раз спасибо!!! Как здорово, что набрел на этот форум, теперь буду пытаться постигнуть эту чудесную программу!

Вы просили ответить в этой теме послав письмо, как я понимаю Grey уже помог вам.
Моя помощь уже не требуется?

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

null@example.com (Fiiiish) — Mon, 25 Jun 2012 14:16:19 +0000

Grey Спасибо,спасибо и еще раз спасибо!!! Как здорово, что набрел на этот форум, теперь буду пытаться постигнуть эту чудесную программу!

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

null@example.com (Grey) — Mon, 25 Jun 2012 08:20:53 +0000

#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

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

null@example.com (Fiiiish) — Sun, 24 Jun 2012 18:18:43 +0000

Grey, Рано радовался, вылез конфликт с Google Chrome. Скрипт работает исправно до запуска выше упомянутого браузера, потом вылетает окно устройств воспроизведения и ничего не происходит, помогает перезапуск скрипта. Не подскажите, в чем может быть засада и как ее победить?

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

null@example.com (Fiiiish) — Sun, 24 Jun 2012 07:25:39 +0000

Grey пишет:

Да вроде всё работает:

SetKeyDelay, 100, 100

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

Ух ты, здорово этот пашет на ура. Спасибо огроменное!!!!!

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

null@example.com (Grey) — Sun, 24 Jun 2012 01:51:15 +0000

Да вроде всё работает:

SetKeyDelay, 100, 100

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