Перейти к содержанию
Работа на форуме ×

Drkogot

Пользователи
 Профиль  Обзор контента

  • Публикаций

    282

  • Баллов

    389 

  • Зарегистрирован

  • Посещение

Сообщения, опубликованные Drkogot

  2. Опубликовано · Изменено пользователем Drkogot

    Запрос для нейросети:
     

    Цитата

    Напиши скрипт для повершелл, который делает выходной звук в Win11, как в Win 98

    Ответ нейросети
     

    Цитата

    Для изменения звукового выхода в Windows 11 на звук, похожий на Windows 98, можно использовать PowerShell для изменения настроек звукового устройства. Однако, Windows 11 и Windows 98 используют разные драйверы и настройки звука, поэтому полностью воспроизвести звук Windows 98 на Windows 11 невозможно.

    Тем не менее, можно попытаться изменить некоторые настройки звука, чтобы они были более похожи на Windows 98. Например, можно изменить звуковые схемы или настройки усиления.

    Скрипт для PowerShell:
     

    Спойлер

    # Подключение необходимых сборок
    Add-Type -AssemblyName System.Runtime.InteropServices

    # Определение констант для API функций
    $MMSYSERR_NOERROR = 0
    $MMSYSERR_ERROR = 1
    $MMSYSERR_BADDEVICEID = 2
    $MMSYSERR_NOTENABLED = 3
    $MMSYSERR_ALLOCATED = 4
    $MMSYSERR_INVALHANDLE = 5
    $MMSYSERR_NODRIVER = 6
    $MMSYSERR_NOMEM = 7
    $MMSYSERR_NOTSUPPORTED = 8
    $MMSYSERR_BADERRNUM = 9
    $MMSYSERR_INVALFLAG = 10
    $MMSYSERR_INVALPARAM = 11
    $MMSYSERR_HANDLEBUSY = 12
    $MMSYSERR_INVALIDALIAS = 13
    $MMSYSERR_BADDB = 14
    $MMSYSERR_KEYNOTFOUND = 15
    $MMSYSERR_READERROR = 16
    $MMSYSERR_WRITEERROR = 17
    $MMSYSERR_DELETEERROR = 18
    $MMSYSERR_VALNOTFOUND = 19
    $MMSYSERR_NODRIVERCB = 20

    # Определение функций для работы с API
    $waveOutGetNumDevs = Add-Type -MemberDefinition @"
    [DllImport("winmm.dll")]
    public static extern uint waveOutGetNumDevs();
    "@ -Name "WinMM" -Namespace "Audio" -PassThru

    $waveOutGetDevCaps = Add-Type -MemberDefinition @"
    [DllImport("winmm.dll")]
    public static extern uint waveOutGetDevCaps(uint uDeviceID, ref WAVEOUTCAPS pwoc, uint cbwoc);
    "@ -Name "WinMM" -Namespace "Audio" -PassThru

    $waveOutOpen = Add-Type -MemberDefinition @"
    [DllImport("winmm.dll")]
    public static extern uint waveOutOpen(ref IntPtr phwo, uint uDeviceID, IntPtr pwfx, uint dwCallback, uint dwInstance, uint fdwOpen);
    "@ -Name "WinMM" -Namespace "Audio" -PassThru

    $waveOutClose = Add-Type -MemberDefinition @"
    [DllImport("winmm.dll")]
    public static extern uint waveOutClose(IntPtr hwo);
    "@ -Name "WinMM" -Namespace "Audio" -PassThru

    $waveOutSetVolume = Add-Type -MemberDefinition @"
    [DllImport("winmm.dll")]
    public static extern uint waveOutSetVolume(IntPtr hwo, uint dwVolume);
    "@ -Name "WinMM" -Namespace "Audio" -PassThru

    # Определение структуры WAVEOUTCAPS
    $WAVEOUTCAPS = Add-Type -TypeDefinition @"
    using System;
    using System.Runtime.InteropServices;

    public struct WAVEOUTCAPS
    {
        public ushort wMid;
        public ushort wPid;
        public uint vDriverVersion;
        [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]
        public string szPname;
        public uint dwFormats;
        public ushort wChannels;
        public ushort wReserved1;
        public uint dwSupport;
    }
    "@ -PassThru

    # Функция для изменения звуковых настроек
    function Set-AudioSettings {
        param (
            [Parameter(Mandatory=$true)]
            [int]$Volume = 0xFFFF # Максимальная громкость
        )

        # Получение количества звуковых устройств
        $numDevs = [Audio.WinMM]::waveOutGetNumDevs()
        if ($numDevs -eq 0) {
            Write-Host "No audio devices found."
            return
        }

        # Открытие звукового устройства
        $hwo = [IntPtr]::Zero
        $result = [Audio.WinMM]::waveOutOpen([ref]$hwo, 0, [IntPtr]::Zero, 0, 0, 0)
        if ($result -ne $MMSYSERR_NOERROR) {
            Write-Host "Failed to open audio device."
            return
        }

        # Установка громкости
        $result = [Audio.WinMM]::waveOutSetVolume($hwo, $Volume)
        if ($result -ne $MMSYSERR_NOERROR) {
            Write-Host "Failed to set volume."
        }

        # Закрытие звукового устройства
        [Audio.WinMM]::waveOutClose($hwo)
    }

    # Установка звуковых настроек
    Set-AudioSettings -Volume 0xFFFF
     


    Проверяю звук. Решил начать с музыки, которую давно уже не слушал. Прослушиваю на Ютубе. Субъективно - характер звука присутствует "старенький"...

  3. Опубликовано

    1 час назад, Пяпа сказал:

    Скачайте пару треков в 24/96 или сколько там они обещают, выложите тут, глянем спеки..

    Похоже, такой возможности нет.
    А если я через программу запишу потоковый звук - это подойдет?

  7. Опубликовано · Изменено пользователем Drkogot

    В общем, ситуация. Приобрел внешнюю звуковую карту. Брал в том числе, и для того, как многие говорят, улучшения звука в наушниках. 
    Слушаю обычно через ютуб мьюзик.
    С недавних пор, ютуб стал недоступен в России.
    На форуме одном советовали расширение для браузера Unblocked Youtube.
    Я попробовал эту функцию на ютуб мьюзик. Разблокировать не получилось. Но, звук(при прослушивании этого сайта при помощи программы из трех букв) стал классным.
    Просьба попробовать проделать на своем пк - у всех так?
    Если не в этом дело - все равно, хотелось бы разобраться...

  9. Опубликовано · Изменено пользователем Drkogot

    Запрос:
     

    Спойлер

    Напиши скрипт, который увеличивает частоту дискретизации 24 бит/192 кгц. Но моя звуковая карта не поддерживает такое. Нужна тогда что-то вроде прокладки. На повершел. Гуи. Кнопка оптимизировать

     

    По ответу нейросети сделал exe-файл(вирусов нет):
    https://drive.google.com/drive/folders/1zbC56fAZNLMpo9bAVjY9-f7Px9uwNlSf?usp=sharing

    Звук нравится(хоть и частота и битность в панели управления не изменились).

  10. Опубликовано

    Скрипт для оптимизации видеокарты Nvidia:
     

    Спойлер

    Add-Type -AssemblyName System.Windows.Forms
    Add-Type -AssemblyName System.Drawing

    # Создание формы
    $form = New-Object System.Windows.Forms.Form
    $form.Text = "Оптимизация видеокарты NVIDIA"
    $form.Size = New-Object System.Drawing.Size(300,200)
    $form.StartPosition = "CenterScreen"

    # Создание кнопки
    $button = New-Object System.Windows.Forms.Button
    $button.Location = New-Object System.Drawing.Point(100,80)
    $button.Size = New-Object System.Drawing.Size(100,30)
    $button.Text = "Оптимизировать"
    $button.Add_Click({
        # Команды для оптимизации видеокарты NVIDIA
        # Пример: изменение настроек энергопотребления
        # nvidia-smi -i 0 -p 0

        # Выполнение команды
        Start-Process -FilePath "nvidia-smi" -ArgumentList "-i 0 -p 0" -NoNewWindow -Wait

        # Сообщение об успешной оптимизации
        [System.Windows.Forms.MessageBox]::Show("Оптимизация завершена!", "Успех", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information)
    })

    # Добавление кнопки на форму
    $form.Controls.Add($button)

    # Отображение формы
    $form.ShowDialog()
     

    После применения звук стал чище и лучше.

  11. Опубликовано · Изменено пользователем Drkogot

    Осваиваю нейросети.
    Запрос к нейросети:
     

    Спойлер

    Напиши на повершелл программу с гуи, которая оптимизирует текущее аудиоустройство(возможно аудиодрайвер).


    На что программа выдала такой скрипт
     

    Спойлер

    # Загрузка необходимых библиотек
    Add-Type -AssemblyName System.Windows.Forms
    Add-Type -AssemblyName System.Drawing

    # Создание формы
    $form = New-Object System.Windows.Forms.Form
    $form.Text = "Оптимизация аудиоустройства"
    $form.Size = New-Object System.Drawing.Size(300,200)
    $form.StartPosition = "CenterScreen"

    # Создание кнопки
    $button = New-Object System.Windows.Forms.Button
    $button.Location = New-Object System.Drawing.Point(100,80)
    $button.Size = New-Object System.Drawing.Size(100,30)
    $button.Text = "Оптимизировать"
    $button.Add_Click({
        # Код для оптимизации аудиоустройства
        Optimize-AudioDevice
    })
    $form.Controls.Add($button)

    # Функция для оптимизации аудиоустройства
    function Optimize-AudioDevice {
        # Пример: Перезапуск аудиодрайвера
        Restart-Service -Name "Audiosrv" -Force

        # Пример: Установка стандартного аудиоустройства
        $defaultAudioDevice = Get-WmiObject -Query "SELECT * FROM Win32_SoundDevice WHERE Status='OK'"
        if ($defaultAudioDevice) {
            $defaultAudioDevice.SetDefaultAudioDevice()
        }

        # Пример: Уведомление пользователя
        [System.Windows.Forms.MessageBox]::Show("Аудиоустройство оптимизировано!", "Успех", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information)
    }

    # Отображение формы
    $form.Add_Shown({$form.Activate()})
    [void] $form.ShowDialog()
     

    Этот скрипт нужно скопировать в буфер обмена. После этого запустить PowerShell с правами администратора. Потом щелкнуть в пустое место программы правой кнопкой мыши. Появится окно с кнопкой "Оптимизировать". Нужно на нее нажать.

    Просьба отписаться - появились ли какие-нибудь изменения в вашем звуке.

    • Насмешил 1

  12. Опубликовано · Изменено пользователем Drkogot

    Здравствуйте. Нашел ролик, который позволял запустить RTX Voice на карте без RTX.

    После того, как установил, обнаружил приятный эффект в виде увеличения громкости музыки(и улучшения качества).
    (Нужно чтобы в списке звуковых устройств вывода был Nvidia Rtx Voice(но нужно выбрать свой источник по-умолчанию).
    Судя по звуку - происходит что-то вроде разделения звука на стемы(Как в Ultimate Vocal Remover).

    Просьба установить у себя и прокомментировать - у вас тоже изменился звук?

    Вот ссылка: Скачать программу

  19. Опубликовано · Изменено пользователем Drkogot

    Здравствуйте. Пытаюсь запустить прямой мониторинг с миди клавиатуры в Studio One. 

    Сигнал с клавиатуры идет, но звука в наушниках нет.

    Кто-нибудь сталкивался с подобной проблемой?

  22. Опубликовано

    35 минут назад, Пяпа сказал:

    Вздохов в самом начале и далее слишком много. Или это какой-то лишний эффект такой, выглядит как дыхание. (Порекомендую, если не знакомы, Изотоп РХ 9, есть Деэссер и дыхание убрать тоже (дебриз)

    На сибилянтах переборщили в припеве, получается шипилявость.

    Высоких в целом мало в миксе. Или они были, но пропустили через мп3-128 кбс

    Спасибо за оценку и рекомендации.

  24. Опубликовано

    Хотел поделиться необычным способом. Пригодится для тех, кто по каким-то причинам не хочет сам петь.
    Нашел у себя в закромах экспериментальный файл.
    Сделано с помощью нейросетей.
    https://drive.google.com/file/d/1Rjsa3QELgOiecDJlFtW2tddcWno85HiT/view?usp=sharing

×
×
  • Создать...

Важная информация

Пользуясь форумом вы соглашаетесь с нашими Условия использования.

  Я принимаю