#Region - TimeStamp
; 2012-07-26 23:34:32
#EndRegion - TimeStamp


#include 'Win7_Sound.au3'

_Main()

Func _Main()

	Local $aApplications = _Win7_AppSoundGetApps()
	Local $hSliderFF
	For $i = 0 To UBound($aApplications) -1
		If StringInStr($aApplications[$i][1], 'Firefox') Then
			$hSliderFF = $aApplications[$i][0]
			ExitLoop
		EndIf
	Next

	Local $iSndValFF = _Win7_AppSoundGet($hSliderFF)
	MsgBox(0, 'Sound Firefox', 'Value = ' & $iSndValFF)

	_Win7_AppSoundSet(34, $hSliderFF)
	$iSndValFF = _Win7_AppSoundGet($hSliderFF)
	MsgBox(0, 'Sound Firefox neu gesetzt', 'Value = ' & $iSndValFF)

EndFunc