找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 20870|回复: 2

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

[复制链接]
发表于 2023-6-10 10:10:00 | 显示全部楼层 |阅读模式
本帖最后由 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能不能实现:禁用声卡,然后启用声卡(第三方也行)?谢谢

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2023-6-10 11:37:13 | 显示全部楼层
  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

评分

参与人数 1技术 +1 收起 理由
yyz219 + 1 乐于助人

查看全部评分

发表于 2023-6-10 12:37:07 | 显示全部楼层
  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
复制代码

评分

参与人数 1技术 +1 收起 理由
yyz219 + 1 乐于助人

查看全部评分

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 17:20 , Processed in 0.016344 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表