warum arbeitest du nicht direkt über control befehle und wechselst so das ausgabegerät?Quote:
Bin schon seit längerem auf der Suche in AutoIT das Standardsoundausgabegerät zu ändern. Eine eingebaute Funktion scheint es ja nicht zu geben. Also müsste es doch wenigsten über die DLL möglich sein oder ein Registry-Eintrag. Mit ProcessMonitor ist es einfach zu viel herauszufinden welcher Registry das Standarsaugabegerät bestimmt.
Gibt es zufällig für mmsys.cpl Parameter?
Lg likeu<3
Klappt perfect und zuverlässig Thanks :DQuote:
setdefaultsounddevice [Device Name] {Role}
Set the default sound device on Windows 7/Vista/2008. The [Device Name] is the name of the device, as appeared in the sound devices list of windows, for example: Speakers, Line In, Microphone, and so on...
The {Role} parameter is optional and may countain one of the following values: 0 for Console (the default value), 1 for Multimedia, and 2 for Communications.
Examples:
setdefaultsounddevice "Line In"
setdefaultsounddevice "Microphone" 2
SetDefaultDevice(2)
Func SetDefaultDevice($nr)
ShellExecute('mmsys.cpl')
Local $hwnd = WinWait('Sound')
For $i=1 To $nr
ControlSend($hwnd, '', 1000, '{down}')
Next
ControlClick($hwnd, '', 1002, 'left', 1)
WinKill($hwnd)
EndFunc
die reihenfolge und etliche weitere details können natürlich ausgelesen werden... zur not sogar aus der registry ([HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\MMDevices\Audio\Render\]). da es sich hierbei aber ohnehin um ein privat tool handelt (jeder pc verfügt ja über andere möglichkeiten der soundwiedergabe), ist das wohl definitiv unnötig.Quote:
es geht darum das nircmd eine fremdsoftware ist...Quote:
NirCMD funktioniert sowie ControlClick, das erste ist zuverlässiger und das 2. lässt den User nicht frei machen was er will sondern wird vom Fenster gestört, da kann sich jeder rausnehmen was er davon haben möchte.
switchToDeviceByName('Lautsprecher')
;~ switchToDeviceByName('Digitalaudio (HDMI)')
Func GetAvailableDevices()
Local $array[1][2]=[[0]], $i=1, $hklm
If @OSArch='X64' Then
$hklm="HKLM64"
Else
$hklm="HKLM"
EndIf
While True
Local $var = RegEnumKey($hklm&"\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\", $i)
If @error <> 0 Or $var='' Then ExitLoop
$i+=1
If RegRead($hklm&"\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\"&$var,"DeviceState")=1 Then
$array[0][0]=$array[0][0]+1
ReDim $array[$array[0][0]+1][2]
$array[$array[0][0]][0] = RegRead($hklm&"\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\"&$var&"\Properties", "{a45c254e-df1c-4efd-8020-67d146a850e0},2")
$array[$array[0][0]][1] = "{0.0.0.00000000}."&$var
EndIf
WEnd
Return $array
EndFunc
Func switchToDeviceByID($sId)
Local $tagIPolicyConfig = "GetMixFormat hresult(wstr;ptr*);GetDeviceFormat hresult(wstr;int;ptr*);ResetDeviceFormat hresult(wstr);SetDeviceFormat hresult(wstr;ptr;ptr);GetProcessingPeriod hresult(wstr;int;int64*;int64*);SetProcessingPeriod hresult(wstr;int64*);GetShareMode hresult(wstr;ptr);SetShareMode hresult(wstr;ptr);GetPropertyValue hresult(wstr;struct;variant*);SetPropertyValue hresult(wstr;struct;variant*);SetDefaultEndpoint hresult(wstr;int);SetEndpointVisibility hresult(wstr;int);"
Local $oPolicyConfig = ObjCreateInterface("{870af99c-171d-4f9e-af0d-e63df40c2bc9}", "{f8679f50-850a-41cf-9c72-430f290290c8}", $tagIPolicyConfig)
If $oPolicyConfig.SetDefaultEndpoint($sId, 0) = 0 Then $oPolicyConfig.SetDefaultEndpoint($sId, 2)
EndFunc
Func switchToDeviceByName($name)
Local $devices = GetAvailableDevices()
For $i=1 To $devices[0][0]
If $devices[$i][0] = $name Then
switchToDeviceByID($devices[$i][1])
Return 1
EndIf
Next
EndFunc