Loading...
Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "C:\Windows\system32\sndvol32.exe" WScript.Sleep 1000 WshShell.AppActivate "主音量" WshShell.SendKe...