Board logo

标题: [系统相关] 【已解决】bat或者VBS能不能实现:禁用声卡,然后启用声卡(第三方也行)?谢谢 [打印本页]

作者: yyz219    时间: 2023-6-10 10:10     标题: 【已解决】bat或者VBS能不能实现:禁用声卡,然后启用声卡(第三方也行)?谢谢

本帖最后由 yyz219 于 2023-6-21 17:36 编辑

已解决,重启声卡.bat:
@echo off

::【重启声卡(禁用1次)(启用2次)——经过多次实验证明】
devcon disable *DEV_1C20* >nul 2>nul
devcon enable  *DEV_1C20* >nul 2>nul
devcon enable  *DEV_1C20* >nul 2>nul

exit

*********************************
不知道有没有更科学的方法?
***********************************************
原来的问题:
bat或者VBS能不能实现:禁用声卡,然后启用声卡(第三方也行)?谢谢


作者: jyswjjgdwtdtj    时间: 2023-6-10 11:37

  1. Option Explicit
  2. Dim colItems, objItem, strComputer, arrServiceList, strServiceName
  3. strComputer = "." '本地计算机
  4. ' 获取 “Windows Audio” 服务对象
  5. Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
  6.     strComputer & "\root\cimv2").ExecQuery("SELECT * FROM Win32_Service WHERE Name='Audiosrv'")
  7. For Each objItem in colItems
  8.     ' 停止并禁用 “Windows Audio” 服务
  9.     objItem.StopService()
  10.     objItem.ChangeStartMode("Disabled")
  11. Next
  12. ' 释放对象
  13. Set objItem = Nothing
  14. Set colItems = Nothing
复制代码
ai写的 不敢保证正确性
我自己不敢试

话说ai特别喜欢sendkeys?和类似的api
作者: buyiyang    时间: 2023-6-10 12:37

  1. @echo off
  2. fltmc>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~s0",,,"runas",1)(window.close)&&exit
  3. for /f "tokens=2 delims==" %%i in ('wmic path Win32_SoundDevice get name /value') do set /a n+=1&call echo, [%%n%%]%%i&call set _s%%n%%=%%i
  4. for /l %%i in (1,1,%n%) do call set c=%%c%%%%i
  5. CHOICE /C %c% /M "选择声卡"
  6. call set name=%%_s%errorlevel%%%
  7. for /f "tokens=2 delims==" %%i in ('wmic path Win32_SoundDevice where "name='%name%'" get PNPDeviceID /value') do set "pnpid=%%i"
  8. set "pnpid=%pnpid:amp;=%"
  9. CHOICE /C de /M "disable或enable"
  10. if %errorlevel% equ 1 pnputil /disable-device "%pnpid%"
  11. if %errorlevel% equ 2 pnputil /enable-device "%pnpid%"
  12. pause
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2