能说话的智能机器通常是未来科幻电影的素材，但你可以把任何一台电脑变成健谈的凯茜。尽管我们还没有到计算机可以像人一样与我们交互的阶段，但我们可以编写一些工具和简单的脚本，让任何运行Windows的计算机都能与我们对话。

一点（视觉）基本历史

1988年，VBScript或（visualbasicscriptingedition）的第一次迭代出现了，它仍然是我们今天所拥有的非常原始的版本。多年来，微软越来越需要一种易于使用的轻量级脚本语言。正因为如此，该公司一直致力于此，并最终于1996年向公众发布。

它是一个简单的脚本，使用COM（组件对象模型）在Microsoft操作系统中创建、读取、更新和删除文件。自从Windows98发布以来，每台电脑都安装了它。由于VBScript宿主环境可以嵌入到使用microsoftscript控件的程序中，因此它具有高度的通用性。它通常与Internet信息服务、Windows脚本主机和Internet Explorer一起使用。

但是，这已经够技术性的胡说八道了。让我们开始学习如何让你的电脑说话！

一次性使用VBScript

创建visualbasic脚本非常简单，不需要任何特殊的程序。尽管有一些程序可以用来编写更高级的脚本，但大多数程序员和涉足脚本编写的人只使用微软的记事本。

让我们打开记事本开始这个过程。打开记事本后，您只需键入以下代码或简单地复制并粘贴到记事本窗口中。为了改变你的脚本让电脑说的话，只需把“极客们将继承地球”的部分换成你想听的内容。

dim speechobject set speechobject=createobject("sapi.spvoice") speechobject.speak "The geeks shall inherit the earth"

在您成功输入想要听到的文字后，只需按“文件”，然后单击“另存为…”选项。

找到要保存图像的位置。对于本例，我将它保存到下载目录中的一个空文件夹中。您需要做的重要的事情是给它一个以.vbs结尾的名称。这将告诉计算机您不是在保存纯文本文件，而是在保存VBScript。我们将把这个样本命名为“极客”测试.vbs“如下所示。

现在，您可以继续关闭记事本并导航到保存VBScript的文件夹。您会注意到图标不是普通的TXT图标。这是一个白色背景上的蓝色小卷轴。双击这个图标启动你的一次性脚本并收听你的文本。恭喜，你刚刚创建了你的第一个脚本。

现在，为了掌握窍门，试着用你想听的任何文本创建更多的脚本。或者，您可以右键单击VBScript并选择“打开方式…”选项，然后选择“记事本”来编辑同一文件中的文本。

文本到语音脚本

既然你已经知道如何编写一个单次使用的脚本，而且可能已经玩过几次了，你可能会觉得有点无聊。这就是为什么我们要把它提高一个档次。

接下来我们将学习如何创建一个比一次性脚本稍微高级一点的脚本。这将创建一个对话框，您可以在其中键入文本，并让您的电脑将其读回给您。

首先再次打开记事本并输入此脚本，或者复制并粘贴到记事本窗口。

Dim message, sapi message=InputBox("What shall I say, your Geekness?","I speak for you.") Set sapi=CreateObject("sapi.spvoice") sapi.Speak message

输入代码后，只需将文件保存为“Text to”语音.vbs“如前所示，完成脚本。一旦它被保存，导航到它所在的位置，然后双击它。你会注意到窗口名为“我为你说话”，输入要发声的文本的提示是“我该说什么，你的怪胎？“你可以随时改变这些，说任何你想说的话。

现在，让我们输入“极客将继承地球”，然后按“确定”按钮来运行脚本并大声听到您的文本。

欢迎使用vbscript脚本

这变得很有趣，但是你的电脑仍然不能和你很好的互动。现在我们将尝试另一个简单的脚本，该脚本考虑了一天中的时间以及对一天中的时间的适当响应。这个脚本将读取您的计算机的时间，并基于此，它将以某种方式问候您。

首先打开你的记事本，**这个简短的脚本。你可以用任何你想听到的短语替换包含当天问候语的部分，也可以用你自己的名字替换Geekmeister。

Set Sapi = Wscript.CreateObject("SAPI.SpVoice") dim str if hour(time) < 12 then Sapi.speak "Good Morning Geekmeister " else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak "Good evening Geekmeister " else Sapi.speak "Good afternoon Geekmeister " end if end if end if

现在可以将文本文档保存为VBS文件。完成后，转到保存它的文件夹并双击它。根据你的电脑显示的时间，它会说“早上好，下午好或者晚上好，Geekmeister。”

脚本告诉它，如果时钟在12点之前读取任何内容，那么它就是早晨，12点之后的任何内容都是下午；但是，它还有一个子句，说明即使是在12点之后，只要时间超过16:00（下午4点），它就变成晚上。

时间vbscript

如果您想更高级一点并接收时间，可以创建一个新的记事本并输入此脚本。

这个脚本看起来可能很复杂，但它实际上是根据计算机时钟上显示的时间来告诉计算机该说什么以及如何说。你总是可以用你想要的时间的任何介绍来代替“当前时间是”。

Set Sapi = Wscript.CreateObject("SAPI.SpVoice") 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

 

现在您只需要像前面步骤中那样将文件另存为VBScript，然后导航到该文件夹。如果一切顺利，你应该能够双击它，听到电脑告诉你时间。

启动问候语

既然你知道如何让你的电脑问候你并告诉你时间，那么当你打开电脑的时候，如果电脑会这样做会有多酷呢。如果你把这两个脚本组合在一起，把它们放在正确的地方，这实际上是很容易做到的。

首先打开Microsoft记事本并将此代码复制到窗口中。它只是一个简单的副本，这两个代码组合为您。记住，你可以把问候语改成“你好，伙计，你好，主人，问候你全能的殿下”，或者任何你想让你的电脑对你说的话。

Set Sapi = Wscript.CreateObject("SAPI.SpVoice") dim str if hour(time) < 12 then Sapi.speak "Good Morning Geekmeister " else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak "Good evening Geekmeister " else Sapi.speak "Good afternoon Geekmeister " end if end if end if 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

一旦你将整个代码复制到记事本中，继续并将其保存为“Startup”问候语.vbs”. 它也可以被称为任何你想要的东西，但是为了这个演示的目的，如果我们都在同一页上，它会更容易。现在它已经保存，您可以双击VBScript文件来听到它问候您并告诉您时间。

如果你想在打开电脑时播放它，就像钢铁侠的贾维斯一样，只需选择文件并用鼠标将其拖到“开始按钮”即可。不释放鼠标，将其移动到“所有程序”上，然后找到“启动”文件夹并释放鼠标按钮。

如果由于某种原因这对您不起作用，您也可以手动导航到启动文件夹。您将首先转到“启动”文件夹问候语.vbs“已保存并复制是的。是的下一步是在任何资源管理器窗口的顶部键入以下路径，然后按“回车”。您只需将用户名更改为您的计算机帐户所使用的名称。

C:\Users\USERNAME\AppData\Roaming\Microsoft\ Windows\Start Menu\Programs\Startup

一旦进入启动文件夹，只要粘贴vbs文件，就可以开始了。现在，下次你启动电脑并登录时，它会自动向你打招呼并通知你现在几点了。

如果您在创建任何脚本时遇到任何问题，都可以使用这些链接免费下载。

1. 极客测试
2. 招呼
3. 启动问候语
4. 告诉时间
5. 文本到语音