几个有用的vbs脚本

几个有用的vbs脚本

作者:nowthk 日期:2005-10-27

字体大小: 小 中 大

静音.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"