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= to

wscript.sleep

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:\lanInstall\lanMore\lanMusic\CloudMusic\",,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",

5 其他小命令：

rem a 关闭计算机

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00", ,true

rem b 无限数羊

Set s = CreateObject("sapi.spvoice")

　i=

　do

　s.speak i

　i=i+

　loop

rem c 不断按下alt+f4键

　dim WSHshell

　set WSHshell = wscript.createobject("wscript.shell")

　do

　wscript.sleep

　WSHshell.SendKeys "%{F4}"

　loop

rem d 弹窗

　dim s

　do until s=

　s=s+

　msgbox "this is enter",

　loop

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

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

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

  1. 用nc+简单bat/vbs脚本+winrar制作迷你远控后门

    前言 某大佬某天和我聊起了nc,并且提到了nc正反向shell这个概念. 我对nc之前的了解程度仅局限于:可以侦听TCP/UDP端口,发起对应的连接. 真正的远控还没实践过,所以决定写个小后门试一试. ...

  2. 如何在linux下编写一个简单的Shell脚本程序

    在了解了linux终端和其搭配的基本Shell(默认为bash)的基础下,我们就可以在终端中用vi/vim编辑器编写一个shell的脚本程序了 Shell既为一种命令解释解释工具,又是一种脚本编程语言 ...

  3. 2.如何实现使用VBS脚本程序对直播间自动评论

    前言:本文使用的是VBS脚本,实现了对繁星直播自动登录,自动进入房间并且自动评论. 前提准备:把需要刷的评论放到mysql中,再使用vbs读出评论 -------------------------- ...

  4. [opentwebst]一个简单的登陆脚本

    这个是个简单的vbs脚本,使用opentwebst进行录制 'Use the command line below to launch the script (or just double click ...

  5. python简单的监控脚本-利用socket、psutil阻止远程主机运行特定程序

    python简单的监控脚本-利用socket.psutil阻止远程主机运行特定程序 psutil是一个跨平台的库(http://code.google.com/p/psutil/),能够轻松的实现获取 ...

  6. Vbs脚本简单使用

    之前在做项目时用到了一点vbs脚本,记录下. C++程序调用vbs脚本 System(vbs路径 参数); //空格隔开 Vbs脚本 '''''Vbs脚本解析参数 Set objArgs = Wscr ...

  7. 如何用VBS编写一个简单的恶搞脚本

    windows系统的电脑, 首先右击桌面,选择新建-文本文档,在桌面上新建一个文本文档:     随后打开计算机或者是我的电脑,点击其中的组织(xp系统多为工具),选择下面的文件夹和搜索选项     ...

  8. Vbs脚本经典教材(转)

    Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改 ...

  9. VBS脚本病毒特点及如何防范3(转)

    5．Vbs病毒生产机的原理介绍 所谓病毒生产机就是指可以直接根据用户的选择产生病毒源代码的软件.在很多人看来这或许不可思议,其实对脚本病毒而言它的实现非常简单. 脚本语言是解释执行的.不需要编译,程序 ...

随机推荐

  1. LNMP+HAProxy+Keepalived负载均衡 - LNMP基础环境准备

    环境版本说明: 服务器系统:CentOS 7.5: ``` cat /etc/redhat-release CentOS Linux release 7.5.1804 (Core) # 输出结果 `` ...

  2. php-5.6.26源代码 - opcode执行

    文件 php-5.6.26/Zend/zend_vm_execute.h ZEND_API void execute_ex(zend_execute_data *execute_data TSRMLS ...

  3. 【js】【跨域问题】前后端分离的跨域问题

    最近在研究nodejs,php的前后端分离相关东西,在调用接口的时候碰到一些跨域的问题,经过一段时间的摸索,总结出来的一些东西 php采用的是yii框架,登录的机制或者调用接口都需要前端传递cooki ...

  4. 1016-06-首页20-封装工具条---UITableView控件距离顶部的间距问题----cell选中时的背景颜色设置

    一.设置UITableView里面的顶部 cell 距离顶部的间距的三种方式: 方法 1. 直接设置: self.tableView.contentInset = UIEdgeInsetsMake(H ...

  5. Robots Gym - 101915G

    传送门 The Robotics Olympiad teams were competing in a contest. There was a tree drawn on the floor, co ...

  6. 翻译 | “扩展asm”——用C表示操作数的汇编程序指令

    本文翻译自GNU关于GCC7.2.0版本的官方说明文档,第6.45.2小节.供查阅讨论,如有不当处敬请指正…… 通过扩展asm,可以让你在汇编程序中使用C中的变量,并从汇编代码跳转到C语言标号.在汇编 ...

  7. perl语言入门总结-第4章-子程序

    子程序定义和返回值 sub sum{ print "调用了子程序\n"; $a + $b; #后一行为返回值 } ; ; $s =∑ #34 调用子程序 子程序中的参数,参数固定( ...

  8. python基础之流程控制、数字和字符串处理

    流程控制 条件判断 if单分支:当一个“条件”成立时执行相应的操作. 语法结构: if 条件: command 流程图: 示例:如果3大于2,那么输出字符串"very good" ...

  9. sourceInsight *** more bytes are required

    现象:用sourceinsight修改的文件无法保存,提示 No enough space to save "XXX", xxx more bytes are required. ...

  10. iOS 中 AFNetworking HTTPS 的使用

    由于我们公司由HTTP转HTTPS,出现了一系列问题特此记录下. 一.HTTPS 二.App Transport Security 三.iOS 中用HTTPS 注意的问题 四.使用 AFNetwork ...