NiceLeeのBlog 用爱发电 bilibili~

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

2018-11-18
nIceLee

阅读:


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等需要安装环境(虽然说也不复杂)才能运行可以说是一个不可忽视的优势。


内容
隐藏