愚蠢的怪杰技巧:如何使你的电脑与你交谈

能够讲话的智能机器通常是未来科幻电影的东西,但你可以将任何计算机变成闲聊的凯蒂。 即使我们还没有在计算机的阶段,他们可以与我们像人一样交互,有一些工具和简单的脚本,我们可以写,使任何运行Windows的计算机对我们说话。

一个小(视觉)基本历史

在1988年,VBScript或(Visual Basic脚本版)的第一次迭代出现,仍然是我们今天的一个非常原始的版本。 多年来,对于Microsoft的易于使用和轻量级脚本语言的需求增加。 正因为如此,该公司不断努力,并于1996年向公众发布。

它是一个简单的脚本,它使用COM(组件对象模型)在Microsoft操作系统中创建,读取,更新和删除文件。 自从Windows 98发布以来,它已经与每台计算机一起安装。 它是高度通用的,因为事实上VBScript主机环境可以嵌入使用Microsoft脚本控制的程序内。 它经常与Internet信息服务,Windows脚本宿主和Internet Explorer一起使用。

但是,这是足够的技术jibber jabber。 让我们来看看它,并学习如何让你的电脑说话!

单次使用VBScripts

创建可视的基本脚本非常容易,不需要任何特殊的程序。 虽然有程序可以用来编写更高级的脚本,但大多数程序员和编写脚本的人只需使用微软的记事本。

让我们通过打开记事本开始这个过程。 打开记事本后,你需要做的就是键入下面的代码,或者直接复制并粘贴到记事本窗口。 为了改变你的脚本使计算机说,简单地替换任何你想听到的说,“怪人必须继承地球”的部分。

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

谈电脑2

成功输入您要听到的文本后,只需按“文件”,然后单击“另存为...”选项。

谈电脑3

找到要保存图像的位置。 对于此示例,我将其保存到“下载”目录中的一个空文件夹。 你需要做的重要的事情是给它一个以.vbs结尾的名字。 这将告诉计算机您不保存纯文本文件; 相反,你是保存一个VBScript。 我们将这个样例命名为“Geek test.vbs”,如下所示。

谈电脑4

现在您可以继续并关闭记事本,并导航到您保存VBScript的文件夹。 您会注意到该图标不是正常的TXT图标。 它是在一个白色背景的一个小蓝色纸卷。 双击此图标启动您的单一使用脚本并听取您的文本。 恭喜,您刚刚创建了第一个脚本。

现在,为了得到它的挂起,尝试创建一些更多的脚本与任何你想听到的文本。 或者,您可以右键单击VBScript并选择“使用...打开”选项,然后选择记事本来编辑同一文件中的文本。

谈电脑5

文本到语音脚本

现在你知道如何写一个单一使用的脚本,可能已经玩了几次,你可能会有点无聊。 这就是为什么我们要踢它一个档次。

接下来我们将学习如何创建一个比单一使用脚本略高级的脚本。 这将创建一个对话框,您可以输入文本,并让它读回您的电脑。

首先打开您的记事本,输入这个脚本或复制并粘贴到记事本窗口。

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

谈电脑6

输入代码后,只需将文件保存为“文本到Speech.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

电脑8

现在可以将文本文档另存为VBS文件。 一旦你这样做,去到保存它的文件夹,双击它。 根据您的计算机显示的时间,它会说“早上好,下午好或晚上好Geekmeister”。

脚本告诉它,如果时钟在12之前读取任何东西,它是早晨,12之后的任何东西下午; 然而,它也有一个条款,说即使是12后,只要时间是过去16:00(下午4点),它变得傍晚。

谈电脑9

时间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,然后导航到该文件夹​​。 如果一切顺利,你应该能够双击它,听到计算机告诉你的时间。

启动问候

现在你知道如何让你的计算机打hello你,告诉你的时间,如果计算机会这样做,当你打开电脑是多么酷。 这实际上很容易做,如果你只是把两个脚本,并把它们放在正确的地方。

首先打开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 greeting.vbs”。 它也可以被称为任何你想要的,但为了演示的目的,如果我们都在同一页上,它是更容易。 现在它已被保存,你可以双击VBScript文件听到它迎接你,告诉你的时间。

谈电脑11

如果你想打开电脑,打开电脑,如钢铁侠的Jarvis,只需选择该文件,并将其拖动到你的鼠标到“开始”按钮。不释放你的鼠标移动到“所有程序”,然后找到“启动”文件夹,然后释放鼠标按钮。

谈电脑12

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

C:\ Users \ USERNAME \ AppData \ Roaming \ Microsoft \
Windows \开始菜单\程序\启动

一旦你在启动文件夹,只是粘贴vbs文件,你是好去。 现在,下次启动计算机并登录时,它应该会自动问候您并通知您什么时间。

谈电脑13

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

  1. 极客测试
  2. 问候
  3. 启动问候
  4. 告诉时间
  5. 文字转语音
赞 (0)
分享到:更多 ()