VBS 一些超简单、超有趣的VBS小应用

• 一、弹出文字窗口
• 二、文字转语音
• 三、模拟按键
• 四、激活窗口
• 五、运行系统命令
• 六、总结

VBS是微软支持的一种脚本语言。因为非专业人员用的电脑系统还是Widows较多，所以下面的VBS小应用在平常我们用的电脑上直接用就行，不需要前置什么乱七八糟的安装环境。。
什么，我没讲明白？？直接打开txt文本，复制代码，改下文件名称，程序就能跑起来啦O(∩_∩)O

一、弹出文字窗口

• 新建“文本文档”，输入msgbox “一大波病毒正在靠近…” ，点击文件->另存为->重命名为“代码.vbs”。文件名不重要，重要的是后缀要是“.vbs”。

• 双击保存的文件：代码.vbs，即弹出一个对话框。

二、文字转语音

• 还是一样保存文本，两行代码搞定

  Set objVoice = CreateObject("SAPI.SpVoice")
  objVoice.Speak "你好，我也好"
  

• 还可以进行复杂的设置，比如语音、语速
  • 设置朗读速度，取值范围：-10到10，正常为0
  • 设置朗读音量，取值范围：0到100，正常为100

    Set objVoice = CreateObject("SAPI.SpVoice")
    objVoice.Rate = 0 
    objVoice.Volume = 100
    objVoice.Speak "你好，我也好"
    

• 另外，还可以将语音保存，以下保存成了Test.wav文件

  Const SSFMCreateForWrite = 3
  strText = "你好，我也好"
  Set objVoice = CreateObject("SAPI.SpVoice")
  Set objFile = CreateObject("SAPI.SpFileStream.1")
  objFile.Open ".\Test.wav", SSFMCreateForWrite
  Set objVoice.AudioOutputStream = objFile
  objVoice.Rate = 1 
  objVoice.Volume = 100
  objVoice.AllowAudioOutputFormatChangesOnNextSet=false
  objVoice.Speak strText
  

三、模拟按键

以下为模拟F5 刷新桌面，再模拟按Alt+F4组合键

set ws=createobject("wscript.shell") 
ws.sendkeys "{f5}" 
ws.sleep 2500 
ws.sendkeys "%{F4}" 

四、激活窗口

获取窗口名称即可进行该步操作

set wsh=createobject("wscript.shell") 
wsh.AppActivate("窗口名称") 

五、运行系统命令

举个例子，比如马上关机

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true

六、总结

以上命令可以做一些恶搞、或者自动化。
它只需要满足系统为windows即可，相较于python、java等需要安装环境（虽然说也不复杂）才能运行可以说是一个不可忽视的优势。