几个简单的VBS脚本程序以及其JS实现

1 语音发声脚本，调用sapi.spvoice读英语hh
保存为say.vbs,点击打开就可以念诗：

set objTTS = CreateObject("sapi.spvoice")
objTTS.speak("问来问去的问题too young too simple,sometimes naive")

使用JS要有activeX控件

var VoiceObj = new ActiveXObject("Sapi.SpVoice"); VoiceObj.speak("");

可以调用百度的API:

<!DOCTYPE html>
<html>
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
        <title>语音测试</title>
        <script type="text/javascript"> 
        function doTTS(){
            var ttsDiv = document.getElementById('bdtts_div_id');
            var ttsAudio = document.getElementById('tts_autio_id');
            var ttsText = document.getElementById('ttsText').value;
            //参数spd为语音速度

            ttsDiv.removeChild(ttsAudio);
            var au1 = '<audio id="tts_autio_id" autoplay="autoplay">';
            var sss = '<source id="tts_source_id" src="http://tts.baidu.com/text2audio?lan=zh&ie=UTF-8&spd=3&text='+ttsText+'" type="audio/mpeg">';
            var eee = '<embed id="tts_embed_id" height="0" width="0" src="">';
            var au2 = '</audio>';
            ttsDiv.innerHTML = au1 + sss + eee + au2;
            
            ttsAudio = document.getElementById('tts_autio_id');
            
            ttsAudio.play();
        }
        </script>
    </head>
    <body>
        <div>
            <input type="text" id="ttsText">
            <input type="button" id="tts_btn" onclick="doTTS()" value="播放">
        </div>
        <div id="bdtts_div_id">
            <audio id="tts_autio_id" autoplay="autoplay">
                <source id="tts_source_id" src="http://tts.baidu.com/text2audio?lan=zh&ie=UTF-8&spd=4&text=请输入" type="audio/mpeg">
                <embed id="tts_embed_id" height="0" width="0" src="">
            </audio>
        </div>
    </body>
</html>

2 自动发送消息：

vbs脚本：

On Error Resume Next 
Dim wsh,ye 
set wsh=createobject("wscript.shell") 
for i=1 to 10 
wscript.sleep 700 
wsh.AppActivate("银翼") 
wsh.sendKeys "^v" 
wsh.sendKeys i 
wsh.sendKeys "%s" 
next 
wscript.quit

打开桌面上发给银翼的对话框，即可发送复制在剪切板的消息

3 打开桌面应用

保存为open.vbs：

set ws=createobject("wscript.shell")

Rem ws.run"打开文件所使用的程序+空格+程序路径",x,ture

ws.run"CloudMusic.exe E:lanInstalllanMorelanMusicCloudMusic",1,true

即可打开网易云音乐,可用于一次打开很多软件，其中第二个参数的意义:

0 隐藏一个窗口并激活另一个窗口。
1 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。第一次显示该窗口时，应用程序应指定此标志。
2 激活窗口并将其显示为最小化窗口。
3 激活窗口并将其显示为最大化窗口。
4 按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。
5 激活窗口并按当前的大小和位置显示它。
6 最小化指定的窗口，并按照 Z 顺序激活下一个顶部窗口。
7 将窗口显示为最小化窗口。活动窗口保持活动状态。
8 将窗口显示为当前状态。活动窗口保持活动状态。
9 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。还原最小化窗口时，应用程序应指定此标志。
10 根据启动应用程序的程序状态来设置显示状态。

4 打开cmd命令行

运行node hello.js，并把结果保存到x.txt

Set ws = CreateObject("WScript.Shell")

ws.Run "cmd /c node hello.js -an>>x.txt",0

5 其他小命令：

rem a 关闭计算机

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

rem b 无限数羊

Set s = CreateObject("sapi.spvoice") 
　i=0 
　do 
　s.speak i 
　i=i+1 
　loop

rem c 不断按下alt+f4键
　dim WSHshell 
　set WSHshell = wscript.createobject("wscript.shell") 
　do
　wscript.sleep 3000 
　WSHshell.SendKeys "%{F4}" 
　loop

rem d 弹窗
　dim s 
　do until s=100 
　s=s+1 
　msgbox "this is enter",64 
　loop

VBS简单教程http://www.cnblogs.com/BeyondTechnology/archive/2011/01/10/1932440.html

例子https://github.com/lanleilin/lanVBS