Cách đặt lại cài đặt âm lượng cho mỗi ứng dụng trong Windows 7 và Vista

18

Tôi đã thay đổi cài đặt âm lượng ứng dụng cho các ứng dụng của mình. Tôi muốn đặt lại mọi cài đặt âm lượng riêng lẻ để tất cả các ứng dụng sử dụng cài đặt âm lượng chung. Tôi nên làm thế nào?

windows-7  audio 
— Mehrdad Afshari
nguồn
— galacticninja

Câu trả lời:

11

Tôi đã tìm thấy một cách giải quyết có hiệu quả nhưng nó hơi rắc rối. Tôi thích một giải pháp tốt hơn nhưng trong lúc này hãy thử:

Đặt âm lượng chung thành tối đa, di chuyển từng âm lượng ứng dụng riêng lẻ thành tối đa. Sau đó di chuyển âm lượng toàn cầu xuống. Nó xuất hiện để được làm việc. Tất cả các cài đặt âm lượng ứng dụng hiện bị ràng buộc với cài đặt chung.

— Mehrdad Afshari
nguồn
Không làm việc cho tôi. Ứng dụng khách Last.fm luôn chuyển về ~ 15% mức tối đa.
— Robert
4

Tôi phải làm điều này tối đa -> thiết lập lại mọi lúc. Cuối cùng tôi đã tìm kiếm trên mạng để xem liệu có một số phím hoặc bí mật nóng mà tôi bị thiếu. Rõ ràng là không. : /

Vì vậy, tôi đã thực hiện một AutoIt script để làm điều này một cách nhanh chóng hơn con người có thể :) Tôi biên dịch nó qua công cụ-> build và cách mà tôi có thể chạy exe bằng cách tìm kiếm trong menu Start.

Nó làm cho tất cả các thanh trượt bật tiếng và đi đến 50%.

Volume_N 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);

Nhờ chủ đề tự động này để biết thông tin về điều khiển thanh trượt di chuyển.

— Ferrix
nguồn
Trên máy tính để bàn Windows 10 của tôi, tôi không nghĩ kịch bản này hoạt động như dự định ...
— Stevoisiak
3

Tệp sau đây .battừ Per4u3e trên Diễn đàn Microsoft đã thực hiện thủ thuật cho tôi. Nó hoạt động bằng cách tạm thời dừng dịch vụ âm thanh và sửa đổi sổ đăng ký để đặt lại Windows về cài đặt âm thanh mặc định.

Lưu ý rằng, ít nhất là trên Windows 10, bạn có thể cần chạy tập lệnh với tư cách quản trị viên.

@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
— Giáo dục
nguồn
2

Bit of a Powershell viết lại câu trả lời được chia sẻ bởi Steven ở trên, tôi đã mượn một chút từ mã tự nâng cao tiện lợi ở đây: https://bloss.msdn.microsoft.com/virtual_pc_guy/2010/09/23/a-elf-elevating -powershell-script /

Tại sao? Nó chạy nhanh hơn rất nhiều so với tập lệnh bó và tôi sử dụng rất nhiều. Hình tôi muốn chia sẻ. :)

If(!(new-object System.Security.Principal.WindowsPrincipal([System.Security.Principal.WindowsIdentity]::GetCurrent())).IsInRole([System.Security.Principal.WindowsBuiltInRole]::Administrator)) {
    $newProcess = new-object System.Diagnostics.ProcessStartInfo "PowerShell"
    $newProcess.Arguments = $myInvocation.MyCommand.Definition
    $newProcess.Verb = "runas"
    $null = [System.Diagnostics.Process]::Start($newProcess)
    Return
}

cls
$ErrorActionPreference = "SilentlyContinue"

Write-Host '--- Reset Windows Audio Mixer ---' -ForegroundColor Cyan;""

Write-Host 'Stopping Service [Audiosrv]             : ' -ForegroundColor White -NoNewline
$Error.Clear()
Stop-Service -Name Audiosrv -Force
If($Error) {Write-Host 'Error' -ForegroundColor Red} Else {Write-Host 'OK' -ForegroundColor Green}

Write-Host 'Stopping Service [AudioEndpointBuilder] : ' -ForegroundColor White -NoNewline
$Error.Clear()
Stop-Service -Name AudioEndpointBuilder -Force
If($Error) {Write-Host 'Error' -ForegroundColor Red} Else {Write-Host 'OK' -ForegroundColor Green}

Write-Host 'Deleting Registry Key [PropertyStore]   : ' -ForegroundColor White -NoNewline
$Error.Clear()
Remove-Item -Path 'HKCU:Software\Microsoft\Internet Explorer\LowRegistry\Audio\PolicyConfig\PropertyStore' -Force -Recurse
If($Error) {Write-Host 'Error' -ForegroundColor Red} Else {Write-Host 'OK' -ForegroundColor Green}

Write-Host 'Creating Registry Key [PropertyStore]   : ' -ForegroundColor White -NoNewline
$Error.Clear()
$null = New-Item -Path 'HKCU:Software\Microsoft\Internet Explorer\LowRegistry\Audio\PolicyConfig\' -Name PropertyStore
If($Error) {Write-Host 'Error' -ForegroundColor Red} Else {Write-Host 'OK' -ForegroundColor Green}

Write-Host 'Starting Service [Audiosrv]             : ' -ForegroundColor White -NoNewline
$Error.Clear()
Start-Service -Name Audiosrv
If($Error) {Write-Host 'Error' -ForegroundColor Red} Else {Write-Host 'OK' -ForegroundColor Green}

Sleep -Seconds 5

Hoặc, nếu bạn thích nó mà không có văn bản phản hồi thô hoặc tự nâng cao:

Stop-Service -Name Audiosrv -Force
Stop-Service -Name AudioEndpointBuilder -Force

Remove-Item -Path 'HKCU:Software\Microsoft\Internet Explorer\LowRegistry\Audio\PolicyConfig\PropertyStore' -Force -Recurse
$null = New-Item -Path 'HKCU:Software\Microsoft\Internet Explorer\LowRegistry\Audio\PolicyConfig\' -Name PropertyStore

Start-Service -Name Audiosrv

Pause
— Alan McLaughlin Jr
nguồn
1

Tôi đã sử dụng tập lệnh của Ferrix một thời gian nhưng tôi đã sửa đổi nó để đặt tất cả các thanh trượt âm lượng ứng dụng để khớp với âm lượng chính hiện tại thay vì đặt tất cả chúng thành 50%. Tôi cũng đã thay đổi nó để nó hoạt động trên các thanh trượt với âm lượng được đặt dưới 3%.

Volume_N 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")

Tín dụng đến Ferrix để viết kịch bản gốc.

— Máy tính điện tử
nguồn
Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookie và Chính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.