蘭雅sRGB 个人笔记 https://262235.xyz
提供编程和电脑应用视频教程,工具和源代码
C, C++, Python Programming, Source Code, Video

旧Hexo博客 | Github | IP定位WebAPI | Docker Hub
编程中文文档 | 网盘分享 | 中文Linux命令

使用记事本写一个最简单的语音程序

sapi.Speak.jpg

1.打开记事本复制如下代码到文件中

2.另存文件名 windows_voice.vbs

3.双击 windows_voice.vbs 电脑就能和你对话了

Dim message, sapi
MsgBox("请戴上耳机听我说....")
message = "这是在您的微软视窗系统上进行的简单语音测试。"
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak message

修改另存 readbook.vbs 就能读取 book.txt的小说了

Dim message, sapi
MsgBox("请戴上耳机听我说....")
message = "这是在您的微软视窗系统上进行的简单语音测试。"
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak message


Const ForReading = 1

Dim fs, ts
set fs = CreateObject("Scripting.FileSystemObject")
set ts = fs.OpenTextFile("book.txt", ForReading)
Do Until ts.AtEndOfStream
    message = ts.ReadLine 
    if message <> "" Then
        sapi.Speak message
    End if
Loop
ts.Close
set ts = Nothing
set fs = Nothing

本代码英语原版

Dim message, sapi
MsgBox("Please use the headset and listen to what I have to say...")
message = "This is a simple voice test on your Microsoft Windows."
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak message

好像还可以帮你读取邮件,Win7系统测试没有成功

  • windows-greetings-voice.vbs
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
dim str

if hour(time) < 12 then
    Sapi.speak "Good Morning"
else
    if hour(time) > 12 then
        if hour(time) > 16 then
            Sapi.speak "Good evening"
        else
            Sapi.speak "Good afternoon"
        end if
    end if
end if

Sapi.speak "The current day is"
Sapi.speak date
    
Sapi.speak "The current time is"
    
if hour(time) > 12 then
    Sapi.speak hour(time)-12
else
    if hour(time) = 0 then
        Sapi.speak "12"
    else
        Sapi.speak hour(time)
    end if
end if

if minute(time) < 10 then
    Sapi.speak "o"

    if minute(time) < 1 then
        Sapi.speak "clock"
    else
        Sapi.speak minute(time)
    end if
else
    Sapi.speak minute(time)
end if
if hour(time) > 12 then
    Sapi.speak "P.M."
    else
        if hour(time) = 0 then
            if minute(time) = 0 then
                Sapi.speak "Midnight"
            else
                Sapi.speak "A.M."
            end if
        else
            if hour(time) = 12 then
                if minute(time) = 0 then
                    Sapi.speak "Noon"
            else
                Sapi.speak "P.M."
            end if
        else
            Sapi.speak "A.M."
        end if
    end if
 end if
 
Sapi.speak "Checking for new messages. Please standby."
WScript.Sleep 2000

Set otl = createobject("outlook.application")
Set session = otl.getnamespace("mapi")

session.logon
    Set inbox = session.getdefaultfolder(6)
    c = 0

    For Each m In inbox.items
        If m.unread Then c = c + 1
    Next
session.logoff

s = "s"
If c = 1 Then s = ""

Sapi.speak "You have" & c & "unread message" & s
本原创文章自由转载,转载请注明本博来源及网址 | 当前页面:蘭雅sRGB 个人笔记 » 使用记事本写一个最简单的语音程序