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

1 语音播报脚本,也可以用来朗读英语
  只需要简单的两行程序保存为.vbs,点击打开就可以念诗:

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

使用JS可以调用百度的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;

            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=1&text=播报内容" type="audio/mpeg">
                <embed id="tts_embed_id" height="0" width="0" src="">
            </audio>
        </div>
    </body>
</html>
时间: 2024-08-26 09:57:01

几个简单有趣的VBS脚本程序以及其JS实现的相关文章

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活) 我们前面几面都介绍了关于vbs脚本程序来完成一些半自动化的任务,今天我们介绍一下,Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)的功能介绍,其实不管通过vbs实现什么样的功能,我们还是需要屡清思路来完成相关逻辑程序的编写及运行.我们今天既然要使用vbs脚本来完成不同版本的激活任务,而且不同版本的OS也有不同的MAK Key,所以我们需要通过获取系统的版本来完成对应的OS激活任务.同样,我

一个转换编码格式的VBS脚本

今天看到了一个转换编码格式的VBS脚本程序,但是只能转换2种,改造了一下,可以自己指定转换格式.支持: utf-8 ansi 或者是 gb2312 unicode 之间的相互转换.自动探测文件格式,手工指定输出格式,默认输出格式为utf-8.可以直接改变文件编码,也可以输出为另外的一个文件.支持强制覆盖选项. 用法为: cscript chcode.vbs inputfile.txt 会把inputfile.txt转换为utf-8格式编码 cscript chcode.vbs inputfile

Vbs脚本实现数据CUT备份及自动轮询删除备份数据

我们上一篇文章中介绍了使用vbs脚本不同版本的office激活任务,其实说到vbs脚本相信大家都很了解了,有什么作用呢,其实说白了就是执行批处理任务的工具.Vbs在windows上应用相对比较多,其功能上我们就不多说了,今天呢还是介绍vbs脚本程序备份数据的计划任务.怎么想起来备份数据呢,近期呢,领导突然想到对公司的SAP备份数据进行异地备份,这样能提高数据的可恢复性:公司的SAP的系统是每天晚上2点执行一次备份,然后新的一天数据会覆盖旧的数据,如果当数据出现错误,我们也无法使用该之前的备份进行

开机延迟启动指定程序的VBS脚本

我有一个程序,希望它开机自动启动且最小化运行,但这个程序没有提供设置开机启动的功能.如果把它的快捷方式加入到“启动”文件夹中,对开机速度会有比较大的影响,且启动后不会自行最小化. 为达到这个目的,我想编写一小段vbs脚本,开机时运行脚本,由脚本来实现延时一段时间后以最小化窗口的方式启动指定程序的功能.查了一下资料,发现只需使用WScript.Shell.Run和WScript.Sleep即可实现. WScript.Shell是WSH提供的一个工具对象,可用来与特殊文件夹交互,如Desktop和M

Vbs脚本简单使用

概述 之前在做项目时用到了一点vbs脚本,记录下. C++程序调用vbs脚本 1 System(vbs路径 参数); //空格隔开 Vbs脚本 1 '''''Vbs脚本解析参数 2 Set objArgs = Wscript.Arguments 3 if objArgs.Count>0 Then 4 msgbox objArgs(0) 5 end if 6 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''注释符号 7 fo

shell脚本程序中的部分常用环境变量和参数变量的说明以及简单shell脚本示例

环境变量 $HOME 当前用户的家目录 $PATH 以冒号分隔的用来搜索命令的目录列表 $PS1 命令提示符,通常是$字符,但在bash中,可以使用一些更复杂的值.例如,字符串[\[email protected]\h\w]$就是一个流行的默认值,它给出用户名/机器名和当前的目录名,当然也包括一个$提示符. $PS2 二级提示符,用来表示后续的输入,通常是 > 字符. $IFS 输入域分隔符.当shell读取输入时,它给出用来分隔单词的一组字符,他们通常是空格,制表符和换行符. $0 shell

Vbs 脚本编程简明教程之一

-为什么要使用 Vbs ? 在 Windows 中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动 计算机第一件事情就是打开 WORD ,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某 些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往

Vbs脚本经典教材

转载:http://www.cnblogs.com/BeyondTechnology/archive/2011/01/10/1932440.html Vbs脚本经典教材(最全的资料还是MSDN) -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可

VBS脚本完美实现开机延时启动

目录 概述 vbs内容示例: vbs示例语句分析 自定义vbs脚本 一些问题和解决方法 概述 系统开机时,顺带自动启动了不少驱动程序,使得电脑开机后鼠标要呆滞许久.为了加快windows的开机速度,在参考网上不少大牛的资料后,整理出使用vbs脚本利实现开机后延时启动程序的方法 vbs内容示例: #1 Dim delayer #2 Set delayer = CreateObject("WScript.Shell") #3 WScript.sleep 8000 #4 delayer.Ru