Cara mengatur ulang per pengaturan volume aplikasi di Windows 7 dan Vista
18
Saya telah mengubah pengaturan volume aplikasi untuk aplikasi saya. Saya ingin mengatur ulang setiap pengaturan volume individual sehingga semua aplikasi menggunakan pengaturan volume global. Bagaimana saya harus melakukan itu?
Saya telah menemukan solusi yang berhasil tetapi agak sedikit aneh. Saya lebih suka solusi yang lebih baik tetapi sementara itu coba:
Atur volume global ke maksimum, pindahkan setiap volume aplikasi individual ke maksimum juga. Kemudian gerakkan volume global ke bawah. Tampaknya berfungsi. Semua pengaturan volume aplikasi sekarang terikat ke pengaturan global.
Tidak bekerja untuk saya. Klien Last.fm selalu beralih kembali ke ~ 15% dari maksimum.
Robert
4
Saya harus melakukan ini semua-max -> reset sepanjang waktu. Saya akhirnya mencari di internet untuk melihat apakah ada kunci panas rahasia atau kombo saya hilang. Sepertinya tidak. : /
Jadi saya membuat skrip autoit untuk melakukan ini lebih cepat daripada yang dimungkinkan manusia :) Saya mengkompilasinya melalui tools-> build dan dengan cara itu saya dapat menjalankan exe dengan mencari di menu mulai.
Itu menyebabkan semua slider untuk bersuara dan pergi ke 50%.
Volume_Normalize.au3:
#include <GuiConstantsEx.au3>
#include <GuiSlider.au3>
Func SlideTo($Win, $Ctrl, $Pct)
If Not IsInt($Pct) Or $Pct < 3 Or $Pct > 100 Then
SetError(1)
Return False
EndIf
$CtrlHandle = ControlGetHandle($Win, '', $Ctrl)
if not $CtrlHandle Then
SetError(2)
Return False
EndIf
Local $SetValue, $SendValue
If $Pct <= 51 Then
$SetValue = $Pct + 1
$SendValue = '{UP}'
Else
$SetValue = $Pct - 1
$SendValue = '{DOWN}'
EndIf
_GUICtrlSlider_SetPos($CtrlHandle, $SetValue)
Local $PrevOpt = Opt('SendKeyDelay', 1)
ControlSend($Win, '', $Ctrl, $SendValue)
Opt('SendKeyDelay', $PrevOpt)
Return True
EndFunc
Func EachSliderTo($Win, $Pct)
WinWait($Win, "")
If Not WinActive($Win,"") Then WinActivate($Win,"")
local $i = 1
If not WinActive($Win,"") Then WinActivate($Win,"")
While True
$Ctrl = "[CLASS:msctls_trackbar32; INSTANCE:"& $i &"]"
if not SlideTo($Win, $Ctrl, $Pct) Then
ExitLoop
EndIf
$i = $i + 1
WEnd
Return True
EndFunc
$Win = "Volume Mixer"
$Prog = "SndVol.exe"
if Not WinActive($Win,"") Then
if not WinActivate($Win,"") Then
ShellExecute($Prog)
If not WinActive($Win,"") Then WinActivate($Win,"")
EndIf
EndIf
WinWait($Win)
EachSliderTo("Volume Mixer",100);
EachSliderTo("Volume Mixer", 50);
Berkat utas autoit ini untuk info tentang cara memindahkan kontrol slider.
File berikut .batdari Per4u3e di Forum Microsoft melakukan trik untuk saya. Ini bekerja dengan menghentikan sementara layanan audio dan memodifikasi registri untuk mengatur ulang Windows ke pengaturan audio default.
Perhatikan bahwa, setidaknya pada Windows 10, Anda mungkin perlu menjalankan skrip sebagai admin.
@ECHO OFF
ECHO Reset Volume Mixer Settings...
NET STOP Audiosrv
NET STOP AudioEndpointBuilder
REG DELETE "HKCU\Software\Microsoft\Internet Explorer\LowRegistry\Audio\PolicyConfig\PropertyStore" /F
REG ADD "HKCU\Software\Microsoft\Internet Explorer\LowRegistry\Audio\PolicyConfig\PropertyStore"
NET START Audiosrv
Saya telah menggunakan skrip ferrix untuk beberapa waktu tetapi saya memodifikasinya untuk mengatur semua slider volume aplikasi agar sesuai dengan volume master saat ini daripada mengatur semuanya hingga 50%. Saya juga mengubahnya sehingga berfungsi pada slider dengan volume yang ditetapkan kurang dari 3%.
Volume_Normalize_Alt.au3:
#include <GuiConstantsEx.au3>
#include <GuiSlider.au3>
Func SlideTo($Win, $Ctrl, $Pct)
If Not IsInt($Pct) Or $Pct < 0 Or $Pct > 100 Then
SetError(1)
Return False
EndIf
$CtrlHandle = ControlGetHandle($Win, '', $Ctrl)
If Not $CtrlHandle Then
SetError(2)
Return False
EndIf
Local $SetValue, $SendValue
If $Pct <= 51 Then
$SetValue = $Pct + 1
$SendValue = '{UP}'
Else
$SetValue = $Pct - 1
$SendValue = '{DOWN}'
EndIf
_GUICtrlSlider_SetPos($CtrlHandle, $SetValue)
Local $PrevOpt = Opt('SendKeyDelay', 1)
ControlSend($Win, '', $Ctrl, $SendValue)
Opt('SendKeyDelay', $PrevOpt)
Return True
EndFunc ;==>SlideTo
Func EachSliderTo($Win, $Pct)
WinWait($Win, "")
If Not WinActive($Win, "") Then WinActivate($Win, "")
Local $i = 1
If Not WinActive($Win, "") Then WinActivate($Win, "")
While True
$Ctrl = "[CLASS:msctls_trackbar32; INSTANCE:" & $i & "]"
If Not SlideTo($Win, $Ctrl, $Pct) Then
ExitLoop
EndIf
$i = $i + 1
WEnd
Return True
EndFunc ;==>EachSliderTo
$Win = "Volume Mixer"
$Prog = "SndVol.exe"
If Not WinActive($Win, "") Then
If Not WinActivate($Win, "") Then
ShellExecute($Prog)
If Not WinActive($Win, "") Then WinActivate($Win, "")
EndIf
EndIf
WinWait($Win)
;Master volume has the highest instance number so find slider with highest instance then return its handle.
Local $i = 1
While True
Local $h = ControlGetHandle($Win, '', "[CLASS:msctls_trackbar32; INSTANCE:" & $i & "]")
If @error > 0 Then
ExitLoop
EndIf
$i = $i + 1
Local $Handle = $h ;store last sucessful handle to be returned
WEnd
Local $CurrMasterVol = _GUICtrlSlider_GetPos($Handle)
;100 is 0% and 0 is 100%
;EachSliderTo("Volume Mixer", 100) ;What is the point of doing this first?
EachSliderTo("Volume Mixer", $CurrMasterVol)
WinClose("Volume Mixer")
Kredit digunakan untuk ferrix karena menulis skrip asli.
Jawaban:
Saya telah menemukan solusi yang berhasil tetapi agak sedikit aneh. Saya lebih suka solusi yang lebih baik tetapi sementara itu coba:
Atur volume global ke maksimum, pindahkan setiap volume aplikasi individual ke maksimum juga. Kemudian gerakkan volume global ke bawah. Tampaknya berfungsi. Semua pengaturan volume aplikasi sekarang terikat ke pengaturan global.
sumber
Saya harus melakukan ini semua-max -> reset sepanjang waktu. Saya akhirnya mencari di internet untuk melihat apakah ada kunci panas rahasia atau kombo saya hilang. Sepertinya tidak. : /
Jadi saya membuat skrip autoit untuk melakukan ini lebih cepat daripada yang dimungkinkan manusia :) Saya mengkompilasinya melalui tools-> build dan dengan cara itu saya dapat menjalankan exe dengan mencari di menu mulai.
Itu menyebabkan semua slider untuk bersuara dan pergi ke 50%.
Volume_Normalize.au3:
Berkat utas autoit ini untuk info tentang cara memindahkan kontrol slider.
sumber
File berikut
.bat
dari Per4u3e di Forum Microsoft melakukan trik untuk saya. Ini bekerja dengan menghentikan sementara layanan audio dan memodifikasi registri untuk mengatur ulang Windows ke pengaturan audio default.Perhatikan bahwa, setidaknya pada Windows 10, Anda mungkin perlu menjalankan skrip sebagai admin.
sumber
Sedikit Powershell menulis ulang jawaban yang dibagikan oleh Steven di atas, saya meminjam sedikit dari kode peningkatan diri yang bagus di sini: https://blogs.msdn.microsoft.com/virtual_pc_guy/2010/09/23/a-self-elevating -powershell-script /
Mengapa? Ini berjalan jauh lebih cepat daripada skrip batch, dan saya menggunakan banyak ini. Kupikir aku akan berbagi. :)
Atau, jika Anda lebih suka tanpa teks umpan balik mentah atau peningkatan diri:
sumber
Saya telah menggunakan skrip ferrix untuk beberapa waktu tetapi saya memodifikasinya untuk mengatur semua slider volume aplikasi agar sesuai dengan volume master saat ini daripada mengatur semuanya hingga 50%. Saya juga mengubahnya sehingga berfungsi pada slider dengan volume yang ditetapkan kurang dari 3%.
Volume_Normalize_Alt.au3:
Kredit digunakan untuk ferrix karena menulis skrip asli.
sumber