104 replies to this topic

[dan112123]

I looked at a couple of replies here and decided to fix up the bugs in the posts here and improve some things.

Here is what I did:

* Fixed looping error so now if the selection is already at the bottom it will properly circle back up
* Fixed a problem where if you have too any devices PgUp wouldn't go all the way up
* Fixed a problem with the Sound window already being up and {pgup} button going to the next tab effectively switching out of this tab
* other minor fixes
+ Added better logic that finds avaliable devices
+ Added SPDIF output skipping

; -------------------------------------------------------------
; Current Default Playback Device Switcher
; -------------------------------------------------------------
*#8::
    IfWinExist Sound
    {
        WinKill Sound
    }
    Run rundll32.exe shell32.dll`,Control_RunDLL mmsys.cpl`,`,0 

    WinWait,Sound 
    IfWinNotActive,Sound WinActivate,Sound 
    WinWaitActive,Sound
 
    ControlSend,SysListView321,{Home}  
    x := 1
    devNum := 0
    isSecondLoop := false
    isEnabled := false
;    ControlGet, isEnabled, Enabled,,&Set Default 
    ControlGet, devNum, List, Count, SysListView321 
; isEnabled AND 
    StringCaseSense Off
    loop 
    { 
        ControlGet, Current, List, Selected, SysListView321
        if(InStr(Current, "default device") OR x > devNum)
        {
            break
        }
        x := x + 1
        ControlSend,SysListView321,{Down}  
    } 

    if (x >= devNum) 
    {
        ControlSend,SysListView321,{Home}
        x := 1 
    } 

    loop 
    { 
        ControlGet, Current, List, Selected, SysListView321
        ControlGet, isEnabled, Enabled,,&Set Default 
        ;msgbox %isEnabled% %Current%

        ; exclude S/PDIF cards
        if(InStr(Current, "PDIF"))
        {
            isEnabled := false
        }

        if (x > devNum AND not isEnabled)
        {
            ControlSend,SysListView321,{Home}
            x := 1
            isSecondLoop := true
        }
        if (x > devNum OR isEnabled)
        {
            ;msgbox breaking now %x% %devNum% %isEnabled% %isSecondLoop%
            break
        }
        if (x > devNum AND isSecondLoop)
        {
            ; infinite loop breaker if no devices avaliable
            ;msgbox breaking sec %x% %devNum% %isEnabled% %isSecondLoop%
        }

        ControlSend,SysListView321,{Down}
        x := x + 1
    } 


;ControlGet, Current, List, Selected, SysListView321 
;msgbox %Current% 
    Sleep 100
    ControlClick,&Set Default 
    ControlClick,OK 
    SoundPlay *48 
    WinKill Sound

return 

[kensiko]

Flag

[haltux]

There is a general problem that have not been solved so far, even though someone has already pointed it out: all this scripts do not work when the mouse is over the window which is poping up. Here is my (ugly) solution:

WinWait,Sound
MouseGetPos,xpos,ypos
if (xpos<600) {
	WinMove,800,0
} else {
	WinMove,0,0
}

[haltux]

Dear ALL!

I'm absolutely new in this, however, I'd need 2(two) exe (or whatever) files to change from the current audio device to the other one.

I need two, beacuse my father is going to use it, and I'd like to have 2 simple buttons, one for each sound device, so I'd name the exe files like HEADSET and SPEAKERS

For WinXP home, nothing special.

How could i do that? Please help me solving this!

Thanks a LOT!

Install AutoHotKey and create one XXX.ahk file (with any text editor).
In these ahk file, you can put something like that:

IfWinExist Sound
{
   WinKill Sound
}
Run, mmsys.cpl
WinWait,Sound
MouseGetPos,xpos,ypos
if (xpos<800) {
	WinMove,1000,0
} else {
	WinMove,0,0
}
ControlSend,SysListView321,{Up 6}
ControlSend,SysListView321,{Down [color=red]0[/color]}
ControlGet, isEnabled, Enabled,,&Set Default
ControlClick,&Set Default
ControlClick,OK
WinWaitClose
SoundPlay, *-1
return

Instead of 0, you put the position of the device you want to set with the corresponding script in the sound device list (starting at 0).

When you double click on the ahk file it should do what you expect.

[haltux]

Hello,

After that, I can't get to "Set default" button, the name in french is "Par défaut" and the accent is causing problems with AutoHotkey. I tried "Config" = Configurer button, "Prop" = Propriété button (properties), they work just fine, but NOT PAR DÉFAUT ! I tried "Pa", "FAUT", I tried changing the SetTitleMatchMode to 2, not good.

I have just tested WinWait with a window with an accent (some of my applications are in french but my Windows is in english), it works fine.

Check that your script is ok (try mine just over this answer) and try with another text editor, it could be a character encoding pb. I used notepad.

[kensiko]

Thanks, but I ended up using a ExeFile from a gadget for Vista: SetVistaDefaultAudio and VBScript to change the audio. I save the previous default device and I don't check which one is default.