静音.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"
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。