Windows 如何根据计算机开机的时间设置程序在启动时运行?

Windows 如何根据计算机开机的时间设置程序在启动时运行?,windows,login,text-to-speech,startup,Windows,Login,Text To Speech,Startup,每当我打开电脑时,我想让它向我打招呼。很简单,如果您使用此选项: Dim speaks, speech speaks=”Good morning, sir” Set speech=CreateObject(“sapi.spvoice”) speech.Speak speaks 但这在一天中的任何时候都有效。例如,每当我晚上7点打开电脑时,它都会说:“早上好,先生。” 是否可以制作一个在启动时运行的脚本,根据一天中的时间向我打招呼(例如,下午12:00后的“下午好,先生”) 如果没有,是否可以根

每当我打开电脑时,我想让它向我打招呼。很简单,如果您使用此选项:

Dim speaks, speech
speaks=”Good morning, sir”
Set speech=CreateObject(“sapi.spvoice”)
speech.Speak speaks
但这在一天中的任何时候都有效。例如,每当我晚上7点打开电脑时,它都会说:“早上好,先生。”

是否可以制作一个在启动时运行的脚本,根据一天中的时间向我打招呼(例如,下午12:00后的“下午好,先生”)

如果没有,是否可以根据时间在启动时运行不同的脚本文件?像早上的“Goodworning.vbs”,下午的“Goodworning.vbs”,晚上的“Goodwennight.vbs”?

Dim speaks,speech
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
日期信息=时间 如果Time()
Dim说话,语音
日期信息=时间

如果时间()终于让它工作了。只需制作一个扩展名为.vbs的文件,并将其放在启动文件夹中,以便计算机在启动时向您致意。我还必须进入控制面板,更改文本到语音设置,将电脑的默认语音更改为女性

 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
Set Sapi=Wscript.CreateObject(“Sapi.SpVoice”)
dim str
如果小时(时间)<12,则
Sapi.speak“早上好,先生,所有系统都在运行,欢迎回来。”
其他的
如果小时(时间)>12,则
如果小时(时间)>16,则
Sapi.speak“晚上好,先生,所有系统都在运行,欢迎回来。”
其他的
Sapi.speak“下午好,先生,所有系统都在运行,欢迎回来。”
如果结束
如果结束
如果结束

来源:

终于让它工作了。只需制作一个扩展名为.vbs的文件,并将其放在启动文件夹中,以便计算机在启动时向您致意。我还必须进入控制面板,更改文本到语音设置,将电脑的默认语音更改为女性

 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
Set Sapi=Wscript.CreateObject(“Sapi.SpVoice”)
dim str
如果小时(时间)<12,则
Sapi.speak“早上好,先生,所有系统都在运行,欢迎回来。”
其他的
如果小时(时间)>12,则
如果小时(时间)>16,则
Sapi.speak“晚上好,先生,所有系统都在运行,欢迎回来。”
其他的
Sapi.speak“下午好,先生,所有系统都在运行,欢迎回来。”
如果结束
如果结束
如果结束

来源:

这告诉你早上1点下午好。这里是否可以使用If-else嵌套语句?(例如,如果时间大于上午12点且小于或等于上午11点59分,请说早安。如果时间大于或等于下午12点且小于或等于下午5点59分,请说下午好。如果时间大于或等于上午12点且小于或等于上午11点59分,请说晚安。)当然,您可以查看文档:这告诉您凌晨1点下午好。这里是否可以使用If-else嵌套语句?(例如,如果时间大于上午12点且小于或等于上午11:59,请说早安。如果时间大于或等于下午12点且小于或等于下午5:59,请说下午好。否则请说晚安。)当然,您可以查看文档: