幾個簡單的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:\lanInstall\lanMore\lanMusic\CloudMusic\",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

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM