Sound Device (Input & Output) per Skript wechseln (Win XP only)

oetzn

Hab mir vorher grad kurz dieses Skript geschrieben, da ich zuhause öfters zwischen Headset und Lautsprecher umschalte.
Einfach statt den Strings 'Output Sound device 1' bzw 2 und 'Input Sound device 1' bzw 2 die jeweiligen Ein-Ausgabegeräte einsetzen.
!!Achtung CASE SENSTIVE!!
War nicht viel Arbeit, aber vielleicht braucht es ja mal jemand..
Hier ist der Code:

Spoiler anzeigen

[autoit]

Global $aValues[2][2] = [["Output Sound device 1","Output Sound device 2"],["Input Sound device 1","Input Sound device 2"]]

[/autoit] [autoit][/autoit] [autoit]

Global $sPlayback = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Multimedia\Sound Mapper","Playback")
If @error Then Exit
Global $sRecord = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Multimedia\Sound Mapper","Record")
If @error Then Exit

[/autoit] [autoit][/autoit] [autoit]

Switch $sPlayback
Case $aValues[0][0]
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Multimedia\Sound Mapper","Playback","REG_SZ",$aValues[0][1])
Case $aValues[0][1]
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Multimedia\Sound Mapper","Playback","REG_SZ",$aValues[0][0])
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

Switch $sRecord
Case $aValues[1][0]
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Multimedia\Sound Mapper","Record","REG_SZ",$aValues[1][1])
Case $aValues[1][1]
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Multimedia\Sound Mapper","Record","REG_SZ",$aValues[1][0])
EndSwitch

[/autoit] [autoit][/autoit] [autoit][/autoit]