几个有用的vbs脚本

静音.vbs
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
WScript.Sleep 1000
WshShell.AppActivate "主音量"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{+}"
WshShell.SendKeys "%{F4}"

全文翻译.vbs
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "C:\Progra~1\Kingsoft\FastAIT\KingTr~1.exe"
WScript.Sleep 1000
WshShell.AppActivate "金山全文翻译 - [KingTrans1]"
WshShell.SendKeys "^v"
WScript.Sleep 1000
WshShell.SendKeys "{F10}"

记事本.vbs
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1000
WshShell.AppActivate "无标题 - 记事本"
WshShell.SendKeys "^v"