Question

每当我打开它时，我都希望我的电脑能够迎接我。很简单，如果你使用它：

Dim speaks, speech
speaks=”Good morning, sir”
Set speech=CreateObject(“sapi.spvoice”)
speech.Speak speaks

但这在一天中的任何时候都有效。例如，每当我在晚上7点打开电脑时，它会说，＆＃34;早上好，先生＆＃34;。

是否有可能制作一个在启动时运行的脚本，它根据一天中的时间来迎接我（例如，＆＃34;下午好，先生＆＃34;中午12:00后）？

如果没有，是否可以根据时间在启动时运行不同的脚本文件？喜欢＆＃34; goodmorning.vbs＆＃34;早上，＆＃34; goodafternoon.vbs＆＃34;下午和＆＃34; goodevening.vbs＆＃34;晚上？

Answer 1

Dim speaks, speech
DateInfo = Time
if Time() <= TimeValue("12:00am") then speaks="Good morning, sir" else speaks="Good afternoon, sir" 
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

Answer 2

终于搞定了。只需创建一个扩展名为.vbs的文件，并将其放在启动文件夹中，以便计算机在启动时与您见面。我还必须转到控制面板，更改文本到语音设置，将我的PC的默认语音更改为女性。

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

来源：http://www.howtogeek.com/197719/stupid-geek-tricks-how-to-make-your-computer-talk-to-you/

如何设置程序在启动时运行，具体取决于计算机打开时的时间？

2 个答案: