jyswjjgdwtdtj

Option Explicit

Dim colItems, objItem, strComputer, arrServiceList, strServiceName

strComputer = "." '本地计算机

' 获取 “Windows Audio” 服务对象
Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\cimv2").ExecQuery("SELECT * FROM Win32_Service WHERE Name='Audiosrv'")

For Each objItem in colItems
    ' 停止并禁用 “Windows Audio” 服务
    objItem.StopService()
    objItem.ChangeStartMode("Disabled")
Next

' 释放对象
Set objItem = Nothing
Set colItems = Nothing
复制代码

ai写的 不敢保证正确性
我自己不敢试

话说ai特别喜欢sendkeys？和类似的api